Word VBA学习交流资料之二.docVIP

Word VBA 学习交流资料之二 感　　想：有感于国人的Word水平比较低，尤其是VBA这一块，本人想请大家一起学习VBA，在提高自身的能力同时帮助需要帮助的人。 感谢：绿叶的建群之功，也感谢you兄的热烈支持，更感谢大家的大力支持！ 学前必备：Word VBA帮助（2003或别的都行，大体相当）（没有也没有关系，在这里，大多看到的就是复制自“帮助”的。） 可选工具：金山词霸（对E文不太懂的人，尤其重要） 语法工具：共享区的“VBA一串通” 学习方法：“不求甚解”（一开始，不太懂，没关系，坚持下去就懂了。） 学习步骤：看到例子时，复制到VBE编辑器中运行一次，看一下结果（最好按F8，一步一步地看） 必要指出：是“互学”，错误或不妥之处难免！因我也是一边看帮助，一边写。 开始之前：高唱国歌（最好能喊：自强不息！） ――――――――――――――― Start： 一、通过录制宏生成代码 如果无法确定要使用的 Visual Basic 方法或属性，可打开宏录制器并进行手动操作。宏录制器会将操作译成 Visual Basic 代码。录制操作完成后，可根据需要修改代码。例如，如果无法确定实现段落缩进的属性或方法，可执行下列操作： 在“工具”菜单上，指向“宏”，然后单击“录制新宏”。 如果需要，可更改默认的宏名称，然后单击“确定”启动录制器。 在“格式”菜单上，选定“段落”。 更改段落左缩进的值，然后单击“确定”。 单击“停止录制”工具栏上的“停止录制”按钮。 在“工具”菜单上，指向“宏”，然后单击“宏”。 从步骤 2 中选择宏的名称，然后单击“编辑”按钮。 查看 Visual Basic 代码来确定对应于段落左缩进的属性（LeftIndent 属性）。将插入点置于 LeftIndent 之中，并按 F1 或单击“帮助”按钮。在帮助主题中，可以查看示例以及支持 LeftIndent 属性的对象（单击“应用于”）。说明 录制的宏使用 Selection 属性返回 Selection 对象。例如，下列指令将所选段落缩进 0.5 英寸。 Sub IndentParagraph() Selection.ParagraphFormat.LeftIndent = InchesToPoints(0.5) End Sub 您也可以修改录制的宏并与 Range 对象一起使用。Sub Macro1() Selection.Goto What:=wdGotoBookmark, Name:=Temp Selection.MoveRight Unit:=wdCharacter, Count:=1 相当于选中后按一个键盘的右方向键 Selection.TypeText Text:=New text End Sub 这个宏虽然可以完成任务，但是有一些缺点。首先，如果文档中没有一个名为 Temp 的书签，该宏将导致出错。其次，该宏可能不正确地移动所选内容。修改这个宏，使其不再使用 Selection 对象，就可解决上述两个问题。以下就是经修改后的宏： Sub MyMacro() If ActiveDocument.Bookmarks.Exists(Temp) = True Then endloc = ActiveDocument.Bookmarks(Temp).End ActiveDocument.Range(Start:=endloc, _ End:=endloc).InsertAfter New text _　就是续行的意思 End If End Sub Exists 方法用于检查是否存在名为 Temp 的书签。如果找到该书签，则用 End 属性返回该书签结束字符的位置。最后使用 Range 方法返回一个引用书签结束位置的 Range 对象，以使用 InsertAfter 方法插入文字。有关定义 Range 对象的详细信息，请参阅处理 Range 对象。 使用 With…End With 可使用 With…End With 结构简化引用相同对象的宏指令。例如，在文档顶部添加标题时，将录制下面的宏。 Sub Macro1() Selection.HomeKey Unit:=wdStory Selection.TypeText Text:=Title Selection.ParagraphAlignment.Alignment = wdAlignParagraphCenter End Sub 每个指令都使用 Selection 属性返回一个 Selection 对象。可以简化这个宏，这样只需使用一次 Selection 属性。 Sub MyMacro()