Можно ли программно применить стиль символа к строке перед ее записью в документ Word с помощью VBA? - PullRequest
Новая
       26

Можно ли программно применить стиль символа к строке перед ее записью в документ Word с помощью VBA?

0 голосов
/ 05 мая 2018

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

Сейчас я объединяю несколько строк и добавляю их в текстовое поле в документе следующим образом:

ActiveDocument.Shapes("Text Box 7").TextFrame.TextRange.Text = str1 & " " & str2 & ", " & str3

Это выполняется в цикле и печатает несколько из этих строк в документе. Однако я хотел бы назначить / применить другой стиль символов для str1, str2 и str3 в каждой строке при их записи в Документ. Что-то вроде: 

ActiveDocument.Shapes("Text Box 7").TextFrame.TextRange.Text =
    str1.applyStyle("charStyle1") & 
    " " & 
    str2.applyStyle("charStyle2") & 
    ", " &
    str3.applyStyle("charStyle3")

Я понимаю, что нет метода String.applyStyle(), но есть ли что-нибудь, что можно сделать, что близко к этой функциональности, или нужно сначала записать строку в Документ, а затем загрузить в объект Range и ТО есть свойство Style?

1 Ответ

0 голосов
/ 05 мая 2018 
With ActiveDocument.Shapes("Text Box 7").TextFrame.TextRange
  .Style = "Style1"
  .Text = str1 & " "
  .Collapse wdCollapseEnd
  .Style = "Style2"
  .Text = str2 & ", "
  .Collapse wdCollapseEnd
  .Style = "Style3"
  .Text = str3
End With
...