自动完成word 日常任务

《自动完成word 日常任务》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、自动完成Word日常任务　　利用VBA编程，可以使许多日常的任务自动完成，使用户的工作更有效率。　　11.7.1在启动时显示打开对话框　　一般情况下启动icrosoftyRange，该对象引用活动文档的前三个段落。通过使用Font属性和ParagraphFormat对象可以编排Range（myRange）的格式。SetmyRange=ActiveDocument.Range（Start:=ActiveDocument.Paragraphs（1）.Range.Start,_End:=ActiveDocument.Paragraphs（3）.Range.End）arginiMargin=

2、iMargin+InchesToPoints（0.5）ActiveDocument.PageSetup.LeftMargin=iMargin　　11.7.5编辑文字　　日常工作中，处理文字是最经常用到的事情，本节介绍如何利用VBA编程实现编辑文字的自动化。当然，用户最好是利用录制宏的办法把代码转换为VBA代码后再修改，这样效率高，又不容易出错。　　11.7.5.1从文档返回文本　　使用Text属性可以返回Range或Selection对象中的文本。下面的代码选定下一个格式设为【标题1】样式的段落。然后通过MsgBox函数显示Text属性的内容。atting.Style=at:=Tru

3、e,ForsgBoxSelection.TextEndWith　　下面的指令返回选12345下一页——..，。定文本：　　strText=Selection.Text　　下面的代码返回活动文档的第一个单词。sgBoxaFirst　　下面的代码返回活动文档第一个书签的相关文本。IfActiveDocument.Bookmarks.Count>=1ThenbookText=ActiveDocument.Bookmarks（1）.Range.TextMsgBoxbookTextEndIf　　11.7.5.2选定文档中的文本　　使用Select方法可以选定文档中的一项。Select方法

4、对许多对象都是有效的，例如Bookmark、Field、Range和Table对象。下面的代码选定活动文档中的第一张表格。　　ActiveDocument.Tables（1）.Select　　下面的代码选定活动文档中的第一个域。　　ActiveDocument.Fields（1）.Select　　下面的代码选定活动文档中的前四个段落。Range方法用来创建一个Range对象，该对象引用前四个段落。然后将Select方法应用于Range对象。SetmyRange=ActiveDocument.Range（Start:=ActiveDocument.Paragraphs（1）.Range

5、.Start,_End:=ActiveDocument.Paragraphs（4）.Range.End）myRange.Select　　11.7.5.3在文档中插入文本　　使用InsertBefore方法可以在Selection或Range对象前后插入文字。下面的代码在活动文档结尾处插入文字。　　ActiveDocument.Content.InsertAfterText:=theend.下面的代码在所选内容前插入文字：　　Selection.InsertBeforeText:=neentSetmyRange=.　　Doc.Range（Start:=Doc.Paragraphs（1）

6、.Range.End-1,_End:=Doc.Paragraphs（1）.Range.End-1）myRange.InsertAftertheend.　　11.7.5.4修改文档的某一部分　　VisualBasic包含一些对象，可用这些对象修改下面的文档元素：字符、单词、句子、段落和节。表11-4包含了与这些文档元素对应的属性和这些属性返回的对象。　　使用这些属性时不带索引序号，会返回一个相同名称的集合对象。例如，Paragraphs属性返回Paragraphs集合对象。但如果通过索引序号识别集合中的一项，就只会返回上表中第二列中的对象。例如，argin=　　InchesToPoin

7、ts（0.5）　　下面的代码将活动文档的字符间距设为两倍（Content属性返回一个Range对象）。SetDoc=ActiveDocumentSetmyRange=Doc.Range（Start:=Doc.entSetmyRange=Doc.Range（Start:=Doc.Paragraphs（2）.Range.Star上一页12345下一页——..，。t,_End:=Doc.Paragraphs（3）.Range.End）　　ActiveDocume