powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена текста в колонтитуле
7 сообщений из 7, страница 1 из 1
Замена текста в колонтитуле
    #37644156
NuclearMaxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте!
Поделитесь пожалуйста кодом - как в макросе сделать замену текста в колонтитуле. По тексту документа замена проходит без проблем - а текст колонтитула не видит макросик мой(
...
Рейтинг: 0 / 0
Замена текста в колонтитуле
    #37644172
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для начала неплохо бы указать среду обитания.

кроме того, кто мешает запустить "запись макроса" и посмотреть, что получается при редактировании колонтитула.
...
Рейтинг: 0 / 0
Замена текста в колонтитуле
    #37644182
NuclearMaxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ой, точно - Word 2003.
...
Рейтинг: 0 / 0
Замена текста в колонтитуле
    #37644185
NuclearMaxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: vbnet
1.
2.
3.
4.
5.
[/SRC]ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.Find.Text = "#hhh#"
Selection.Find.Replacement.Text = "ФИО"
Selection.Find.Forward = True
Selection.Find.Wrap = wdFindContinue[SRC VB]




Такой код пробую - в колонтитул заходить и усё. Ничего в нем не меняет.
...
Рейтинг: 0 / 0
Замена текста в колонтитуле
    #37644227
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А так?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "#hhh#"
        .Replacement.Text = "ФИО"
        .Forward = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
...
Рейтинг: 0 / 0
Замена текста в колонтитуле
    #37645090
NuclearMaxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Selection.Find.Execute Replace:=wdReplaceAll - этой строки не хватало, спасибо.

А как выйти из колонтитула не подскажите?
...
Рейтинг: 0 / 0
Замена текста в колонтитуле
    #37645091
NuclearMaxxx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ))
Всем спасибо)
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена текста в колонтитуле
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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