如何通过vba-commandbutton从MS Word输入文本

时间:2017-06-28 09:31:28

标签: excel-vba word-vba vba excel

我正在尝试制作一个链接到多个Excel文件的配置工具。 它们都是通过“选项号”链接的。 有没有办法导入整个MS Word文档的一部分通过 “选项编号”链接到Excel?

1 个答案:

答案 0 :(得分:0)

好吧,既然你的问题没有任何代码,并且没有真正告诉我们你所采用的方法,我将只提供一些关于如何从Excel宏访问word文档中的表的一般指示

首先,您需要添加对Microsoft Word #.# Object Library的引用。要执行此操作,请打开VBE(alt + F11),单击toolsReferences...并选中此库的复选框。上面的#.#是版本号。例如,单词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
祝你好运。