使用Excel VBA将Word内容复制到Excel电子表格中

Question

我有一套Word文档，其中包含评估表。 我可以手动将它们及其格式复制并粘贴到excel电子表格中，但是我有兴趣使用VBA自动执行此操作，因为我有大约400个。

在保留所有格式的同时，如何打开每个文件并将数据复制并粘贴到excel中？

Answer 1

我会从剪贴板中获得文本：

Dim DataObj As New MSForms.DataObject
DataObj.GetFromClipboard
myString = DataObj.GetText

然后解析该文本。 您可以查看此链接https://excelmacromastery.com/vba-string-functions/#Extracting_Part_of_a_String

Answer 2

第一步是在Excel的vb编辑器中设置对Microsoft Word的引用。 然后您可以打开这样的Word文档

Dim wd as new Word.application
dim doc as word.document
set doc = wd.documents.open("path and mame of word document")

'使用表就像这样'假设目标是指向Excel单元格的指针

Dim t As Word.Table
Set t = doc.Tables(1)
t.Cell(3, 2).Range.Copy    'this copies the cell at row 3, column 2
target.PasteSpecial xlPasteValues

那应该让你开始