[摘要]宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。
将以下代码输入或复制进去：Selection.Cut '剪切选中的图... 宏"菜单，选择前面定义宏"复制排版"，单击"编辑"按钮，进入编辑状态。
将以下代码输入或复制进去：
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个图文
|