Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена текста в колонтитуле / 7 сообщений из 7, страница 1 из 1
02.02.2012, 15:52
    #37644156
NuclearMaxxx
NuclearMaxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена текста в колонтитуле
Здравствуйте!
Поделитесь пожалуйста кодом - как в макросе сделать замену текста в колонтитуле. По тексту документа замена проходит без проблем - а текст колонтитула не видит макросик мой(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2012, 15:55
    #37644172
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена текста в колонтитуле
Для начала неплохо бы указать среду обитания.

кроме того, кто мешает запустить "запись макроса" и посмотреть, что получается при редактировании колонтитула.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2012, 15:58
    #37644182
NuclearMaxxx
NuclearMaxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена текста в колонтитуле
ой, точно - Word 2003.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2012, 16:00
    #37644185
NuclearMaxxx
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
| Ответить | Цитировать | Написать  
02.02.2012, 16:14
    #37644227
AndreTM
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
| Ответить | Цитировать | Написать  
03.02.2012, 06:40
    #37645090
NuclearMaxxx
NuclearMaxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена текста в колонтитуле
Selection.Find.Execute Replace:=wdReplaceAll - этой строки не хватало, спасибо.

А как выйти из колонтитула не подскажите?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2012, 06:42
    #37645091
NuclearMaxxx
NuclearMaxxx
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена текста в колонтитуле
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ))
Всем спасибо)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена текста в колонтитуле / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 463ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2176059]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 236ms
total:  463ms
x
x
Закрыть


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