Поиск и замена текста в надписях - VBA

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

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

Здравствуйте. Необходимо решить проблему в крайние сроки. Может решение у меня под носом, но голова не варит( В общем есть документ вордовский и в нем я сделал надписи в автофигурах. Мне необходимо сделать макрос по поиску и замене надписей в этих автофигурах. нашел код, сделал, но поиск и замена надписи происходит только в первой автофигуре. вот код:
Код не полный, так как тот который я нашел не работает, вся программа зависает и приходится перезапускать. Вот полный код.
и да кстати стандартными средствами поиска и замены все получается, но мне необходим макрос. записывал, но все равно та же беда(

Решение задачи: «Поиск и замена текста в надписях»

textual
Листинг программы
Dim rng As Range
Dim sh As Shape
Dim str As String
 
For Each sh In ActiveDocument.Shapes
   With sh.TextFrame
      If .HasText <> 0 Then
         Set rng = .TextRange
         With rng.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "Что заменить"
            .Replacement.Text = "На что заменить"
            .Forward = True
            .Wrap = wdFindContinue
            .MatchCase = False
            .Execute Replace:=wdReplaceAll
         End With
      End If
   End With
Next sh

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

10   голосов , оценка 4.4 из 5
Похожие ответы