此时插入后自动移动MS Word书签

Question

大家好，

我已经汇编了以下代码，它复制了Word文档中的第一个表格并将其插入书签位置，并通过第二个书签在其上方添加了一个格式化的标题。

要完全自动化我的Excel应用程序，我需要一个代码的高级功能。插入完成后，书签必须重新定位到新插入的表/标题正上方的位置。

是否可以通过编程方式重新定位这些书签？ 非常感谢任何帮助。

祝你好运， daZza

代码：

Sub Main()

Dim doc As Word.document
Set doc = GetObject("xxxx.docx")

doc.Tables(1).Range.Copy
doc.bookmarks("AH_Tab").Range.Paste

doc.bookmarks("AH_Header").Range.Text = "Test"
doc.bookmarks("AH_Header").Range.Style = wdStyleHeading1

End Sub

Answer 1

在End Sub

之前添加以下代码

Dim tmpRng As Range
Set tmpRng = doc.Bookmarks("AH_Header").Range
doc.Bookmarks.Add "AH_Header", ActiveDocument.Range(tmpRng.Start - 1, tmpRng.Start - 1)

其他信息：

• 为第二个书签
执行相同的操作
• 通过更改-1值可以展开 ＆安培;移动应放置新书签的范围