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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир 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
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

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

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

Excel 2007,2010,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 (22.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал 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 из 1
  • 1
Поиск:

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