请求修改VBA宏代码：将Excel表格复制到Word书签位置

没问题，我帮你调整了这段VBA代码，完全贴合你的需求——把Excel Sheet1里的表格连带着边框、字号、自动列宽这些格式，精准放到Word文档末尾的bookmark书签位置。以下是完整的可运行代码，我会在后面拆解关键细节：

Sub CopyExcelTableToWordBookmark()
    Dim wsExcel As Worksheet
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdBookmark As Object
    Dim wdTable As Object
    Dim excelTableRange As Range
    
    ' 设置要复制的Excel工作表
    Set wsExcel = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取Sheet1里的已使用区域（如果是特定表格，可改为wsExcel.Range("A1:E10")这类指定范围）
    Set excelTableRange = wsExcel.UsedRange
    
    On Error Resume Next
    ' 尝试获取已打开的Word应用
    Set wdApp = GetObject(, "Word.Application")
    ' 如果Word没打开，就新建一个
    If Err.Number <> 0 Then
        Set wdApp = CreateObject("Word.Application")
        wdApp.Visible = True ' 让Word可见，方便调试
    End If
    On Error GoTo 0
    
    ' 替换为你的Word文档路径
    Set wdDoc = wdApp.Documents.Open("C:\Your\Word\File\Path.docx")
    
    On Error Resume Next
    ' 定位到指定书签
    Set wdBookmark = wdDoc.Bookmarks("bookmark")
    If Err.Number <> 0 Then
        MsgBox "Word文档中未找到名为'bookmark'的书签，请检查！", vbExclamation
        wdDoc.Close SaveChanges:=False
        wdApp.Quit
        Set wdDoc = Nothing
        Set wdApp = Nothing
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 复制Excel表格（带格式）
    excelTableRange.Copy
    
    ' 定位到书签位置并粘贴，保留源格式
    wdBookmark.Range.PasteAndFormat Type:=wdFormatOriginalFormatting
    
    ' 获取刚粘贴的表格
    Set wdTable = wdDoc.Bookmarks("bookmark").Range.Tables(1)
    
    ' 设置表格自动适配内容（可选：改成wdAutoFitWindow适配页面宽度）
    wdTable.AutoFitBehavior wdAutoFitContent
    
    ' 确保表格边框完整（如果Excel里的边框没完全复制，这里强制设置）
    wdTable.Borders.Enable = True
    
    ' 设置表格内文字字号（和Excel保持一致，或者自定义）
    wdTable.Range.Font.Size = wsExcel.Cells(1, 1).Font.Size
    
    ' 更新书签（因为粘贴后书签范围会变化，重新定义书签）
    wdDoc.Bookmarks.Add Name:="bookmark", Range:=wdTable.Range
    
    ' 清理剪贴板
    Application.CutCopyMode = False
    
    ' 保存并关闭Word文档（如果需要自动保存的话，取消注释下面三行）
    ' wdDoc.Save
    ' wdDoc.Close
    ' wdApp.Quit
    
    ' 释放对象内存
    Set wdTable = Nothing
    Set wdBookmark = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
    Set excelTableRange = Nothing
    Set wsExcel = Nothing
    
    MsgBox "表格已成功复制到Word书签位置！", vbInformation
End Sub

关键细节说明： #

• 格式保留：用PasteAndFormat Type:=wdFormatOriginalFormatting确保Excel里的边框、字号、单元格格式完全同步到Word，避免格式丢失。
• 自动适配：wdAutoFitContent让表格列宽自动匹配内容长度，如果你需要表格铺满Word页面宽度，可以改成wdAutoFitWindow。
• 书签处理：粘贴后重新更新书签范围，防止后续操作找不到书签；同时添加了书签不存在的报错提示，避免程序崩溃。
• 灵活调整表格范围：如果你的表格不是整个Sheet1的已使用区域，可以把excelTableRange = wsExcel.UsedRange改成指定范围，比如wsExcel.Range("A1:D20")。
• Word应用处理：优先获取已打开的Word，没有的话再新建，同时设置wdApp.Visible = True方便你查看效果。

记得把代码里的C:\Your\Word\File\Path.docx替换成你实际的Word文档路径哦！

内容的提问来源于stack exchange，提问作者LadyTiara