Destio небольшой блог

   

Как дописать текст в конец 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")

Ярлыки: , , , ,


Ближайшие сообщения

Похожие сообщения

Ответить