|
Word2000下创建名片制作模板(2) .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)
.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个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameRight '水平相对于页边距、右侧
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = wdFrameCenter '垂直相对于页边距、居中
.RelativeVerticalPosition =wdRelativeVerticalPositionMargin
End With
Selection.MoveLeft Unit:=wdItem '选中第7个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameRight '水平相对于页边距、右侧
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = CentimetersToPoints(6.4) '垂直相对于页面、6.4厘米
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
End With
Selection.MoveLeft Unit:=wdItem '选中第8个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameLeft '水平相对于页边距、左侧
| 
