Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Замена слов в абзацах по номеру / 3 сообщений из 3, страница 1 из 1
07.10.2019, 15:42
    #39872688
_zax13_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена слов в абзацах по номеру
День добрый, Нужен макрос) Который должен находить 1 абзац в документе word начиная со 2-ой страницы и заменять во всех абзацах до конца документа отображение N-слов в зависимости от цифры, которую вводит пользователь в поле "Укажите какое слово по счету менять". Связать макрос с формой понимаю как. Также смог написать макрос заменяющий слова во всем документе по номеру, т.е. в строке каждое слово с таким номером (который ввел пользователь) будет заменено. Но как:
1. Сделать, чтобы все начиналось со второй страницы;
2. Находить в каждом абзаце первое вхождение слова с таким номером, изменять и переходить к следующему абзацу.
Буду рад любой помощи)
...
Рейтинг: 0 / 0
07.10.2019, 16:12
    #39872710
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена слов в абзацах по номеру
_zax13_1. Сделать, чтобы все начиналось со второй страницы;
Код: vbnet
1.
2.
3.
For Each par In ThisDocument.Range.Paragraphs
  Debug.Print par.Range.Information(wdActiveEndPageNumber)
Next
...
Рейтинг: 0 / 0
07.10.2019, 16:16
    #39872715
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена слов в абзацах по номеру
Код: vbnet
1.
2.
3.
4.
5.
Dim par As Paragraph
For Each par In ThisDocument.Range.Paragraphs
  Debug.Print par.Range.Information(wdActiveEndPageNumber)
  Debug.Print par.Range.Words(2)
Next
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Замена слов в абзацах по номеру / 3 сообщений из 3, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]