1 Тема от Drift3r

  • Drift3r
  • рядовой
  • Неактивен
  • Зарегистрирован: 09.12.2014
  • Сообщений: 5
  • Поблагодарили: 1

Тема: Вставка текста в абзац (VBA)

Добрый день!

Нужно вставить в конец абзаца текст, сохранив исходный.
Для начала беру абзац без символа его окончания

For Each par In ActiveDocument.Paragraphs
Set rngRange = ActiveDocument.Range(Start:=par.Range.Start, End:=par.Range.End - 1)

затем первый вариант:

rngRange.Text = rngRange.Text + Chr(11) + newStr

- в таком случае пропадают вставленные в тексте изображения.

Второй вариант:

par.Range.InsertAfter (newStr)

- тогда текст часто вставляется в следующий абзац! При этом может даже вставить в ячейку идущей после таблицы.

Подскажите, что я не так делаю?

2 Ответ от Aleks

  • Aleks
  • майор
  • Неактивен
  • Зарегистрирован: 19.05.2014
  • Сообщений: 69
  • Поблагодарили: 21

Re: Вставка текста в абзац (VBA)

вставить можно в область выделения:

par.Select    (или par.Range.Select)
selection.Pate

при этом топорном способе нужно будет следить за курсором, чтобы он потом перешел на следующий параграф - могут быть неожиданности, лучше проверять пошагово.