Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставить номер страницы в верхний колонтитул Word - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить номер страницы в верхний колонтитул Word (Не получается воткнуть номер страницы при выгрузке из Excel)
Вставить номер страницы в верхний колонтитул Word
buchlotnik Дата: Пятница, 01.04.2016, 11:06 | Сообщение № 1
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Здравствуйте, коллеги.

Возникла такая проблема - из экселевского файла делаю выгрузку в Word - необходимо добавить номер страницы в верхний колонтитул.
При отработке код выдаёт ошибку на попытке вставить поле - выделил красным.

Кто-нибудь может подсказать в чём проблема?

[vba]
Код
Sub cr()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    With WordApp
        .Visible = True
        .Documents.Add
        .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        .ActiveDocument.Tables.Add Range:=.Selection.Range, NumRows:=1, NumColumns:= _
                1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
                wdAutoFitFixed
         .ActiveDocument.Tables(1).Cell(1, 1).Select
         .Selection.TypeText Text:="Страница "
        [color=red] .Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
                "PAGE  ", PreserveFormatting:=True[/color=red]
        .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        .Activate
    End With
End Sub
[/vba]
К сообщению приложен файл: 0107479.xls (31.0 Kb)
 
Ответить
СообщениеЗдравствуйте, коллеги.

Возникла такая проблема - из экселевского файла делаю выгрузку в Word - необходимо добавить номер страницы в верхний колонтитул.
При отработке код выдаёт ошибку на попытке вставить поле - выделил красным.

Кто-нибудь может подсказать в чём проблема?

[vba]
Код
Sub cr()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    With WordApp
        .Visible = True
        .Documents.Add
        .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        .ActiveDocument.Tables.Add Range:=.Selection.Range, NumRows:=1, NumColumns:= _
                1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
                wdAutoFitFixed
         .ActiveDocument.Tables(1).Cell(1, 1).Select
         .Selection.TypeText Text:="Страница "
        [color=red] .Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
                "PAGE  ", PreserveFormatting:=True[/color=red]
        .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        .Activate
    End With
End Sub
[/vba]

Автор - buchlotnik
Дата добавления - 01.04.2016 в 11:06
SLAVICK Дата: Пятница, 01.04.2016, 11:58 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Добавил одну точку и удалил одну строку :D
[vba]
Код
Sub colo1()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    With WordApp
        .Visible = True
        .Documents.Add
        .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        .ActiveDocument.Tables.Add Range:=.Selection.Range, NumRows:=1, NumColumns:= _
                1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
                wdAutoFitFixed
         .Selection.TypeText Text:="Страница "
         .Selection.Fields.Add Range:=.Selection.Range, Type:=wdFieldEmpty, Text:= _
                "PAGE  ", PreserveFormatting:=True
        .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        .Activate
    End With
End Sub
[/vba]
И еще обязательно подключить библиотеку:
Microsoft.word ....
Файл и пример того что у меня получилось в архиве
К сообщению приложен файл: Doc1.zip (27.2 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеДобавил одну точку и удалил одну строку :D
[vba]
Код
Sub colo1()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    With WordApp
        .Visible = True
        .Documents.Add
        .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        .ActiveDocument.Tables.Add Range:=.Selection.Range, NumRows:=1, NumColumns:= _
                1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
                wdAutoFitFixed
         .Selection.TypeText Text:="Страница "
         .Selection.Fields.Add Range:=.Selection.Range, Type:=wdFieldEmpty, Text:= _
                "PAGE  ", PreserveFormatting:=True
        .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        .Activate
    End With
End Sub
[/vba]
И еще обязательно подключить библиотеку:
Microsoft.word ....
Файл и пример того что у меня получилось в архиве

Автор - SLAVICK
Дата добавления - 01.04.2016 в 11:58
buchlotnik Дата: Пятница, 01.04.2016, 13:12 | Сообщение № 3
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
И еще обязательно подключить библиотеку:
Господи... всё пора на пенсию B) Слона-то я и не приметил
[p.s.]а ответ очень красивый получился hands
К сообщению приложен файл: 8988119.jpg (16.6 Kb)


Сообщение отредактировал buchlotnik - Пятница, 01.04.2016, 13:13
 
Ответить
Сообщение
Цитата
И еще обязательно подключить библиотеку:
Господи... всё пора на пенсию B) Слона-то я и не приметил
[p.s.]а ответ очень красивый получился hands

Автор - buchlotnik
Дата добавления - 01.04.2016 в 13:12
SLAVICK Дата: Пятница, 01.04.2016, 13:42 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
[offtop]
Слона-то я и не приметил

Да слоны как и медведи - они такие. :o
Иногда сам смотрю, смотрю и ... не вижу. На утро открываю файл - и ответ сам в глаза бросается.
а ответ очень красивый получился

Вот и "слон", которого я не заметил ;) [/offtop]


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение[offtop]
Слона-то я и не приметил

Да слоны как и медведи - они такие. :o
Иногда сам смотрю, смотрю и ... не вижу. На утро открываю файл - и ответ сам в глаза бросается.
а ответ очень красивый получился

Вот и "слон", которого я не заметил ;) [/offtop]

Автор - SLAVICK
Дата добавления - 01.04.2016 в 13:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить номер страницы в верхний колонтитул Word (Не получается воткнуть номер страницы при выгрузке из Excel)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!