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

Вход

Регистрация

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

 

= Мир MS Excel/Печать шапки таблицы на каждой странице через макрос - Мир MS Excel

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

Excel 2007
Добрый день
нужна помощь.
Есть документ ворд, в нем есть таблица, после открытия данного документа чере автоматизированную систему. таблица расширяеться.
Необходимо в макросе прописать код, который бы дабовлял на каждой странице, где есть таблица шапку.
Подскажите как это сделать!
 
Ответить
СообщениеДобрый день
нужна помощь.
Есть документ ворд, в нем есть таблица, после открытия данного документа чере автоматизированную систему. таблица расширяеться.
Необходимо в макросе прописать код, который бы дабовлял на каждой странице, где есть таблица шапку.
Подскажите как это сделать!

Автор - redrose
Дата добавления - 05.02.2016 в 14:10
SLAVICK Дата: Пятница, 05.02.2016, 14:17 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1849
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
А зачем макрос?
В ворде есть штатные средства повтора шапки таблицы:
К сообщению приложен файл: 3840670.jpg(34Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеА зачем макрос?
В ворде есть штатные средства повтора шапки таблицы:

Автор - SLAVICK
Дата добавления - 05.02.2016 в 14:17
redrose Дата: Пятница, 05.02.2016, 14:29 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Есть, но после печати документа через автоматизированую систему таблица расширяется, данные подтягиваются. вот ищу способ добавить ее через макрос
 
Ответить
СообщениеЕсть, но после печати документа через автоматизированую систему таблица расширяется, данные подтягиваются. вот ищу способ добавить ее через макрос

Автор - redrose
Дата добавления - 05.02.2016 в 14:29
krosav4ig Дата: Пятница, 05.02.2016, 19:35 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1362
Репутация: 548 ±
Замечаний: 0% ±

Excel 2007, 2013
мб я чего-то недопонял...
в thisdocument вставьте такой код
[vba]
Код
Private Sub Document_Open()
    Dim tbl As Table
    For Each tbl In Me.Tables
        tblrRows(1).HeadingFormat = True
    Next
End Sub
[/vba]

или
в модуле класса clsAppWord
[vba]
Код
Public WithEvents App As Word.Application
Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
    Dim tbl As Table
    If Doc Is ThisDocument Then
        For Each tbl In Doc.Tables
            tbl.Rows(1).HeadingFormat = True
        Next
    End If
End Sub
[/vba]
в стандартном модуле
[vba]
Код
Public objAppWord As New clsAppWord
Sub AutoOpen()
    Set objAppWord.App = Parent
End Sub
[/vba]
К сообщению приложен файл: Doc2.docm(23Kb)


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Пятница, 05.02.2016, 21:55
 
Ответить
Сообщениемб я чего-то недопонял...
в thisdocument вставьте такой код
[vba]
Код
Private Sub Document_Open()
    Dim tbl As Table
    For Each tbl In Me.Tables
        tblrRows(1).HeadingFormat = True
    Next
End Sub
[/vba]

или
в модуле класса clsAppWord
[vba]
Код
Public WithEvents App As Word.Application
Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
    Dim tbl As Table
    If Doc Is ThisDocument Then
        For Each tbl In Doc.Tables
            tbl.Rows(1).HeadingFormat = True
        Next
    End If
End Sub
[/vba]
в стандартном модуле
[vba]
Код
Public objAppWord As New clsAppWord
Sub AutoOpen()
    Set objAppWord.App = Parent
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 05.02.2016 в 19:35
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Печать шапки таблицы на каждой странице через макрос
Страница 1 из 11
Поиск:

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