Вопрос по VBA в Word

[aleksasha]

Сразу сорри за оффтоп.
В Ворде пишется макрос кот. будет вставлять теги в начале и в конце абзаца, в котором встречается определенная последовательность символов (например, "www"). Код, который ставит закрывающий тэг:

With ActiveDocument.Content.Find
     .Text = "www"
     Do While .Execute() = True
       With .Parent
         .EndOf Unit:=wdParagraph, Extend:=wdMove
         .InsertAfter "<\b>"
         .Move Unit:=wdParagraph, Count:=1
        End With
     Loop
End With

Проблема в том, что концом Параграфа VBA считает символ перевода строки, а не последний символ абзаца, поэтому тэг ставится уже в следующем абзаце. Как это побороть?

 

[aleksasha]

Ответ: Вопрос по VBA в Word

Сам себе и отвечу... Пришлось покопаться в дебрях VBA. Код, в котором проставляются и начальные и конечные теги...

    With ActiveDocument.Content.Find
     .ClearFormatting
     .MatchWildcards = False
     .Text = "www"
     Do While .Execute() = True
         With .Parent
         .StartOf Unit:=wdParagraph, Extend:=wdMove
         .InsertAfter "<b>"
         .MoveEndUntil Cset:=vbCr, Count:=wdForward
         .InsertAfter "<\b>"
         .Move Unit:=wdParagraph, Count:=1
         End With
     Loop
    End With

 

[buden]

Ответ: Вопрос по VBA в Word

Record macro
help
что-то вроде этого см. ниже (record ctrl+c->v, без чистки )
авось пригодится
module1.bas.txt