Тема: таблицы
макрос поворота таблиц в ворд 2007
Re: таблицы
для начала --от вас пример таблицы
--есть ли объединенные ячейки
--видимо нужна альбомная ориентация таблицы при книжной самого документа
может достаточно альбомная ориентация страниц, но рамка повернута
---
я вряд ли буду делать подобное, но исполнителю пригодятся ответы на эти вопросы
ведь повернутая таблица может не влезь на лист
- Fck_This
- генерал-полковник
- Неактивен
Re: таблицы
TASHT66 пишет:
макрос поворота таблиц в ворд 2007
140315926@rambler.ru присылайте документ.
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871
- Fck_This
- генерал-полковник
- Неактивен
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