编辑:被 VISQL 击败 :)
是的,可以做你想做的事。按着这些次序。
打开您的word文档并在相关位置插入书签。比如说,我们在标题 2 处插入一个名为“Mike”的书签。
将此代码粘贴到 Excel 的模块中。
Sub Sample()
Dim oWordApp As Object, oWordDoc As Object, bMark As Object
Dim FlName As String
FlName = "C:\Sample.Docx"
'~~> Establish an Word application object
On Error Resume Next
Set oWordApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set oWordApp = CreateObject("Word.Application")
End If
Err.Clear
On Error GoTo 0
oWordApp.Visible = True
Set oWordDoc = oWordApp.Documents.Open(FlName)
Set bMark = oWordDoc.Bookmarks("Mike")
bMark.Select
End Sub
右键单击该按钮并将其分配给上述宏。
你完成了。下次用户单击该按钮时,代码将打开 word 文档并转到相关书签。对其他按钮重复相同的步骤。
高温高压