Печать шапки таблицы на каждой странице через макрос

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Печать шапки таблицы на каждой странице через макрос

redrose

Дата: Пятница, 05.02.2016, 14:10 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

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

Ответить

SLAVICK

Дата: Пятница, 05.02.2016, 14:17 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

А зачем макрос?
В ворде есть штатные средства повтора шапки таблицы:

К сообщению приложен файл: 3840670.jpg (34.5 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

redrose

Дата: Пятница, 05.02.2016, 14:29 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

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

Ответить

krosav4ig

Дата: Пятница, 05.02.2016, 19:35 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 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

Ответить

Страница 1 из 1
1