使用Excel VBA

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

那应该让你入门