我正在尝试制作一个链接到多个Excel文件的配置工具。 它们都是通过“选项号”链接的。 有没有办法导入整个MS Word文档的一部分通过 “选项编号”链接到Excel?
答案 0 :(得分:0)
好吧,既然你的问题没有任何代码,并且没有真正告诉我们你所采用的方法,我将只提供一些关于如何从Excel宏访问word文档中的表的一般指示
首先,您需要添加对Microsoft Word #.# Object Library
的引用。要执行此操作,请打开VBE(alt + F11),单击tools
,References...
并选中此库的复选框。上面的#.#
是版本号。例如,单词2016将是Microsoft Word 16.0 Object Library
。
现在,您可以在Excel VBE中访问Word对象。 你可以这样做:
Sub Test()
Dim wApp As Word.Application
Dim wDoc As Word.Document
Dim wTable As Word.Table
Dim r As Word.Row
Dim c As Word.Cell
Set wApp = New Word.Application 'Get a word application object, so you can open and manipulate documents from your Excel macro.
Set wDoc = wApp.Documents.Open("C:\temp\temp.docx") 'Open your document.
Set wTable = wDoc.Tables(1) 'To access the first table in the document
For Each r In wTable.Rows 'Loop over Word table rows
For Each c In r.Cells 'Loop over Word table cells
'Do stuff with the table:
MsgBox c.Range.Text
ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = c.Range.Text
Next c
Next r
'and clean up after yourself:
Set wTable = Nothing
wDoc.Close SaveChanges:=False
wApp.Quit
Set wDoc = Nothing
Set wApp = Nothing
End Sub
祝你好运。