Excel VBA 操做 Word（入门篇）
原文地址php
本文的对象是：有必定Excel VBA基础，对Word VBA尚未什么认识，想在Excel中经过VBA操做Word还有困难的人。
1、新建Word引用
须要首先建立一个对 Word Application 对象的引用。在VBA中，工具-引用，选取“MicroSoft Word 11.0 Object Library”。
方法1、New Word.Application
Dim Wordapp As Word.Application
Set Wordapp = NewWord.Application
Wordapp.Visible = True '可见
'Wordapp.ScreenUpdating =False '屏幕刷新
Dim WordD As Word.Document '定义word类
Set WordD = Wordapp.Documents.Add '新建文档
'Set WordD = Wordapp.Documents.open(filename) '打开文档
'……
WordD.Close '关闭文档
Set WordD = Nothing
WordApp.Quit '退出Word对象
方法2、CreateObject
Dim WordApp As Object
Set WordApp =CreateObject("Word.Application") '新建Word对象
‘后续操做及退出同样……
方法3、GetObject
文件已打开的状况下，使用：SetWordD=GetObject(filename)，可创建对文档的引用，若是文件没有打开，则还须要先用方法一或二来操做。
至于方法一和方法二的区别，在网上询问了一下，大师们的回答是：
方法一：前期绑定,好处是在对象后输入句点能够给出快速提示，由于须要先引用对象，因此容易出现版本兼容问题。
方法二：后期绑定，没有提示，根据运行代码机器上对象的版本建立对象，兼容性好。
提示：有时两者有较大区别，可论坛搜索字典对象，建议编写代码时使用前期绑定，发布时使用后期绑定。
2、认识Word的结构
Excel有：
Excel.Application ’Excel引用
Excel.Application. Workbooks ’工做簿
Excel.Application. Workbooks.Sheets（1） ’工做表
工做表下是Range，区域；Cells(row,col)，单元格
Word有:
Word.Application
Word.Application.Documents ’文档
文档下有字符、单词、句子、段落和节。字符组成单词，单词组成句子，句子组成段落。此外，每一个文档具备一个包含一个或多个节的 Sections 集合，每个节都有一个包含该节页眉和页脚的HeadersFooters 集合。
Characters(index)
Words(index)
Sentences(index)
Paragraphs(index)
Sections(index)
前三个返回Range对象，能直接使用任何区域属性或方法修改该Range 对象。后面二个返回该集合的单个成员，而不是 Range 对象，不能直接使用区域属性或方法。以下使用例子：Words(1)后面直接.Copy，而.Paragraphs(1)和.Copy之间多了一个Range。
Selection.Words(1).Copy
ActiveDocument.Paragraphs(1).Range.Copy
Characters：字符，ActiveDocument.Sentences(1).Characters.Count，第一句的字符总数。
Words：单词，对于英文来讲是二个空格之间的字母加空格，对于中文，一个标点符号，一个汉字，或一个词（按照微软的输入法中的词组定义？）。（感受不是很可靠？）
Sentences：句子，以句号结束？感受也不是一个很可靠的范围，感受仍是字符、段落、节，控制起来靠谱一些。
Range 对象表示文档中的一个连续范围，由一个起始字符位置和一个终止字符位置定义。这个连续范围能够小到一个插入点，大到整个文档。
Dim rngPa As Range
Set rngPa =ActiveDocument. Characters (1) '第一个字符
Set rngPa = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(1).Range.Start, _
End:=ActiveDocument.Paragraphs(4).Range.End) ‘第1段头到第4段尾
Set rngPa = ActiveDocument.Range(Start:=0,End:=10) ‘当前文档前10个字符
rngPa.Select
选定，我以为用处不大，缘由就是为何要选中呢？能操做就直接操做，不能的话，就选中吧（他能够说是没办法的办法）。
range对象的赋值：(包括任意的对象，Set是对对象赋值的标准语句)
set a=b
和变量的赋值：a=1不同
第三段：经过录制宏生成代码，修改以下：
3、经过录制宏生成代码
有了对Word基本结构的认识，想操做这些对象应该使用什么方法、修改哪些属性？不知道就“录制宏”。录制宏是咱们认识未知对象的很好方法之一，经过宏录制器将操做译成Word的 Visual Basic 代码，再根据须要修改代码。Word中录制与Excel不一样的是，不能使用鼠标移动光标或选中一行，只能使用键盘来移动，或用Shift+方向键来选中。如下几句话就是键盘的：上、下、左、右、Home、End、Shift+左选中5个字符、Shift+右选中5个字符。
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdCharacter, Count:=5, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
录制的宏使用 Selection 属性返回 Selection 对象。即：录制的宏老是以Selection.开头的，如上。要想使用这个Selection.，有时候咱们就不得不先对特定的对象.Select，选中。
固然，Selection是一个Range，Characters、Words、Sentences也是Range，Paragraphs(n). Range, Sections(2). Range也是Range，那咱们就能够将Selection.后面的语句嫁接到前面这些Range以后，就不用先.Select了。
录制的宏，经过嫁接或者复制到EXCEL VBA以后，有的运行会出错，此时应检查如下几项：
一、第一项中要求的“引用”创建了没？
二、利用VBA提醒功能检查语句。VBA编辑过程当中，一般在打下. 以后（须要前期绑定？），该对象全部的方法、属性都会显示出来，利用这个特色，能够检查录制的宏，可否嫁接到须要操做的对象以后。提示里有就能，没有就不能。
三、部分转换函数，Word VBA里有，Excel VBA里可能没有，遇到这样的状况，也可能出错。
例：
WordD.Paragraphs(1).Range.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.35)
Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.35)是“首行缩进2字符”操做录制的，嫁接后，运行出错，按方法2检查：.ParagraphFormat.FirstLineIndent能用在Range以后，那么就是CentimetersToPoints(0.35)出问题了？这显然是一个函数，字面意思是“厘米转换成点数”，（录制时我明明输入的是“2字符”，录下来咋成了厘米为单位呢？）那是不是Excel VBA里没有这个函数呢？（我不知道），将=后面直接改成数字运行经过，最后试下来=20大约至关于5号字的“首行缩进2字符”。（这个20，就是20Points？0.35cm=20 Points？）
（有人可能会说这样的办法太笨，有什么好办法请告知。先谢过！）
3、经过录制宏生成代码
有了对Word基本结构的认识，想操做这些对象应该使用什么方法、修改哪些属性？不知道就“录制宏”。录制宏是咱们认识未知对象的很好方法之一，经过宏录制器将操做译成Word的 Visual Basic 代码，再根据须要修改代码。Word中录制与Excel不一样的是，不能使用鼠标移动光标或选中一行，只能使用键盘来移动，或用Shift+方向键来选中。如下几句话就是键盘的：上、下、左、右、Home、End、Shift+左选中5个字符、Shift+右选中5个字符。
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine
Selection.MoveLeft Unit:=wdCharacter, Count:=5, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
录制的宏使用 Selection 属性返回 Selection 对象。即：录制的宏老是以Selection.开头的，如上。要想使用这个Selection.，有时候咱们就不得不先对特定的对象.Select，选中。
固然，Selection是一个Range，Characters、Words、Sentences也是Range，Paragraphs(n). Range, Sections(2). Range也是Range，那咱们就能够将Selection.后面的语句嫁接到前面这些Range以后，就不用先.Select了。
录制的宏，经过嫁接或者复制到EXCEL VBA以后，有的运行会出错，此时应检查如下几项：
一、第一项中要求的“引用”创建了没？
二、利用VBA提醒功能检查语句。VBA编辑过程当中，一般在打下. 以后（须要前期绑定？），该对象全部的方法、属性都会显示出来，利用这个特色，能够检查录制的宏，可否嫁接到须要操做的对象以后。提示里有就能，没有就不能。
三、部分转换函数，Word VBA里有，Excel VBA里可能没有，遇到这样的状况，也可能出错。
例：
WordD.Paragraphs(1).Range.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.35)
Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.35)是“首行缩进2字符”操做录制的，嫁接后，运行出错，按方法2检查：.ParagraphFormat.FirstLineIndent能用在Range以后，那么就是CentimetersToPoints(0.35)出问题了？这显然是一个函数，字面意思是“厘米转换成点数”，（录制时我明明输入的是“2字符”，录下来咋成了厘米为单位呢？）那是不是Excel VBA里没有这个函数呢？（我不知道），将=后面直接改成数字运行经过，最后试下来=20大约至关于5号字的“首行缩进2字符”。（这个20，就是20Points？0.35cm=20 Points？）
（有人可能会说这样的办法太笨，有什么好办法请告知。先谢过！）
4、Word vba经常使用语句100句
一、系统参数
(01) Application.ActivePrinter ‘获取当前打印机
(02) Application.Height '当前应用程序文档的高度
(03) Application.Width ‘当前应用程序文档的宽度
(04) Application.Build ‘获取Word版本号和编译序号
(05) Application.Caption ‘当前应用程序名
(06) Application.DefaultSaveFormat '返回空字符串，表示Word文档
(07) Application.DisplayRecentFiles '返回是否显示最近使用的文档的状态
(08) Application.Documents.Count '返回当前打开的文档数
(09) Application.FontNames.Count ‘返回当前可用的字体数
(10) Application.Left ‘返回当前文档的水平位置
(11) Application.MacroContainer.FullName '返回当前文档名，包括所在路径
Application.MacroContainer.pach '返回当前文档路径
Application.ActiveDocument.Path ‘得到文件的相对路径
(12) Application.NormalTemplate.FullName '返回文档标准模板名称及所在位置
(13) Application.RecentFiles.Count '返回最近打开的文档数目
(14) Application.System.CountryRegion '返回应用程序所在的地区代码
(15) Application.System.FreeDiskSpace ‘返回应用程序所在磁盘可用空间
(16) Application.System.HorizontalResolution '返回显示器的水平分辨率
(17) Application.System.VerticalResolution '返回显示器的垂直分辨率
(18) Application.System.LanguageDesignation '返回系统所使用的语言
(19) Application.System.MathCoprocessorInstalled ‘返回系统是否安装了数学协处理器
(20) Application.System.OperatingSystem ‘返回当前操做系统名
(21) Application.System.ProcessorType '返回计算机处理器名
(22) Application.System.Version ‘返回操做系统的版本号
(23) Application.Templates.Count '返回应用程序所使用的模板数
(24) Application.UserName '返回应用程序用户名
(25) Application.Version ‘返回应用程序的版本号
二、Documents/Document对象
(26) ActiveDocument.AttachedTemplate.FullName '返回当前文档采用的模板名及模板所在位置
(27) ActiveDocument.Bookmarks.Count '返回当前文档中的书签数
(28) ActiveDocument.Characters.Count '返回当前文档的字符数
(29) ActiveDocument.CodeName ‘返回当前文档的代码名称
(30) ActiveDocument.Comments.Count ‘ 返回当前文档中的评论数
(31) ActiveDocument.Endnotes.Count '返回当前文档中的尾注数
(32) ActiveDocument.Fields.Count '返回当前文档中的域数目
(33) ActiveDocument.Footnotes.Count ‘返回当前文档中的脚注数
(34) ActiveDocument.FullName '返回当前文档的全名及所在位置
(35) ActiveDocument.HasPassword '当前文档是否有密码保护
(36) ActiveDocument.Hyperlinks.Count '返回当前文档中的连接数
(37) ActiveDocument.Indexes.Count '返回当前文档中的索引数
(38) ActiveDocument.ListParagraphs.Count '返回当前文档中项目编号或项目符号数
(39) ActiveDocument.ListTemplates.Count '返回当前文档中使用的列表模板数
(40) ActiveDocument.Paragraphs.Count '返回当前文档中的段落数
(41) ActiveDocument.Password=XXX '设置打开文件使用的密码
(42) ActiveDocument.ReadOnly '获取当前文档是否为只读属性
(43) ActiveDocument.Saved '当前文档是否被保存
(44) ActiveDocument.Sections.Count '当前文档中的节数
(45) ActiveDocument.Sentences.Count ‘当前文档中的语句数
(46) ActiveDocument.Shapes.Count '当前文档中的形状数 ,图形？
(47) ActiveDocument.Styles.Count '当前文档中的样式数
(48) ActiveDocument.Tables.Count ‘当前文档中的表格数
(49) ActiveDocument.TablesOfAuthorities.Count ‘返回当前文档中的引文目录数
(50) ActiveDocument.TablesOfAuthoritiesCategories.Count ‘返回当前文档中引文目录类别数
(51) ActiveDocument.TablesOfContents.Count ‘返回当前文档中的目录数
(52) ActiveDocument.TablesOfFigures.Count '返回当前文档中的图表目录数
三、Paragraphs/Paragraph对象
(53) Selection.Paragraphs.Count '返回所选区域的段落数
(54) Selection.Paragraphs.First '返回所选区域中的第一段
(55) ActiveDocument.Paragraphs(1).LeftIndent '返回当前文档中第一段的左缩进值
(56) ActiveDocument.Paragraphs(1).LineSpacing '返回当前文档中第一段的行距
(57) ActiveDocument.Paragraphs(1).OutlineLevel ‘返回或设置当前文档中第一段的大纲级别
.OutlineLevel = wdOutlineLevel2 ‘2级
.OutlineLevel = wdOutlineLevel3 ‘3级
(58) ActiveDocument.Paragraphs(1).RightIndent ‘返回当前文档中第一段的右缩进量
(59) ActiveDocument.Paragraphs(1).SpaceBefore '返回当前文档中第一段的段前间距
(60) ActiveDocument.Paragraphs(1).SpaceAfter ‘返回当前文档中第一段的段后间距
(61) ActiveDocument.Paragraphs(1).Range.Text '返回当前文档中第一段的内容
(62) ActiveDocument.Paragraphs(1).Range.Style.NameLocal '返回当前文档中第一段应用的样式名
(63) ActiveDocument.Paragraphs(1).Range.Style.Description '返回当前文档中第一段所应用样式的详细描述
(64) ActiveDocument.Paragraphs(1).Range.Style.Font.Name '返回当前文档中第一段所应用样式的字体名
(65) ActiveDocument.Paragraphs(1).Range.Style.Font.NameFarEast '返回或设置一种东亚字体名
(66) ActiveDocument.Paragraphs(1).Range.Style.Font.Size '返回或设置当前文档中第一段所应用样式的字体大小
(67) ActiveDocument.Paragraphs(1).Range.Style.Font.Spacing '返回或设置字符间距
(68) Selection.Words.Count '所选区域的字数 Sentences对象
(69) Selection.Sentences.Item(1) '所选区域中的第一句的内容 Words对象
(71) ActiveDocument.Words(1).Select '选择当前文档中的第一个词
(72) ActiveDocument.Range.Words(1).InsertAfter "我爱你！" '在当前文档中的第一个词后插入“我爱你”
四、Characters对象
(73) Selection.Characters.Count '当前文档中所选区域的字符数
(74) ActiveDocument.Paragraphs(1).Range.InsertParagraphAfter'在当前文档的第一段以后插入一个新段落
五、Sections/Section对象
(75) ActiveDocument.Sections.First '当前文档的第一节
(76) ActiveDocument.Sections.First.PageSetup.BottomMargin '当前文档第一节所在页的底边距
(77) ActiveDocument.Sections.First.PageSetup.LeftMargin '当前文档第一节所在页的左边距
(78) ActiveDocument.Sections.First.PageSetup.RightMargin '当前文档第一节所在页的右边距
(79) ActiveDocument.Sections.First.PageSetup.TopMargin '当前文档第一节所在页的顶边距
(80) ActiveDocument.Sections.First.PageSetup.PaperSize '返回或设置当前文档第一节所在页的大小
(81) ActiveDocument.Sections.First.PageSetup.PageHeight '返回或设置当前文档第一节所在页的高度
(82) ActiveDocument.Sections.First.PageSetup.PageWidth '返回或设置当前文档第一节所在页的宽度
(83) ActiveDocument.Sections.Add Range:=myRange '在当前文档中添加新节
(84) ActiveDocument.Sections.Item(2) '当前文档中的第二节
(85) ActiveDocument.Sections.Last.Range.InsertAfter "文档结束！" '在当前文档中最后一节的结尾添加文字“文档结束！”
六、Range对象
(86) ActiveDocument.Range(Start:=0, End:=10) '表示当前文档前10个字符所组成的一个Range对象
(87) Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _
End:=ActiveDocument.Paragraphs(4).Range.End) '将当前文档第2段至第4段设置为一个Range对象
(88) ActiveDocument.Paragraphs(1).Range.Copy '复制当前文档中的第一段
(89) Selection.Copy
Documents.Add.Content.Paste '复制所选内容到新文档中
(90) ActiveDocument.Bookmarks("Book1").Copy Name:="Book2" '将Book2书签复制Book1书签标记的位置
(91) Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4 '将所选内容移至文档中的第4行
(92) Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext '将所选内容移至下一个表格的第1个单元格
(93) Selection.Range.AutoFormat '为所选内容套用格式
(94) ActiveDocument.Content.Font.Name = "Arial" '将当前文档的字体设置为斜体
(95) ActiveDocument.Content.Select Selection.Delete '将当前文档中的内容删除其它
(96) Documents.Add '添加一个新文档
(97) Set myTable = ActiveDocument.Tables.Add(Selection.Range, 2, 2) '在当前文档所选区域添加一个2行2列的表格
七、文件读写
(98) Open "C:\my.txt" For Input As #1 '打开一个用于输入的文件并令其编号为1
(99) Line Input #1, TextLine '读取被打开用于输入且编号为1的文件
(100) Close #1 '关闭编号为1的文件
一、系统参数
(01) Application.ActivePrinter ‘获取当前打印机
(02) Application.Height '当前应用程序文档的高度
(03) Application.Width ‘当前应用程序文档的宽度
(04) Application.Build ‘获取Word版本号和编译序号
(05) Application.Caption ‘当前应用程序名
(06) Application.DefaultSaveFormat '返回空字符串，表示Word文档
(07) Application.DisplayRecentFiles '返回是否显示最近使用的文档的状态
(08) Application.Documents.Count '返回当前打开的文档数
(09) Application.FontNames.Count ‘返回当前可用的字体数
(10) Application.Left ‘返回当前文档的水平位置
(11) Application.MacroContainer.FullName '返回当前文档名，包括所在路径
Application.MacroContainer.pach '返回当前文档路径
Application.ActiveDocument.Path ‘得到文件的相对路径
(12) Application.NormalTemplate.FullName '返回文档标准模板名称及所在位置
(13) Application.RecentFiles.Count '返回最近打开的文档数目
(14) Application.System.CountryRegion '返回应用程序所在的地区代码
(15) Application.System.FreeDiskSpace ‘返回应用程序所在磁盘可用空间
(16) Application.System.HorizontalResolution '返回显示器的水平分辨率
(17) Application.System.VerticalResolution '返回显示器的垂直分辨率
(18) Application.System.LanguageDesignation '返回系统所使用的语言
(19) Application.System.MathCoprocessorInstalled ‘返回系统是否安装了数学协处理器
(20) Application.System.OperatingSystem ‘返回当前操做系统名
(21) Application.System.ProcessorType '返回计算机处理器名
(22) Application.System.Version ‘返回操做系统的版本号
(23) Application.Templates.Count '返回应用程序所使用的模板数
(24) Application.UserName '返回应用程序用户名
(25) Application.Version ‘返回应用程序的版本号
二、Documents/Document对象
(26) ActiveDocument.AttachedTemplate.FullName '返回当前文档采用的模板名及模板所在位置
(27) ActiveDocument.Bookmarks.Count '返回当前文档中的书签数
(28) ActiveDocument.Characters.Count '返回当前文档的字符数
(29) ActiveDocument.CodeName ‘返回当前文档的代码名称
(30) ActiveDocument.Comments.Count ‘ 返回当前文档中的评论数
(31) ActiveDocument.Endnotes.Count '返回当前文档中的尾注数
(32) ActiveDocument.Fields.Count '返回当前文档中的域数目
(33) ActiveDocument.Footnotes.Count ‘返回当前文档中的脚注数
(34) ActiveDocument.FullName '返回当前文档的全名及所在位置
(35) ActiveDocument.HasPassword '当前文档是否有密码保护
(36) ActiveDocument.Hyperlinks.Count '返回当前文档中的连接数
(37) ActiveDocument.Indexes.Count '返回当前文档中的索引数
(38) ActiveDocument.ListParagraphs.Count '返回当前文档中项目编号或项目符号数
(39) ActiveDocument.ListTemplates.Count '返回当前文档中使用的列表模板数
(40) ActiveDocument.Paragraphs.Count '返回当前文档中的段落数
(41) ActiveDocument.Password=XXX '设置打开文件使用的密码
(42) ActiveDocument.ReadOnly '获取当前文档是否为只读属性
(43) ActiveDocument.Saved '当前文档是否被保存
(44) ActiveDocument.Sections.Count '当前文档中的节数
(45) ActiveDocument.Sentences.Count ‘当前文档中的语句数
(46) ActiveDocument.Shapes.Count '当前文档中的形状数 ,图形？
(47) ActiveDocument.Styles.Count '当前文档中的样式数
(48) ActiveDocument.Tables.Count ‘当前文档中的表格数
(49) ActiveDocument.TablesOfAuthorities.Count ‘返回当前文档中的引文目录数
(50) ActiveDocument.TablesOfAuthoritiesCategories.Count ‘返回当前文档中引文目录类别数
(51) ActiveDocument.TablesOfContents.Count ‘返回当前文档中的目录数
(52) ActiveDocument.TablesOfFigures.Count '返回当前文档中的图表目录数
三、Paragraphs/Paragraph对象
(53) Selection.Paragraphs.Count '返回所选区域的段落数
(54) Selection.Paragraphs.First '返回所选区域中的第一段
(55) ActiveDocument.Paragraphs(1).LeftIndent '返回当前文档中第一段的左缩进值
(56) ActiveDocument.Paragraphs(1).LineSpacing '返回当前文档中第一段的行距
(57) ActiveDocument.Paragraphs(1).OutlineLevel ‘返回或设置当前文档中第一段的大纲级别
.OutlineLevel = wdOutlineLevel2 ‘2级
.OutlineLevel = wdOutlineLevel3 ‘3级
(58) ActiveDocument.Paragraphs(1).RightIndent ‘返回当前文档中第一段的右缩进量
(59) ActiveDocument.Paragraphs(1).SpaceBefore '返回当前文档中第一段的段前间距
(60) ActiveDocument.Paragraphs(1).SpaceAfter ‘返回当前文档中第一段的段后间距
(61) ActiveDocument.Paragraphs(1).Range.Text '返回当前文档中第一段的内容
(62) ActiveDocument.Paragraphs(1).Range.Style.NameLocal '返回当前文档中第一段应用的样式名
(63) ActiveDocument.Paragraphs(1).Range.Style.Description '返回当前文档中第一段所应用样式的详细描述
(64) ActiveDocument.Paragraphs(1).Range.Style.Font.Name '返回当前文档中第一段所应用样式的字体名
(65) ActiveDocument.Paragraphs(1).Range.Style.Font.NameFarEast '返回或设置一种东亚字体名
(66) ActiveDocument.Paragraphs(1).Range.Style.Font.Size '返回或设置当前文档中第一段所应用样式的字体大小
(67) ActiveDocument.Paragraphs(1).Range.Style.Font.Spacing '返回或设置字符间距
(68) Selection.Words.Count '所选区域的字数 Sentences对象
(69) Selection.Sentences.Item(1) '所选区域中的第一句的内容 Words对象
(71) ActiveDocument.Words(1).Select '选择当前文档中的第一个词
(72) ActiveDocument.Range.Words(1).InsertAfter "我爱你！" '在当前文档中的第一个词后插入“我爱你”
四、Characters对象
(73) Selection.Characters.Count '当前文档中所选区域的字符数
(74) ActiveDocument.Paragraphs(1).Range.InsertParagraphAfter'在当前文档的第一段以后插入一个新段落
五、Sections/Section对象
(75) ActiveDocument.Sections.First '当前文档的第一节
(76) ActiveDocument.Sections.First.PageSetup.BottomMargin '当前文档第一节所在页的底边距
(77) ActiveDocument.Sections.First.PageSetup.LeftMargin '当前文档第一节所在页的左边距
(78) ActiveDocument.Sections.First.PageSetup.RightMargin '当前文档第一节所在页的右边距
(79) ActiveDocument.Sections.First.PageSetup.TopMargin '当前文档第一节所在页的顶边距
(80) ActiveDocument.Sections.First.PageSetup.PaperSize '返回或设置当前文档第一节所在页的大小
(81) ActiveDocument.Sections.First.PageSetup.PageHeight '返回或设置当前文档第一节所在页的高度
(82) ActiveDocument.Sections.First.PageSetup.PageWidth '返回或设置当前文档第一节所在页的宽度
(83) ActiveDocument.Sections.Add Range:=myRange '在当前文档中添加新节
(84) ActiveDocument.Sections.Item(2) '当前文档中的第二节
(85) ActiveDocument.Sections.Last.Range.InsertAfter "文档结束！" '在当前文档中最后一节的结尾添加文字“文档结束！”
六、Range对象
(86) ActiveDocument.Range(Start:=0, End:=10) '表示当前文档前10个字符所组成的一个Range对象
(87) Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _
End:=ActiveDocument.Paragraphs(4).Range.End) '将当前文档第2段至第4段设置为一个Range对象
(88) ActiveDocument.Paragraphs(1).Range.Copy '复制当前文档中的第一段
(89) Selection.Copy
Documents.Add.Content.Paste '复制所选内容到新文档中
(90) ActiveDocument.Bookmarks("Book1").Copy Name:="Book2" '将Book2书签复制Book1书签标记的位置
(91) Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4 '将所选内容移至文档中的第4行
(92) Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext '将所选内容移至下一个表格的第1个单元格
(93) Selection.Range.AutoFormat '为所选内容套用格式
(94) ActiveDocument.Content.Font.Name = "Arial" '将当前文档的字体设置为斜体
(95) ActiveDocument.Content.Select Selection.Delete '将当前文档中的内容删除其它
(96) Documents.Add '添加一个新文档
(97) Set myTable = ActiveDocument.Tables.Add(Selection.Range, 2, 2) '在当前文档所选区域添加一个2行2列的表格
七、文件读写
(98) Open "C:\my.txt" For Input As #1 '打开一个用于输入的文件并令其编号为1
(99) Line Input #1, TextLine '读取被打开用于输入且编号为1的文件
(100) Close #1 '关闭编号为1的文件
5、例子。例中的操做所有是录制，而后嫁接的。
例子：用Excel VBA，将以下Excel表格(考试系统中导出的题库 ),生成以下Word文档
规程名称 题型 题目内容 答案A 答案B 答案C 答案D 正确答案 分值 有否图形
规程1 选择题 题目1…… …… …… …… …… ABCD 2
规程1 判断题 题目2…… 对 2
规程2 选择题 题目3…… …… …… …… …… A 2
规程2 判断题 题目4…… 错 2
规程1
1、选择题
一、题目1…… （ABCD）
A、……
B、……
C、……
D、……
2、判断题
一、题目2…… （对）
规程2
1、选择题
一、题目3…… （A）
A、……
B、……
C、……
D、……
2、判断题
一、题目4…… （错）
Sub ScWordWd()
'将“题库”中的题目，按格式生成Word文档
Dim I As Integer, J As Integer, Zhs As Integer, Xh As Integer, Dls As String
Dim Lr As String, Bt As String, Bt1 As String, Tx As String, Tx1 As String
Dim Lj As String, Wjm As String
Dim AA
Sheets("题库").Select
Zhs = Sheets("题库").UsedRange.Rows.Count
Bt = Cells(2, 1) '标题
Tx = Cells(2, 2) '题型
Xh = 1 '
Dls = 1 '
'Dim WordApp As Object
'Set WordApp = CreateObject("Word.Application") '新建Word对象
Dim Wordapp As Word.Application
Set Wordapp = New Word.Application '新建Word对象
Wordapp.Visible = True '可见
'Wordapp.ScreenUpdating = False '屏幕刷新
Dim WordD As Word.Document '定义word类
Set WordD = Wordapp.Documents.Add '新建文档
Wordapp.Selection.WholeStory '全选
Wordapp.Selection.Font.Name = "宋体" '字体
Wordapp.Selection.Font.Size = 10 '字号
For I = 2 To Zhs
Bt1 = Cells(I, 1)
WordD.Paragraphs(Dls).Range.Font.Name = "宋体" '字体
WordD.Paragraphs(Dls).Range.Font.Size = 10 '字号
If Len(Trim(Bt1)) > 0 Then
Tx1 = Cells(I, 2)
Lr = Cells(I, 3)
If Bt1 <> Bt Then '标题不一样，写标题，居中
If I > 5 Then '
WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf) '插入回车符，增长一段
Dls = Dls + 1
WordD.Paragraphs(Dls).Range.Select
'Wordapp.Selection.InsertBreak Type:=wdPageBreak
'WordD.Paragraphs(Dls).Range.InsertBreak Type:=wdPageBreak '插入分页符，两个都没反应？
Wordapp.Selection.InsertBreak Type:=wdSectionBreakNextPage '插入分节符（下一页）
WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf) '插入回车符，增长一段
Dls = Dls + 1
End If
Bt = Bt1
WordD.Paragraphs(Dls).Range.Text = Bt & vbCrLf '写标题
'WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf) '插入回车符，增长一段
WordD.Paragraphs(Dls).OutlineLevel = wdOutlineLevel2 '设置大纲级别，2级
'WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent = 0 '取消首行缩进
'WordD.Paragraphs(Dls).Range.Font.Name = "宋体" '字体
'WordD.Paragraphs(Dls).Range.Font.Size = 10 '字号
WordD.Paragraphs(Dls).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中排列
WordD.Paragraphs(Dls).Range.Font.Bold = wdToggle '加粗
Dls = Dls + 1
Xh = 1
End If
If Tx1 <> Tx Then '题型不一样，写题型
If Tx1 = "选择题" Then
WordD.Paragraphs(Dls).Range.Text = "1、选择题" '写题型
Else
WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf) '插入回车符，增长一段
Dls = Dls + 1
WordD.Paragraphs(Dls).Range.Text = "2、判断题" '写题型
End If
Tx = Tx1
WordD.Paragraphs(Dls).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify '左对齐
'WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.35) '首行缩进2字符,时能用时不能用，CentimetersToPoints不能被Excel识别？
WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent = 20 '首行缩进，20大约至关于5号字的2字符
WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf) '插入回车符，增长一段
WordD.Paragraphs(Dls).Range.Font.Bold = wdToggle '加粗
Dls = Dls + 1
Xh = 1
End If
If Tx = "选择题" Then
WordD.Paragraphs(Dls).Range.Text = Xh & "、" & Lr & " （" & Cells(I, 8) & "）" & vbCrLf '写题目及标准答案
Dls = Dls + 1
WordD.Paragraphs(Dls).Range.Text = "A、" & Cells(I, 4) & vbCrLf '选项A
Dls = Dls + 1
WordD.Paragraphs(Dls).Range.Text = "B、" & Cells(I, 5) & vbCrLf '选项B
Dls = Dls + 1
WordD.Paragraphs(Dls).Range.Text = "C、" & Cells(I, 6) & vbCrLf '选项C
Dls = Dls + 1
If Len(Trim(Cells(I, 7))) > 0 Then
WordD.Paragraphs(Dls).Range.Text = "D、" & Cells(I, 7) & vbCrLf '选项D
Dls = Dls + 1
End If
Xh = Xh + 1
Else
WordD.Paragraphs(Dls).Range.Text = Xh & "、" & Lr & " （" & Cells(I, 8) & "）" & vbCrLf '写题目及标准答案
Dls = Dls + 1
Xh = Xh + 1
End If
End If
Next I
Wordapp.WindowState = wdWindowStateMinimize '最小化窗口
'Wordapp.ScreenUpdating = True '屏幕刷新
'WordD.Close '
'Set WordD = Nothing
'Set Wordapp = Nothing
'Wordapp.Quit '退出Word对象
ThisWorkbook.Activate
End Sub
例子：用Excel VBA，将以下Excel表格(考试系统中导出的题库 ),生成以下Word文档
规程名称 题型 题目内容 答案A 答案B 答案C 答案D 正确答案 分值 有否图形
规程1 选择题 题目1…… …… …… …… …… ABCD 2
规程1 判断题 题目2…… 对 2
规程2 选择题 题目3…… …… …… …… …… A 2
规程2 判断题 题目4…… 错 2
规程1
1、选择题
一、题目1…… （ABCD）
A、……
B、……
C、……
D、……
2、判断题
一、题目2…… （对）
规程2
1、选择题
一、题目3…… （A）
A、……
B、……
C、……
D、……
2、判断题
一、题目4…… （错）
Sub ScWordWd()
'将“题库”中的题目，按格式生成Word文档
Dim I As Integer, J As Integer, Zhs As Integer, Xh As Integer, Dls As String
Dim Lr As String, Bt As String, Bt1 As String, Tx As String, Tx1 As String
Dim Lj As String, Wjm As String
Dim AA
Sheets("题库").Select
Zhs = Sheets("题库").UsedRange.Rows.Count
Bt = Cells(2, 1) '标题
Tx = Cells(2, 2) '题型
Xh = 1 '
Dls = 1 '
'Dim WordApp As Object
'Set WordApp = CreateObject("Word.Application") '新建Word对象
Dim Wordapp As Word.Application
Set Wordapp = New Word.Application '新建Word对象
Wordapp.Visible = True '可见
'Wordapp.ScreenUpdating = False '屏幕刷新
Dim WordD As Word.Document '定义word类
Set WordD = Wordapp.Documents.Add '新建文档
Wordapp.Selection.WholeStory '全选
Wordapp.Selection.Font.Name = "宋体" '字体
Wordapp.Selection.Font.Size = 10 '字号
For I = 2 To Zhs
Bt1 = Cells(I, 1)
WordD.Paragraphs(Dls).Range.Font.Name = "宋体" '字体
WordD.Paragraphs(Dls).Range.Font.Size = 10 '字号
If Len(Trim(Bt1)) > 0 Then
Tx1 = Cells(I, 2)
Lr = Cells(I, 3)
If Bt1 <> Bt Then '标题不一样，写标题，居中
If I > 5 Then '
WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf) '插入回车符，增长一段
Dls = Dls + 1
WordD.Paragraphs(Dls).Range.Select
'Wordapp.Selection.InsertBreak Type:=wdPageBreak
'WordD.Paragraphs(Dls).Range.InsertBreak Type:=wdPageBreak '插入分页符，两个都没反应？
Wordapp.Selection.InsertBreak Type:=wdSectionBreakNextPage '插入分节符（下一页）
WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf) '插入回车符，增长一段
Dls = Dls + 1
End If
Bt = Bt1
WordD.Paragraphs(Dls).Range.Text = Bt & vbCrLf '写标题
'WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf) '插入回车符，增长一段
WordD.Paragraphs(Dls).OutlineLevel = wdOutlineLevel2 '设置大纲级别，2级
'WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent = 0 '取消首行缩进
'WordD.Paragraphs(Dls).Range.Font.Name = "宋体" '字体
'WordD.Paragraphs(Dls).Range.Font.Size = 10 '字号
WordD.Paragraphs(Dls).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中排列
WordD.Paragraphs(Dls).Range.Font.Bold = wdToggle '加粗
Dls = Dls + 1
Xh = 1
End If
If Tx1 <> Tx Then '题型不一样，写题型
If Tx1 = "选择题" Then
WordD.Paragraphs(Dls).Range.Text = "1、选择题" '写题型
Else
WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf) '插入回车符，增长一段
Dls = Dls + 1
WordD.Paragraphs(Dls).Range.Text = "2、判断题" '写题型
End If
Tx = Tx1
WordD.Paragraphs(Dls).Range.ParagraphFormat.Alignment = wdAlignParagraphJustify '左对齐
'WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.35) '首行缩进2字符,时能用时不能用，CentimetersToPoints不能被Excel识别？
WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent = 20 '首行缩进，20大约至关于5号字的2字符
WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf) '插入回车符，增长一段
WordD.Paragraphs(Dls).Range.Font.Bold = wdToggle '加粗
Dls = Dls + 1
Xh = 1
End If
If Tx = "选择题" Then
WordD.Paragraphs(Dls).Range.Text = Xh & "、" & Lr & " （" & Cells(I, 8) & "）" & vbCrLf '写题目及标准答案
Dls = Dls + 1
WordD.Paragraphs(Dls).Range.Text = "A、" & Cells(I, 4) & vbCrLf '选项A
Dls = Dls + 1
WordD.Paragraphs(Dls).Range.Text = "B、" & Cells(I, 5) & vbCrLf '选项B
Dls = Dls + 1
WordD.Paragraphs(Dls).Range.Text = "C、" & Cells(I, 6) & vbCrLf '选项C
Dls = Dls + 1
If Len(Trim(Cells(I, 7))) > 0 Then
WordD.Paragraphs(Dls).Range.Text = "D、" & Cells(I, 7) & vbCrLf '选项D
Dls = Dls + 1
End If
Xh = Xh + 1
Else
WordD.Paragraphs(Dls).Range.Text = Xh & "、" & Lr & " （" & Cells(I, 8) & "）" & vbCrLf '写题目及标准答案
Dls = Dls + 1
Xh = Xh + 1
End If
End If
Next I
Wordapp.WindowState = wdWindowStateMinimize '最小化窗口
'Wordapp.ScreenUpdating = True '屏幕刷新
'WordD.Close '
'Set WordD = Nothing
'Set Wordapp = Nothing
'Wordapp.Quit '退出Word对象
ThisWorkbook.Activate
End Sub
（完）
相关文章
- 1. Excel VBA 入门
- 2. Excel VBA解读：基础入门篇
- 3. Excel-VBA文件操做
- 4. Python操做Word、EXCEL,ACCESS
- 5. node 操做word excel
- 6. Excel VBA（WPS Office下）安装及入门操做（待续）
- 7. excel 中编程：vba 入门
- 8. java操做Excel、word和pdf
- 9. EXCEL VBA小白第一课：入门
- 10. EXCEL VBA入门及其应用
- 更多相关文章...
- • Memcached入门教程 - NoSQL教程
- • OceanBase数据库入门教程 - NoSQL教程
- • YAML 入门教程
- • Java Agent入门实战（二）-Instrumentation源码概述
相关标签/搜索
每日一句
-
每一个你不满意的现在，都有一个你没有努力的曾经。
欢迎关注本站公众号,获取更多信息
