1 Тема от TASHT66

  • TASHT66
  • рядовой
  • Неактивен
  • Зарегистрирован: 23.03.2017
  • Сообщений: 2

Тема: таблицы

макрос поворота таблиц в ворд 2007

2 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119

Re: таблицы

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

может достаточно альбомная ориентация страниц,  но рамка повернута

---
я вряд ли буду делать подобное, но исполнителю пригодятся ответы на эти вопросы
ведь повернутая таблица может не влезь на лист

3 Ответ от Fck_This

  • таблицы
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: таблицы

TASHT66 пишет:

макрос поворота таблиц в ворд 2007

140315926@rambler.ru присылайте документ.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

4 Ответ от Fck_This

  • таблицы
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: таблицы

А может вам и такого хватит?

Sub АльбомнаяОриентация()
Dim oTable As Table
Dim iPosition, iEvery As Long
Dim iCounter, iNumber As Integer
Set oTable = Selection.Tables(1)
    iPosition = oTable.Range.Start
    For iCounter = 1 To ActiveDocument.Tables.Count
        iEvery = ActiveDocument.Tables(iCounter).Range.Start
    If iEvery = iPosition Then
        iNumber = iCounter
    End If
    Next iCounter
    With Selection
        If ActiveDocument.Sections(.Information(wdActiveEndSectionNumber)).PageSetup.Orientation = wdOrientLandscape Then Exit Sub
        If .Type = wdNoSelection Or .Type = wdSelectionIP Then Exit Sub
        .Cut
        .TypeParagraph
        .InsertBreak Type:=wdSectionBreakNextPage
        .PageSetup.Orientation = wdOrientLandscape
        .Paste
        .InsertBreak Type:=wdSectionBreakNextPage
        .PageSetup.Orientation = wdOrientPortrait
    End With
Set oTable = ActiveDocument.Range.Tables(iNumber)
oTable.Select
    With Selection.Tables(1)
        .PreferredWidthType = wdPreferredWidthPercent
        .PreferredWidth = 100
        .Rows.LeftIndent = CentimetersToPoints(0)
        .TopPadding = CentimetersToPoints(0)
        .BottomPadding = CentimetersToPoints(0)
        .LeftPadding = CentimetersToPoints(0)
        .RightPadding = CentimetersToPoints(0)
        .Spacing = 0
        .AllowPageBreaks = True
        .AllowAutoFit = True
    End With
End Sub
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871