首页/办公软件/内容

Word2000下创建名片制作模板

办公软件2022-05-18 阅读()
宏"菜单,选择前面定义宏"复制排版",单击"编辑"按钮,进入编辑状态。

将以下代码输入或复制进去:

  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类软件。



第1页  第2页  第3页  第4页  第5页  第6页  第7页 

……

相关阅读