Захват всего текста из текстового документа с помощью VBA - PullRequest
0 голосов
/ 05 ноября 2019

Моя цель - захватить весь текст из большой коллекции документов Word, по документам и по абзацам в каждом документе и сохранить его в текстовом формате.

Я понимаю, что мне нужно будет захватить:

(1) текст верхнего и нижнего колонтитула, используя следующий код:

doc.Sections(1).Footers(1).Range.Text

(2) основной текст документа (я намеренчтобы сделать это по абзацу):

For Each p In doc.Paragraphs
    txt = p.Range
Next

(3) текст в различных текстовых полях и формах:

Shapes(1).TextFrame.TextRange.Text

Существуют ли другие объекты Word, которые могут содержать текст? Есть ли лучший способ достичь моей цели? Я рассматривал сохранение документа Word как текста, но текст, содержащийся в текстовых полях, был утерян в этом процессе.

UPD. Есть также сноски и сноски, о которых нужно позаботиться. Что-нибудь еще?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...