Как дописать текст в конец DOCX файла, VBA
Следующий небольшой кусок кода дописывает textToTheEnd в конец файла и применяет к нему стиль L-text-normal, если такой есть в этом документе. Если нет, макрос вылетит с ошибкой, хехе.
Я не помню зачем надо было сдвигать все на 1 символ вперед и как в результате будут расставлены переносы строк и абзацев. Наверное надо будет потестить.
Set Range3 = ActiveDocument.Content Range3.Collapse Direction:=wdCollapseEnd Range3.Text = textToTheEnd 'текст который надо вставить Range3.MoveStart Unit:=wdCharacter, Count:=1 'сдвигаем Range3 на 1 символ вперед Range3.Style = ActiveDocument.Styles("L-text-normal")
Ближайшие сообщения
Похожие сообщения
- Как найти и выделить все вхождения текста, VBA (Word)
- Замена wdTitleSentence (первая заглавная) в VBA
- Установка номера страниц через макросы в Word
- Автоматическая нумерация страниц в Microsoft Word
- Массивы в VBA
- «Слишком длинный строковый параметр», VBA