Скопируйте содержимое Word в электронную таблицу Excel с помощью Excel VBA

Question

У меня есть набор текстовых документов, который содержит формы оценки. Я могу вручную скопировать и вставить их вместе с их форматированием в электронную таблицу Excel, но я заинтересован в автоматизации этого с помощью VBA, поскольку у меня их около 400.

Как открыть каждый из них, скопировать и вставить данные в Excel, сохранив все форматирование?

Answer 1

Первый этап - установить ссылку на Microsoft Word в редакторе vb в Excel.Затем вы можете открыть текстовый документ, подобный этому

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

.

Answer 2

Я бы получил текст из буфера обмена с:

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

и затем проанализируйте этот текст. Вы можете проверить эту ссылку https://excelmacromastery.com/vba-string-functions/#Extracting_Part_of_a_String