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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить номер страницы в верхний колонтитул Word (Не получается воткнуть номер страницы при выгрузке из Excel)
Вставить номер страницы в верхний колонтитул Word
buchlotnik Дата: Пятница, 01.04.2016, 11:06 | Сообщение № 1
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

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(31Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru
 
Ответить
СообщениеЗдравствуйте, коллеги.

Возникла такая проблема - из экселевского файла делаю выгрузку в 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
Группа: Модераторы
Ранг: Старожил
Сообщений: 1849
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
Добавил одну точку и удалил одну строку :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(27Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеДобавил одну точку и удалил одну строку :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
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

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


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru


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

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

2007,2010,2013,2016
[offtop]
Слона-то я и не приметил

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

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


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

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

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

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

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