在超链接列表中组合单词文档

Question

我是VBA领域的新手。我会为我的问题寻求帮助。

我有B3:40范围内的文件列表。在每个单元格中，超链接到公用服务器中的特定word文档(.docx(文件。

现在，我想使用VBA excel将超链接列表中该范围内的所有文档合并为一个新词文档，该文档包含列表中的所有文档。

下面是我的代码。我只能打开它，但不知道如何组合。

提前感谢您的帮助。

Dim xhyperlink as Hyperlink
Dim Openfile as Range
On Error Resume Next
Set Openfile = Thisworkbook.Sheets("name of sheet")
Set Openfile = Range ("B3:B40")
For Each xhyperlink In Openfile.Hyperlinks
xhyperlink.Follow
Next

Answer 1

为了在将来获得更快的响应，请询问有关代码的特定问题，"有可能吗"这不是一个好问题。如果您不确定如何在Word/Excel中编写代码，请先尝试宏记录器。然后发布您在代码方面遇到的具体问题。话虽如此，欢迎来到Stack Overflow。这是一个新的帐户免费答案。。。

通过工具添加Microsoft Word 14.0 Object Library引用-->参考文献。

Sub MergeDocs()
Dim oLink As Hyperlink
Dim oLinkRange As Range

' Set Range of Hyperlinks
Set oLinkRange = Sheet1.Range("A1:A10")

'Setup "Merge" Document
Dim oWord As New Word.Application
Dim oMergeDoc As Word.Document
Set oMergeDoc = oWord.Documents.Add

'Insert Files into Master
For Each oLink In oLinkRange.Hyperlinks
oWord.Selection.InsertFile (oLink.Address)
Next

'Save Merged Document & Close
oMergeDoc.SaveAs2 ("C:TempMergeTestMerged.docx")
oMergeDoc.Close
oWord.Quit
End Sub

注意：您需要在其中添加一些错误检查。