excel - 在 Word 和 Excel 之间插入链接

Question

我有一个系统，我可以在其中打开一系列 Word 文档，并将 Excel 工作簿中各个单元格上的内容粘贴到书签位置。这很好，但我宁愿建立一系列链接。如何调整下面的代码以提供图像中标识的功能。提前感谢您的帮助

Sub Openword1()
Dim objWord As Object
Dim ws As Worksheet
Dim ReportFolder As String
Dim ReportName As String
Dim ReportString As String
Dim ReportOpenRef As String


Set objWord = CreateObject("Word.Application")
Set ws = ThisWorkbook.Sheets("data")

For i = 3 To 20
If i = 21 Then
GoTo b:
End If

Application.ScreenUpdating = False

ReportFolder = Sheets("Report Information").Range("D1")
ReportName = Sheets("data").Range("a" & i)
ReportString = ReportFolder & ReportName & ".docx"
Sheets("Report Information").Range("D2") = ReportString
ReportOpenRef = ReportName & ".docx"


objWord.Visible = True
objWord.documents.Open ReportString



With objWord.ActiveDocument

.Bookmarks("Ref").Range.Text = ws.Range("B" & i).Text
.Bookmarks("NCP_Reference").Range.Text = ws.Range("C" & i).Text
.Bookmarks("Carpark_Type").Range.Text = ws.Range("H" & i).Text
.Bookmarks("Valuer").Range.Text = ws.Range("P" & i).Text

End With
objWord.documents(ReportOpenRef).Save

objWord.documents.Close

Next i

Set objWord = Nothing

Application.ScreenUpdating = True
b:


End Sub

标签： excelvbams-word