AleksMed
А как в макросе присвоить параметры страницы одного документа другому.
Записал макрос, потом посмотрел код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
With ActiveDocument.Range(Start:=Selection.Start, End:=ActiveDocument. _
Content.End).PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints( 1 . 3 )
.BottomMargin = CentimetersToPoints( 1 . 3 )
.LeftMargin = CentimetersToPoints( 1 . 5 )
.RightMargin = CentimetersToPoints( 1 . 5 )
.Gutter = CentimetersToPoints( 0 )
.HeaderDistance = CentimetersToPoints( 1 . 25 )
.FooterDistance = CentimetersToPoints( 1 . 25 )
.PageWidth = CentimetersToPoints( 21 )
.PageHeight = CentimetersToPoints( 29 . 7 )
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
End With
Так вот как эти свойства назначить в другом документе.
Есть ли способ без перечисления, а что-то типа:
Dim PS As Object
Set PS = ActiveDocument.PageSetup
Selection.InsertBreak Type:=wdPageBreak
ActiveDocument.Range(Start:=Selection.Start, End:=ActiveDocument. _
Content.End).PageSetup = PS
Это не работает. VB не знаю.
