使用书签将 excel 单元格（例如 A1:C10）复制到 Word 文档而不删除书签

Question

我试图找到解决方案，但收效甚微。 我成功地更新了我的 Word 文档，但只有一次。 我检查了 word 文档，书签已经消失，所以第二次不起作用，除非我在 Word 文档中再次添加书签。 请找到下面的代码，让我知道可以做些什么来实现所需的。 谢谢！！

Sub Rectangle2_Click()
Dim tbl As Excel.Range
Dim WordApp As Word.Application
Dim myDoc As Word.Document
Dim WordTable As Word.Table

'Optimize Code
 Application.ScreenUpdating = False
 Application.EnableEvents = False

'Copy Range from Excel
 Set tbl = ThisWorkbook.Worksheets("Sheet1").Range("C6:M10")

'Create an Instance of MS Word
 On Error Resume Next

'Is MS Word already opened?
  Set WordApp = GetObject(class:="Word.Application")

'Clear the error between errors
  Err.Clear

'If MS Word is not already open then open MS Word
  If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")

'Handle if the Word Application is not found
  If Err.Number = 429 Then
    MsgBox "Microsoft Word could not be found, aborting."
    GoTo EndRoutine
  End If

 On Error GoTo 0

'Make MS Word Visible and Active
 WordApp.Visible = True
 WordApp.Activate

'Open the Report
 Set myDoc = WordApp.Documents.Open("C:\Users\Test.docx")

'Copy Excel Table Range
 tbl.Copy

'Delete old Table in MS Word & Paste New Table into MS Word
 Dim bkm As Bookmark
 For Each bkm In ActiveDocument.Bookmarks
    If bkm.Name = bkmname Then
        If bkm.Range.Information(wdWithInTable) = True Then
            bkm.Range.Expand (wdCell)
            bkm.Range.Cells.Delete
        End If
    End If
 Next bkm

myDoc.Bookmarks(1).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False

'Autofit Table so it fits inside Word Document
 Set WordTable = myDoc.Tables(1)
 WordTable.AutoFitBehavior (wdAutoFitWindow)

 EndRoutine:
'Optimize Code
 Application.ScreenUpdating = True
 Application.EnableEvents = True

'Clear The Clipboard
 Application.CutCopyMode = False

'Closing the MS Word
 ActiveDocument.Close SaveChanges:=wdSaveChanges
 End Sub

注意：我是第一次纯粹使用 VBA，但已经从不同的来源拼凑起来，希望能记住正确的逻辑

Answer 1

有一种方法可以重用书签，但如果我正确理解您在做什么，那么您最好为每次迭代创建一个模板文件 (.dotx) 并从中生成一个新文档。

你的代码应该是

Set myDoc = Documents.Add("template path") 

并使用Document.SaveAs方法保存每个文档。

书签将保持不变，因为您的代码始终与从模板创建的新文档一起使用。

附加说明：由于您要声明一个对象 (myDoc)，请使用它而不是 ActiveDocument！ 这将使您的代码更加健壮，因为用户或其他代码可能会更改 Word UI 中当前处于活动状态的文档。 因此，例如：

For Each bkm In myDoc.Bookmarks

如果您需要保留书签，这样做的方法是首先保存书签范围，将内容分配给书签（删除它），然后恢复范围周围的书签。 就像是：

Dim rngBkm as Word.Range
For Each bkm In myDoc.Bookmarks
  If bkm.Name = bkmname Then
    Set rngBkm = bkm.Range
    rngBkm.Text = "new content"
    myDoc.Bookmarks.Add(rngBkm, bkmname)
  End If
Next