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

我有一套word文档，其中包含评估表。我可以手动将这些文件及其格式复制并粘贴到excel电子表格中，但我对使用VBA实现自动化感兴趣，因为我有大约400个这样的文件

---

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

我将通过以下方式从剪贴板获取文本：

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

---

然后解析文本。您可以查看此链接

第一步是在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

---

这应该让你开始

到目前为止你研究了什么，你尝试了什么互联网上充斥着关于这些问题的教程？请注意，因为这不是免费的代码编写服务，所以有必要通过显示代码来显示您迄今为止所做的尝试、遇到的困难或错误，或者至少显示您所做的研究和努力。否则它只是要求我们为你做所有的工作。阅读可以帮助你改进你的问题。