Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Page Footer in VBA / 4 сообщений из 4, страница 1 из 1
07.06.2005, 00:44:50
    #33103714
CLilian
CLilian
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Page Footer in VBA
Привет всем!
Пытаюсь вставить из ВБ 6.0 в обьект Ворд в PageFooter дату и номер станицы но ошбочька. Помогите понять в чем дело и как решить.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    Set wrd = New Word.Application
    wrd.Documents.Add

    wrd.ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesFooter
    wrd.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
    wrd.Selection.TypeText Text:=" "
    wrd.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldTime
    wrd.Selection.TypeText Text:=vbTab & vbTab
    wrd.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
    wrd.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Ошибка в выделеной строке.
За рание спосибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2005, 08:25:34
    #33103843
nibbles
nibbles
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Page Footer in VBA
CLilianПривет всем!
Пытаюсь вставить из ВБ 6.0 в обьект Ворд в PageFooter дату и номер станицы но ошбочька. Помогите понять в чем дело и как решить.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    Set wrd = New Word.Application
    wrd.Documents.Add

    wrd.ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesFooter
    wrd.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
    wrd.Selection.TypeText Text:=" "
    wrd.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldTime
    wrd.Selection.TypeText Text:=vbTab & vbTab
    wrd.Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
    wrd.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Ошибка в выделеной строке.
За рание спосибо!
Необходимо включить режим разметки перед использованием View.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2005, 08:31:48
    #33103850
nibbles
nibbles
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Page Footer in VBA
и добавить нижний и верхний колонтитулы где-то так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes( 2 ).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2005, 02:45:57
    #33106212
CLilian
CLilian
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Page Footer in VBA
Спосибо разобрался! Тема закрыта.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Page Footer in VBA / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 306ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2167671]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 48ms
get topic data:
 8ms
get forum data:
 1ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 203ms
total:  306ms
x
x
Закрыть


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