Вставка в закладку в Word: добавляется символ абзаца

@MariaMark · Регистрация: 27.10.2014

Author24 — интернет-сервис помощи студентам

Добрый день! Очень долго искала информацию на форуме - не нашла. Работаю над макросом создания отчетов по шаблону и данным из Excel. Проблема: вставка в закладку в Word получилась, но к тексту, почему-то добавляется символ абзаца. Так как вставок планируется в документ порядка 30, работа остановилась. Слияние не подходит. Помогите разобраться, в чем причина? Использую вставку как текст, но это не помогает: objWrdDoc.Bookmarks("site").Range.PasteAndFormat (wdFormatPlainText)

Пример прикрепляю.

@pashulka · 27.10.2014, 21:33

Может у Вас просто отображаются все символы ?
(в прежних версиях, за это безобразие отвечала кнопка Непечатаемые знаки)

В любом случае, можно обойтись без копирования и прочих, на мой взгляд, лишних действий :

Visual Basic

Set objWrdApp = CreateObject("Word.Application") ': objWrdApp.Visible = True
 
For intRow = 2 To 4
    Set objWrdDoc = objWrdApp.Documents.Add("C:\Шаблон.dot") '.Open("C:\Шаблон.dot")
    strSite = Trim$(CStr(Cells(intRow, 1)))
    objWrdDoc.Bookmarks("Site").Range.Text = strSite
    objWrdDoc.SaveAs "C:\" & strSite & " - " & strMonth & " 2014.doc"
    objWrdDoc.Close
Next
 
objWrdApp.Quit

@MariaMark · 28.10.2014, 14:54 **[ТС]**

pashulka, спасибо за ответ. Проблема не в том, что я вижу непечатаемые символы, а в том, что значение из ячейки Excel вставляется в word и переносит остальной текст на другую строку, чего не должно происходить.

Добавлено через 1 минуту
Очень надеюсь, что ваш вариант скрипта решит ситуацию. Уже сейчас вижу, что написан он значительно лучше моей корявой версии) Отпишу завтра по результату.

@MariaMark 0 / 0 / 0 Регистрация: 27.10.2014 Сообщений: 2
	28.10.2014, 14:54 [ТС]	3
	pashulka, спасибо за ответ. Проблема не в том, что я вижу непечатаемые символы, а в том, что значение из ячейки Excel вставляется в word и переносит остальной текст на другую строку, чего не должно происходить. Добавлено через 1 минуту Очень надеюсь, что ваш вариант скрипта решит ситуацию. Уже сейчас вижу, что написан он значительно лучше моей корявой версии) Отпишу завтра по результату. 0