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

[Polotenchik]

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

[viter.alex]

При копировании откуда?
Вот так, например:

Sub MyTableFormat()
  If Selection.Information(wdWithInTable) Then
    With Selection.Tables(1)
      .AutoFitBehavior wdAutoFitWindow
      .PreferredWidthType = wdPreferredWidthPercent
      .PreferredWidth = 100
      .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
      .Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    End With
  End If
End Sub

Чтобы работало, курсор должен находиться в таблице

[Polotenchik]

не! мне не программно. Ну или программно или макрос я просто не знаю как. Как-то в стилях шаблона эта можно настроить? Т.е что бы при копировании из любого другого документа любой таблицы в мой документ, таблица форматировалась согласно моему шаблону.

[viter.alex]

Стилем настроить ширину таблицы нельзя. Ведь тогда все таблицы данного стиля будут иметь одинаковую ширину. И для создания таблицы другой ширины придётся создавать новый стиль. Абсурд, как по-моему.

[Polotenchik]

Не ширину, а выравнивание таблицы по ширине окна!

[viter.alex]

Нет такого параметра. Таблицу можно выровнять по центру, по левому краю, по правому краю

[Polotenchik]

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

Нет такого параметра. Таблицу можно выровнять по центру, по левому краю, по правому краю

Выделяем таблицу - макет - автоподбор - автоподбор по ширине окна.

[viter.alex]

Я же говорю, что нет выравнивания по ширине. А есть подгонка ширины столбцов по ширине окна. Стилем это нельзя задать. Только программно:

Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)

[Polotenchik]

Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)

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

[Sasha_Smirnov]

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