宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。
将以下代码输入或复制进去:
Selection.Cut '剪切选中的图文框
For k = 1 To 10 '粘贴10次
Selection.Paste
Next
Selection.MoveLeft Unit:=wdItem '选中第1个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameLeft '水平相对于页边距、左侧 .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin .VerticalPosition = wdFrameBottom '垂直相对于页边距、低端 .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
End With
Selection.MoveLeft Unit:=wdItem '选中第2个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameRight '水平相对于页边距、右侧 .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin .VerticalPosition = wdFrameBottom '垂直相对于页边距、低端 .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
End With
Selection.MoveLeft Unit:=wdItem '选中第3个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameRight '水平相对于页边距、右侧 .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin .VerticalPosition = CentimetersToPoints(17.7) '垂直相对于页面、17.7厘米 .RelativeVerticalPosition = wdRelativeVerticalPositionPage
End With
Selection.MoveLeft Unit:=wdItem '选中第4个图文框
With Selection.Frames(1)[next]
.HorizontalPosition = wdFrameLeft '水平相对于页边距、左侧 .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin .VerticalPosition = CentimetersToPoints(17.7) '垂直相对于页面、17.7厘米 .RelativeVerticalPosition = wdRelativeVerticalPositionPage
End With
Selection.MoveLeft Unit:=wdItem '选中第5个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameLeft '水平相对于页边距、左侧 .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin .VerticalPosition = wdFrameCenter '垂直相对于页边距、居中 .RelativeVerticalPosition =wdRelativeVerticalPositionMargin
End With
Selection.MoveLeft Unit:=wdItem '选中第6个图文
Office办公软件是办公的第一选择,这个地球人都知道。除了微软Office,市面上也存在很多其他Office类软件。
|