word-vba 常用语句.doc

word－vba常用语句
2011-06-2216:53:45|分类：HYPERLINK"http://blog.163.com/lcyapple@126/blog/"\l"m=0&t=1&c=fks_084067085080080069087095085095086080084070080083080070"\o"office开发"office开发|标签：|字号大中小订阅
（文档、表格、文件）对象(1)Documents.Add'添加一个新文档(2)SetmyTable=ActiveDocument.Tables.Add(Selection.Range,2,2)'在当前文档所选区域添加一个2行2列的表格(3)Open"C:\my.txt"ForInputAs#1'打开一个用于输入的文件并令其编号为1(4)LineInput#1,TextLine'读取被打开用于输入且编号为1的文件(5)Close#1'关闭编号为1的文件
Range（范围、区域）对象
(1)ActiveDocument.Range(Start:=0,End:=10)'表示当前文档前10个字符所组成的一个Range对象(2)SetmyRange=ActiveDocument.Range(_Start:=ActiveDocument.Paragraphs(2).Range.Start,_End:=ActiveDocument.Paragraphs(4).Range.End)'将当前文档第2段至第4段设置为一个Range对象(3)ActiveDocument.Paragraphs(1).Range.Copy'复制当前文档中的第一段(4)Selection.CopyDocuments.Add.Content.Paste'复制所选内容到新文档中(5)ActiveDocument.Bookmarks("Book1").CopyName:="Book2"'将Book2书签复制Book1书签标记的位置(6)Selection.GoToWhat:=wdGoToLine,Which:=wdGoToAbsolute,Count:=4'将所选内容移至文档中的第4行(7)Selection.GoToWhat:=wdGoToTable,Which:=wdGoToNext'将所选内容移至下一个表格的第1个单元格(8)Selection.Range.AutoFormat'为所选内容套用格式(9)ActiveDocument.Content.Font.Name="Arial"'将当前文档的字体设置为斜体(10)ActiveDocument.Content.SelectSelection.Delete'将当前文档中的内容删除Sections/Section（章、节）对象
(1)ActiveDocument.Sections.First'当前文档的第一节(2)ActiveDocument.Sections.First.PageSetup.BottomMargin'当前文档第一节所在页的底边距(3)ActiveDocument.Sections.First.PageSetup.LeftMargin'当前文档第一节所在页的左边距(4)ActiveDocument.Sections.First.PageSetup.RightMargin'当前文档第一节所在页的右边距(5)ActiveDocument.Sections.First.PageSetup.TopMargin'当前文档第一节所在页的顶边距(6)ActiveDocument.Sections.First.PageSetup.PaperSize'返回或设置当前文档第一节所在页的大小(7)ActiveDocument.Sections.First.PageSetup.PageHeight'返回或设置当前文档第一节所在页的高度(8)ActiveDocument.Sections.First.PageSetup.PageWidth'返回或设置当前文档第一节所在页的宽度(9)ActiveDocument.Sections.AddRange:=myRange'在当前文档中添加新节(10)ActiveDocument.Sections.Item(2)'当前文档中的第二节(11)ActiveDocument.Sections.Last.Range.InsertAfter"文档结束！"'在当前文档中最后一节的结尾添加文字“文档结束！”

（词、字符）对象(1)ActiveDocument.Words(1).Select'选择当前文档中的第一个词(2)ActiveDocument.Range.Words(1).InsertAfter"我爱你！"'在当前文档中的