powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Замена слов в абзацах по номеру
3 сообщений из 3, страница 1 из 1
Замена слов в абзацах по номеру
    #39872688
_zax13_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
День добрый, Нужен макрос) Который должен находить 1 абзац в документе word начиная со 2-ой страницы и заменять во всех абзацах до конца документа отображение N-слов в зависимости от цифры, которую вводит пользователь в поле "Укажите какое слово по счету менять". Связать макрос с формой понимаю как. Также смог написать макрос заменяющий слова во всем документе по номеру, т.е. в строке каждое слово с таким номером (который ввел пользователь) будет заменено. Но как:
1. Сделать, чтобы все начиналось со второй страницы;
2. Находить в каждом абзаце первое вхождение слова с таким номером, изменять и переходить к следующему абзацу.
Буду рад любой помощи)
...
Рейтинг: 0 / 0
Замена слов в абзацах по номеру
    #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
Замена слов в абзацах по номеру
    #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
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Замена слов в абзацах по номеру
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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