荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: lilen (何时。。。。), 信区: Microsoft
标 题: 在Word2000下创建一个名片制作模板（二）
发信站: 荔园晨风BBS站 (Thu May 8 11:17:37 2003), 站内信件
将以下代码输入或复制进去：
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)
.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 '水平相对于页边距、左侧
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = CentimetersToPoints(6.4) '垂直相对于页面、6.4厘米
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
End With
Selection.MoveLeft Unit:=wdItem '选中第9个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameRight '水平相对于页边距、右侧
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = wdFrameTop '垂直相对于页边距、顶端
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
End With
Selection.MoveLeft Unit:=wdItem '选中第10个图文框
With Selection.Frames(1)
.HorizontalPosition = wdFrameLeft '水平相对于页边距、左侧
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = wdFrameTop '垂直相对于页边距、顶端
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
End With
最后，关闭宏编辑器，用"另存为"菜单，将文档保存为"文档模板"，取名"名
片模板"。整个一个名片制作模板即告完成。
三、使用方法
用前面的方法建立一个名片模板后，可随时方便地用它来设计、打印名片，可
谓一劳永逸。
1. 直接用鼠标双击"名片模板"或进入WORD后，打开"名片模板"。
2. 在图文框中输入名片的具体内容、设置字体字号、进行排版，也可以插入
图片和进行艺术加工，设计出一张名片样板。
3. 选中名片样板图文框。
4. 单击"名片"工具栏上的"复制排版" 按钮，Word便自动将设计好的名片样板
复制10份并均匀地排列在整张名片纸上。
5. 用"文件"菜单中的"打印"命令将整联名片打印输出。
6．如果需要，可"另存为"一个Word文档。
以上操作简单、方便、高效，读者不妨试一试。
ps：来自 http://www.yesky.com/20010413/169594.shtml
--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.34.219]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店