Вставка таблиц в шаблон с выравниванием по ширине окна

[Polotenchik]

Сообщение от Sasha_Smirnov

Этот же код, но с Tables(2), Tables(3), Tables(4)... пока не кончатся.

Ну а как сделать, что бы макрос проходил по всему документу и выполнял эта для всех таблиц?

[akokin]

Сообщение от Polotenchik

Ну а как сделать, что бы макрос проходил по всему документу и выполнял эта для всех таблиц?

Dim tbl as Table
For each tbl in ActiveDocument.Tables
...
Next tbl

[Polotenchik]

Хм! Создал новый макрос Test и задал ему такой код:

Sub Test()
'
' Test Макрос
'
'
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
Selection.Tables(tbl).AutoFitBehavior (wdAutoFitWindow)
Next tbl

End Sub

Не работает! Что сделал не так?

Разобрался! Надо было так:
tbl.AutoFitBehavior (wdAutoFitWindow)

А как мне сюда же вставить, что бы текст в каждой таблице выравнивался по центру как по верт, так по гор?

Если так записать макрос, то код такой:

   Selection.SelectCell
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter

Как это правильно вставить в наш цикл?

[Polotenchik]

Подскажите пожалуйста!

[viter.alex]

Сообщение от Polotenchik

…А как мне сюда же вставить, что бы текст в каждой таблице выравнивался по центру как по верт, так по гор?

Если так записать макрос, то код такой:

   Selection.SelectCell
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter

Как это правильно вставить в наш цикл?

Selection.SelectCell убери. А в остальных строках вместо Selection поставь tbl.Range. Естественно, в цикле, как и AutoFit

[Polotenchik]

Спасибо! Я наверное Вас уже достал, извините. Подскажите еще пожалуйста:

Мне надо перед таблицей удалить одну строку лишнею, ту что между названием таблицы и таблицей.

Выделяю таблицу и просто записываю макрос:

    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1

А как его применить к циклу? tbl.Range. не прокатывает!

[viter.alex]

tbl.Range как раз прокатывает.

tbl.Range.Paragraphs.First.Previous.Range.Delete

что по-русски означает: удалить абзац перед первым абзацем в таблице

[Polotenchik]

Сообщение от viter.alex

tbl.Range как раз прокатывает.

tbl.Range.Paragraphs.First.Previous.Range.Delete

что по-русски означает: удалить абзац перед первым абзацем в таблице

А как быть с изменением шрифта и размера?:

Selection.Font.Name = "Calibri"
    Selection.Font.Size = 10

Есть какие-то общин понятия? От куда Вы это все берете?

[viter.alex]

Всё это я беру из изучения объектной модели Word. Есть объект Range со своими свойствами и методами, есть объект Selection, есть Table и т.д. И всё это есть в справке. Обратите внимание на подпись Sasha_Smirnov!
А по вашему примеру всё то же: замените Selection на tbl.Range и всё.

[Polotenchik]

ой прошу прощения тут все просто tbl.Range.Font.Size = 10! я просто так пробовал и выдал ошибку, но она не в этой строке была...