Макрос заменить текст word

На просторах интернета нашел вот такой макрос

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

Sub FindInStories()
  Dim myStoryRange As Range
  For Each myStoryRange In ActiveDocument.StoryRanges
    With myStoryRange
      With .Find
        .Text = "ааа"
        .Replacement.Text = "ооо"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
      While Not (.NextStoryRange Is Nothing)
        Set myStoryRange = .NextStoryRange
        With .Find
          .Text = "ааа"
          .Replacement.Text = "ооо"
          .Forward = True
          .Wrap = wdFindContinue
          .Format = True
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
          .Execute Replace:=wdReplaceAll
        End With
      Wend
    End With
  Next myStoryRange
End Sub

Данный макрос делает замену текста во всем документе и даже в колонтитулах, что для меня очень удобно. Но в маем случае нужен вариант когда нужно ввести текст на который необходимо заменить.
Я вставлял в .Replacement.Text = «ооо» вот так .Replacement.Text = InputBox(«введите № «), и окно выскакивал постоянно, сколько замен он бы не делал, и в каждом я набирал текст замены.
Можно ли сделать так, что бы я ввел один раз и он далее подставлял везде это.
Заранее спасибо.

ВикиЧтение

VBA для чайников
Каммингс Стив

We’d be glad to help with a solution. But you need to demonstrate a minimal understanding of the problem being solved, see the SO question checklist for details. Please note that your question does not meet Stack Overflow’s guidelines as it stands right now, but it’s easy to fix! After you review the guidelines, click «edit» under your question and polish it up a bit.

Everyone starts out being new to something. Being new, you have a few good options for getting your project started.

You may try using the code in the link you’ve pasted above to start, and try modifying it somewhat for your own purposes.

One of the best options is to record a macro, then go into the VBA editor (by pressing Alt-F11) to look at the code the macro made. This lets you see how code is set up and gives you a starting point for writing your own code.

Also, you can look through the Microsoft help files, available through the help menu in VBA editor. There are numerous Excel VBA websites online as well.

Edit: To use the code in the link you’ve posted, you can ignore the section that searches for subfolders and adds them to the collection. At the beginning of the next section that loops through the files, there is a statement:

For Each varItem In colSubFolders

Take out this For…Each loop that searches through the subfolders current directory, and just use the code inside it that looks through the Word docs in the subfolder (now looking through Word docs in one folder only, not every subfolder.)

Visual Basic for Applications (VBA, Visual Basic для приложений) — немного упрощённая реализация языка программирования Visual Basic, встроенная в линейку продуктов Microsoft Office.

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

Например, можно автоматизировать обработку содержимого ячеек в Excel или ускорить исправление ошибок оформления документов в Word. Написание макросов для Excel пользуется популярностью у продвинутых пользователей Microsoft Office. Кому-то удается научиться этому самостоятельно, а кто-то записывается на курсы Excel в Алматы или в своем городе.

Созданные программы на языке VBA называются макросами.

Попробуем создать простой макрос обработки текста в Word.

Для начала стоит понять какая последовательность действий прописывается в макрос с помощью макрорекордера (инструмент для записи ваших действий с помощью кода VBA).

Для примера найдем все точки в тексте и заменим их на запятые. Заходим на вкладку Разработчик -> Код -> Запись макроса.

Теперь перейдем на вкладку Главная -> Редактирование -> Заменить.
Вводим «.» в поле Найти и «,» в поле Заменить на. Жмем Заменить все.

Теперь останавливаем запись макрорекордера командой Разработчик -> Код -> Остановить запись.

Это все! Ваш первый макрос готов. Давайте же посмотрим на него. Заходим Разработчик -> Код -> Visual Basic.
В окне редактирования кода появится такая штука:

Sub Макрос1()
'
' Макрос1 Макрос
'
'
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
 .Text = "."
 .Replacement.Text = ","
 .Forward = True
 .Wrap = wdFindContinue
 .Format = False
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .MatchSoundsLike = False
 .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Постановка задачи. На основе этого кода создать более функциональный макрос. Пусть он будет проводить поиск и замену пробелов возле точек, запятых, новых строк, скобок и заменять несколько подряд стоящих пробелов на один.

Для этого будут использоваться регулярные выражения (конструкции для поиска и осуществления манипуляций с подстроками в тексте, основанные на использовании метасимволов).

Для поискомого и заменяемого текста в макросе используются следующие строки

.Text = "."
.Replacement.Text = ","

Использованные конструкции регулярных выражений приведены в таблице.

Теперь необходимо все это оформить в компактном виде. Для этого удобно создать пару массивов и загнать все в цикл.

В итоге получим:

Sub Замена()

Dim arrText() As Variant
arrText = Array("([а-я]) @(.)", _
 "([а-я].@)([А-Я])", _
 "([а-я]) @(,)", _
 "([а-я],)([а-я])", _
 "(.) (^13)", _
 "( ){2;}", _
 "( ", _
 " )")

Dim arrReplaceText() As Variant
arrReplaceText = Array("12", _
 "1 2", _
 "12", _
 "1 2", _
 "12", _
 " ", _
 "(", _
 ")")

Selection.WholeStory

For i = 0 To UBound(arrText)

 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
 .Text = arrText(i)
 .Replacement.Text = arrReplaceText(i)
 .Forward = True
 .Wrap = wdFindContinue
 .Format = False
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = True
 .MatchSoundsLike = False
 .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
Next

End Sub

Полученный макрос сохраняем вместе с документом. Вызвать макрос можно из меню Разработчик или с помощью назначенной комбинации горячих клавиш (Файл -> Параметры -> Настройка ленты -> Сочетания клавиш: Настройка…)

Автор: Stanislaw

2016-05-16 • Просмотров [ 12577 ]

По просьбам читателей сайта Александр Витер разработал свой вариант макроса пакетной замены фрагментов текста в документах Word. Об этом его просили в комментариях к заметке Поиск и замена текста во многих документах одновременно.

Александр предлагает скачать (ниже) бета-версию его разработки кто заинтересован в подобном решении. Вот, что он предлагает.

Это третья бета-версия макроса пакетной замены. Теперь ее нужно тестировать.

Что уже сделано:

1. Доработан механизм поиска в документе. Текст можно заменять как в основном тексте, так и в надписях, в гиперссылках и объектах WordArt.

2. Добавлены опции «Учитывать регистр» и «Слово целиком».

3. Если файл доступен только для чтения, то он просто пропускается. Запись об этом делается в лог-файл. Таким образом, можно работать и с документами в локальной сети.

4. Глубина вложенности каталогов, в которых можно искать файлы, удовлетворяющие шаблону, не ограничена.

5. Каждый сеанс поисказамены записывается в подробный лог-файл с указанием документа, проведенных в нем замен, затраченного времени и настроек замены.

6. В процессе поисказамены отображается прогресс-бар.

Я со своей стороны провел тесты, у меня ошибок не возникает. Возможные ошибки я постарался предусмотреть, но над этим еще нужно будет работать.

Итак, пожалуйста скачивайте макрос и пробуйте его в деле. Все замечания по макросу (ошибки, предложения) пишите в комментариях к этой заметке.