Замена текста в Word макросом из Excel - VBA

Узнай цену своей работы

Формулировка задачи:

Есть файл Экселя с данными, есть текстовый шаблон Ворда с метками для этих данных Сделал макрос для псевдослияния (штатное слияние данных не понравилось как работает)
Все работает отлично до тех пор пока в ReplaceText не оказывается длинный текст (более 255 символов), что приводит к ошибке. Поиск в инете привел к двум вариантам: 1) разбитие ReplaceText на части (но это какое-то корявое решение) 2) использование Selection.TypeText Но правильно включить в мой макрос Selection.TypeText у меня так и не получилось Подскажите пжл как грамотно поправить макрос?

Решение задачи: «Замена текста в Word макросом из Excel»

textual
Листинг программы
WA.Selection.HomeKey 6 'wdStory
With WA.Selection.Find
    .Text = FindText
    .Forward = True
    .Wrap = 1   'wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    Do While .Execute
        WA.Selection.TypeText ReplaceText
        WA.Selection.Collapse Direction:=0 'wdCollapseEnd
    Loop
End With

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5