Word文档VBA入门到精通

01.WordVBA是集合.对象.属性.2020年9月25日 20:58（1）对象和集合的概念集合就好比多个团队，每个团队都是一个对象，多个对象组成了集合（2）Wor软件本身Appliction代表Word软件本身（3）Document与Documens集合Document代表文档的集合【 中的 （4）Rang对象代表文档部分

Range(开始下标，结束下标前一个字符)

例如：跟 着 孙 兴 华 学 习 V B A 第 四 季 双 剑 合 壁0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Range(2,5)意思是：从下标2开始至下标5之前那个字符。

Dcoument.Range.Text意思是：文档中所有的字符构成的字符串，例如：ActiveDocument.Content的函数可以返回word文档text文本内容（5）Selection对象代表当前所选的内容Selection代表当前所选的内容（6）代表所选内容范围或文档中，节的集合，返回Selection对象Selections所选内容范围或文档中，节的集合，返回Selection对象

（7）字、词、句、节的集合【返Range对象】Characters范围或文档中字符的集合Words范围或文档中单词的集合Sentences范围或文档中句子的集合（8）Paragraphs代表段落的集合【返回段落Paragraph对象】Paragraphs代表段落的集合Document.Paragraphs(1)代表第1个段落Document.Paragraphs(1).Range.Text代表第1个段落中的文字（9）其它Replacement代表查找和替换操作的替换条件Tables【包括Column、Row和Cell】代表表格集合在Excel中cells(5,2)代表第5行第2列在Word中Characters(3)代表文档中第3个字符（10）属性【对象特有的特性】Sub将数字变成红色粗体()'遍历全部字符Fori=1ToWord.Application.ActiveDocument.Characters.Count

Set每个字符=Word.Application.ActiveDocument.Characters(i)IfIsNumeric(每个字符.Text)Then每个字符.Bold=True分区第4季的

每个字符.Font.ColorIndex=wdGreen

EndIfNextEndSub

（11）方法【方法就是动作】

Selection.Activate激活

Selection.Copy拷贝

Selection.Cut剪切

Selection.Paste粘贴

Selection.Select选择 分区第4季的页

附：2020年10月8日 11:10常用对象 说明Application.ActiveDocument 当前文档，可以简写为ActiveDocumentApplication.ActivePrinter 获取当前打印机Application.ActiveWindows 当前窗口Application.Height 当前应用文档的高度Application.Width 当前应用文档的宽度Application.Build 获取Word版本号和编译序号Application.Caption 当前应用程序名Application.DefaultSaveFormat 返回空字符串，表示Word文档Application.DisplayRecentFiles 返回是否显示最近使用的文档的状态Application.Documents.Count 返回打开的文档数

Application.FontNames.Count 返回当前可用的字体数

Application.Left 返回当前文档的水平位置Application.MacroContainer.FullName 返回当前文档名，包括所在路径Application.NormalTemplate.FullName返回文档标准模版名称及所在位置

Application.Path 显示活动文档的路径和文件名Application.RecentFiles.Count 返回最近打开的文档数目Application.System.FreeDiskSpace 返回应用程序所在磁盘可用空间Application.Templates.Count 返回应用程序所使用的模板数

Application.UserName 返回应用程序用户名Application.Version 返回应用程序的版本号Application.Activate 激活指定对象Application.Move 设置任务窗口或活动文档窗口的位置Application.GoForward 将插入在活动文档中进行编辑的最后三个位置之间向前移动Application.PrintOut 该方法可打印指定文档的全部或部分Application.Resize 调整Word窗口大小。如果该窗口被最大化或最小化将导致出错Application.Quit 退出Word，并可选择保存或传送打开的文档 分区第4季的页

附：Document/Documents2020年10月8日 12:47 分区第4季的页

001.Document参数 ActiveDocument.AttachedTemplate.FullName 返回当前文档采用模板名及模板所在位置ActiveDocument.Bookmarks.Count 返回当前文档中的书签数ActiveDocument.Characters.Count 返回当前文档的字符数ActiveDocument.Comments.Count 返回当前文档的批注数ActiveDocument.Endnotes.Count 返回当前文档的尾注数ActiveDocument.Fields.Count 返回当前文档的域数目ActiveDocument.Footnotes.Count 返回当前文档中的脚注数ActiveDocument.FullName 返回当前文档的全名及所在位置ActiveDocument.HasPassword 判断当前文档是否有密码保护ActiveDocument.Hyperlinks.Count 返回当前文档中的链接数ActiveDocument.Indexes.Count 返回当前文档中的索引数ActiveDocument.ListParagraphs.Count 返回当前文档中项目编号或项目符号数ActiveDocument.PageSetup 文档内的页面设置ActiveDocument.Paragraphs.Count 返回当前文档中的段落数ActiveDocument.Password=xxx 设置打开文件使用的密码ActiveDocument.Path ActiveDocument.ReadOnly 获取当前文档是否为只读属性ActiveDocument.Saved 当前文档是否被保存ActiveDocument.Sections.Count 当前文档中的节数ActiveDocument.Sentences.Count 当前文档中的语句数ActiveDocument.Shapes.Count 当前文档中的形状数ActiveDocument.Styles.Count 当前文档中的样式数ActiveDocument.Tables.Count 当前文档中的表格数ActiveDocument.TablesOfAuthorities.Count 返回当前文档中的引文目录数ActiveDocument.TableOfContents.Count 返回当前文档中的目录数ActiveDocument.TablesOfFigures.Count 返回当前文档中的图表目录数 分区第4季的页

ActiveDocument.Words.Count 返回当前文档中字词数 分区第4季的页

2020年10月8日 13:04参数 中文Documents.Add 表示添加至打开的文档集合中新建空文档Documents.Close 关闭指定的一个或多个文档Documents.Item(indexs) 表示第indexs文档Documents.Open 打开指定的文档并将其添加至Documents集合Documents.Save 保存指定文档及其说明 分区第4季的页

附：Word附：Word2020年10月8日 分区第4季的页

000.新建、打开、保存、关闭2020年10月8日 14:59Sub新建保存另存()'新建文档Documents.AddActiveDocument.Save'另存为[需要指定位置]'关闭EndSub'新建文档并另存'关闭EndSubSub打开()XXXXXXXXX'不保存EndSub其它常用代码：【1】如果活动文档在上次保存后进行了修改，则保存活动文档IfActiveDocument.Saved=FalsethenActiveDocument.Save 分区第4季的页

Documents.SaveNoprompt:=True,参数 中文wdOriginalDocumentFormat 原始文档格式。

wdPromptUser 提示用户选择文档格式。wdWordDocument MicrosoftWord文档格式。 分区第4季的页

附：打开Word文档时的相关2020年10月8日 15:31Open(FileName、ConfirmConversions、ReadOnly、AddToRecentFiles、PasswordDocument、PasswordTemplate、Revert、WritePasswordDocument、WritePasswordTemplate、Format、Encoding、Visible、OpenConflictDocument、OpenAndRepair、DocumentDirection、NoEncodingDialog)参数 中文FileName 文档名（可包含路径）ConfirmConversions True显示转换文件对话框中，如果该文件不是MicrosoftWord格式。

ReadOnly 为True，则以只读方式打开文档AddToRecentFiles 为True，要将文件名添加到列表中最近使用的文件在文件菜单的底部

PasswordDocument 打开文档时所需的密码PasswordTemplate 打开模板时所需的密码Revert 控制如果FileName是打开文档的名称会进行什么操作。为True，则放弃对打开文档的任何未保存更改并重新打开文件。为False，则激活打开的文档。WritePasswordDocument 用于保存文档更改的密码WritePasswordTemplate 用于保存模板更改的密码Format 用于打开文档的文件转换器。可为以下WdOpenFormat常量之一。默认值为wdOpenFormatAuto。若要指定外部文件格式，请将OpenFormat属性应用于FileConverter对象，以确定要与此参数一起使用的值

Encoding 当你查看保存的文档时MicrosoftWord所使用的文档编码（代码页或字符集）。可以是任何有效的MsoEncoding常量。要查看有效MsoEncoding常量的列表，请参阅“VisualBasic编辑器”中的“对象浏览器”。默认值是系统代码页。Visible 如果在可见窗口中打开文档。默认值为TrueOpenConflictDocument 指定是否打开具有脱机冲突的文档的冲突文件OpenAndRepair 如果该属性为True，则修复文档，以防止文档毁坏DocumentDirection 表示文档中的横排文字。默认值为wdLeftToRightNoEncodingDialog 为True，如果无法识别文本编码，则跳过显示Word所显示的“编码”对话框。默认值为False。 分区第4季的页

附.关闭word文档时的相关操作2020年10月8日 12:26序号 参数 中文0 wdDoNotSaveChanges 不保存待定的更改。

-2 wdPromptToSaveChanges 提示用户保存待定更改。

-1 wdSaveChanges 自动保存待定更改，而不提示用户。'关闭活动文档（保存）ActiveDocument.Closesavechanges:=wdSaveChanges'关闭活动文档（不保存）ActiveDocument.Closesavechanges:=wdDoNotSaveChanges关闭单个文档,并保存变化：'关闭单个文档,并保存变化：关闭单个文档,并保存变化：'不保存更改的情况下关闭所有文档：Documents.Closesavechange:=wdDonotsavechanges'在每个文档关闭之前提示用户保存文档：DimdocAsDocumentForEachdocInDocumentsdoc.Closesavechanges:=wdpromptTosavechangesNextdoc分区第4季的

001.2020年10月8日 11:13Sub判断打开了几个文档()

MsgBox数量EndSub 分区第4季的页

002.2020年10月8日 11:49Sub指定当前文档()'方法1，优点自动显示'方法2，优点代码量较少Set文档=ActiveDocumentEndSub 分区第4季的页

2020年10月8日 11:49Set文档=ActiveDocument路径=文档.Path文件名=文档.NameMsgBox路径&反斜杠&文件名或者Set文档=ActiveDocument

完整路径=文档.FullName

MsgBox完整路径EndSub 分区第4季的页

2020年10月8日 11:49Set文档=ActiveDocumentWith范围或位置XXXXXXXXXXXX.Font.Size=30

EndWith文档.PrintOut 分区第4季的页

005.打印活动文档的指定页面2020年10月8日 11:49Sub打印活动文档的当前页面()Set文档=ActiveDocument文档.PrintOutRange:=wdPrintCurrentPageEndSubRange:= wdPrintAllDocument 整个文档。wdPrintCurrentPage 当前页面。wdPrintFromTo 指定范围。wdPrintRangeOfPages 指定的页面范围。wdPrintSelection 当前所选内容 分区第4季的页

2020年10月8日 12:05文件=Dir()LoopEndSub 分区第4季的页

2020年10月8日 12:07Sub打印前N页或指定页面()Set文档=ActiveDocument'打印起始页码1至结束页码3之间的页面'打印起始页码1至结束页码3之间的页面'打印起始页码1至结束页码3之间的页面EndSub 分区第4季的页 Range:= wdPrintAllDocument 整个文档。wdPrintCurrentPage 当前页面。wdPrintFromTo 指定范围。wdPrintRangeOfPageswdPrintSelection

附.Word打印PrintOut方法2020年10月8日 11:49PrintOut(Background,Append,Range,OutputFileName,From,To,Item,Copies,Pages,PageType,PrintToFile,Collate,FileName,ActivePrinterMacGX,ManualDuplexPrint,PrintZoomColumn,PrintZoomRow,PrintZoomPaperWidth,PrintZoomPaperHeight)指定要打印的项目 分区第4季的第页 Range:= wdPrintAllDocument 整个文档。wdPrintCurrentPage 当前页面。wdPrintFromTo 指定范围。wdPrintRangeOfPages 指定的页面范围。wdPrintSelection 当前所选内容Item:= wdPrintComments 当前文档中的批注wdPrintDocumentContent 当前文档内容wdPrintDocumentWithMarkup当前文档内容（包括标记）wdPrintEnvelope 信封wdPrintKeyAssignments 当前文档中的按键分配方案wdPrintMarkup 当前文档中的标记wdPrintProperties 当前文档中的属性wdPrintStyles 当前文档中的样式

2020年10月8日 12:21Sub打印前N页或指定页面()

WithWord.Application'先设置为常规模式.WindowState=wdWindowStateNormal'再设置宽和高.ResizeWidth:=InchesToPoints(7),Height:=InchesToPoints(6)EndWithEndSub 分区第4季的页 wdWindowStateMaximize最大化wdWindowStateMinimize最小化wdWindowStateMinimize常规注意：

赠送：doc批量转docx赠送：doc2020年10月8日 10:09DimoWordAsObjectDimoDicAsObjectSubdoc批量转docx()DimsPathAsString

'sPath=GetPath()IfLen(sPath)Then

EnuAllFiles(sPath)

EnuAllFiles(sPath)

EndIfoWord.QuitSetoWord=NothingEndSubFunctionGetPath()AsString'声明一个FileDialog对象变量DimoFDAsFileDialog''创建一个选择文件对话框'SetoFD=Application.FileDialog(msoFileDialogFilePicker)

'创建一个选择文件夹对话框SetoFD=Application.FileDialog(msoFileDialogFolderPicker)

'声明一个变量用来存储选择的文件名DimvrtSelectedItemAsVariantWithoFD'允许选择多个文件.AllowMultiSelect=True

'使用Show方法显示对话框，如果单击了确定按钮则返回-1If.Show=-1Then'遍历所有选择的文件ForEachvrtSelectedItemIn.SelectedItems

'获取所有选择的文件的完整路径,用于各种操作

GetPath=vrtSelectedItemNext'如果单击了取消按钮则返回0

ElseEndIfEndWith'释放对象变量SetoFD=NothingEndFunctionFunctionGetFileName(ByValsNameAsString)

'获取纯文件名的自定义函数'DimsTempAsStringsTemp=sName 分区第4季的页

''判断后缀名分隔符.

iPos=Len(sTemp)-iPos=Len(sTemp)-IfiPos<>0ThenEndIf判断路径分隔符判断路径分隔符IfiPos<>0Then

'sTemp=Mid(VBA.StrReverse(sTemp),1,iPos-sTemp=VBA.StrReverse(sTemp)EndIfGetFileName=sTempEndFunction'定义文件系统对象DimoFsoAsObject'定义文件夹对象DimoFolderAsObjectSetoFolder=oFso.GetFolder(sPath)

'定义文件对象DimoFileAsObject

'如果指定的文件夹含有文件IfoFolder.Files.CountThenForEachoFileInoFolder.Files

WithoFile'输出文件所在的盘符DimsDriveAsStringsDrive=.Drive'输出文件的类型DimsTypeAsStringsType=.Type'输出含后缀名的文件名称

DimsNameAsStringsName=.Name'输出含文件名的完整路径

DimsFilePathAsStringsFilePath=.Path'如果文件是WordConstwdFormatDocumentDefault=16

ConstwdFormatXMLDocument=12

ConstwdWord2013=15WithoDocDimsFPathAsStringsFPath=.PathsName=.NamesName=GetFileName(sName) 分区第4季的页

2020年10月8日 16:09Selection对象代表窗口或窗格中的当前所选内容。1.如果文档中没有所选内容，则代表插入点。2.每个文档窗格只能有一个活动的Selection对象，并且整个应用程序中只能有一个活动的Selection对象。与Range对象不同的是，Selection对象代表选定内容，可以是文档中的一个区域也可以仅仅是一个插入点。 分区第4季的页

附1.Selection对象属性2020年10月9日 8:16参数 中文Selection.Bookmarks 指定区域内的书签Selection.Cells 返回一个Cells集合，代表在某一列、行、选定部分或区域中的表格单元格

Selection.Characters 代表文档、区域或所选内容中的字符

Selection.Comments 代表文档、区域或所选内容中的批注

Selection.Start 设置所选内容、区域或书签中结束字符的位置Selection.End 设置所选内容、区域或书签中结束字符的位置Selection.Endnotes 代表一个区域、所选内容或文档中所有尾注

Selection.Fields 代表一个区域、所选内容中的域Selection.Find 包含了查找操作所需的条件。注：用于Selection对象时，如果查到了所需内容，则所选内容会改变。如将本属性用于Range对象，则除非用Select方法，否则所选内容不改变。

Selection.Footnotes 代表一个区域、所选内容或文档中所有脚注

Selection.Hyperlinks 代表一个区域、所选内容或文档中所有超链接

Selection.inlineShapes 代表一个区域、所选内容或文档中所有嵌入式对象

Selection.PageSetup 代表一个区域、所选内容、节或文档中的页面设置

Selection.Paragraphs 代表一个区域、所选内容或文档中所有段落

Selection.Sections 代表一个区域、所选内容或文档中所有分节数

Selection.Sentences 代表一个区域、所选内容或文档中所有句子

Selection.Shapes 代表一个区域、所选内容或文档中所有形状、图片等

Selection.Style 代表一个区域、所选内容或文档中所有样式 分区第4季的页

附2.Selection对象方法附2.2020年10月9日 8:16参数 中文Selection.Calculate 计算某一区域或所选内容中的数学表达式

Selection.ClearFormatting 从选定内容，或者查找或替换操作的格式限定中删除文本或段落格式设置

Selection.CopyAsPicture 将文本复制成一个图片

Selection.CopyFormat 复制所选文字第一个字符的字符格式。如果选定了段落标记，则Word同时复制字符格式和段落格式Selection.CreateTexbox 在所选内容周围添加一个默认大小的文本框，如果所选内容是一个插入点，本方法将鼠标指针设为十字型指针，以便绘制一个文本框。

Selection.Copy 将所选内容复制到新文档Selection.Paste 粘贴Selection.Cut 将指定对象从文档中移到剪贴板上Selection.Delete 将指定对象删除Selection.InsertAfter 将指定文本插入某一区域或选定内容的后面

Selection.InsertBefore 在指定的选定内容或区域前插入指定文字

Selection.TypeText 插入指定文本Selection.TypeParagraph 插入一个空段落 分区第4季的页

2020年10月9日 8:41'如果窗口不止一个IfWindows.Count<>1Then

'将第一个窗口所选内容复制

Windows(1).Selection.Copy

'激活第一个窗口的下一个窗口

Windows(1).Next.Activate

Selection.PasteEndIfEndSub 分区第4季的页

2020年10月9日 9:19Suba()'如果窗口不止一个IfWindows.Count<>1Then'将第一个窗口所选内容复制

Windows(1).Selection.Copy

'激活第一个窗口的下一个窗口

Windows(1).Next.ActivateSelection.GoToNextwhat:=wdGoToTableEndIfSelection.Paste

EndIfEndSub 分区第4季的页

2020年10月9日 9:27 分区第4季的页

004.选定内容另存为2020年11月2日 20:52Sub选定内容另存为()Selection.CopySelection.Paste'在插入点粘贴ActiveDocument.Close-1EndSub 分区第4季的页

2020年10月9日 9:59Suba()IfSelection.Type=wdSelectionNormalSelection.Cut

Documents.Add.Content.PasteEndIfEndSub参数 中文wdNoSelection 没有选定内容wdSelectionBlock 列方式选定wdSelectionColumn 列选择wdSelectionFrame 框架选择wdSelectionInlineShape wdSelectionIP wdSelectionNormal wdSelectionRow 行选择wdSelectionShape 形状选择 分区第4季的页

2020年11月2日 21:20'将内容全选'对选择区域进行删除Selection.DeleteEndSub 分区第4季的页

2020年11月2日 20:48SubRange在文档中的应用()Set文档=ActiveDocument文档.Range(2,5).Bold=TrueEndSubSubRange在Selection中的应用()Selection.Range.Bold=TrueEndSubSubRange在段落中的应用()Selection.Paragraphs(1).Range.Bold=TrueEndSubSub隔行操作()Fori=1ToSelection.Paragraphs.CountStep2

Selection.Paragraphs(i).Range.Bold=True

SelectionNextEndSub 分区第4季的页

008.从活动文档的第二至第四段删除所有文字和段落的格式设置2020年10月9日 9:31Suba()Set文档=ActiveDocument文档.Range(Start:=文档.Paragraphs(2).Range.Start,End:=文档.Paragraphs(4).Range.End).Select:Selection.ClearFormattingEndSub 分区第4季的页

0092020年10月9日 9:38Set文档=ActiveDocument

'将文档第1段的内容全部选中

文档.Paragraphs(1).Range.Select

'复制选中部分的格式

Selection.CopyFormat

'将文档第2段的内容全部选中

文档.Paragraphs(2).Range.Select

'复制选中部分的格式

Selection.PasteFormatEndSub 分区第4季的页

2020年11月3日 0:04Sub光标移动3个单元格()'Selection.Moveunit:=wdCell,Count:=3

Selection.MovewdCell,3EndIfEndSubSub移动2行()Selection.MovewdLine,2'行Selection.MovewdParagraph,2EndSubIfi=1ThenElseSelection.MovewdSentence,1

EndIfNext

EndSub 分区第4季的页

Selection.Expand3'扩展3行IfiMod2ThenSelection.Font.ColorIndex=wdRedElseSelection.Font.ColorIndex=wdGreenEndIfNextEndSub 分区第4季的页

附3.附3.2020年10月9日 12:31参数 wdCell wdCharacter wdCharacterFormatting wdColumn wdItem wdLine wdParagraph wdParagraphFormatting wdRow wdScreen wdSection wdSentence wdStory wdTable wdWindow wdWord 字[词Move(_Unit_,_Count_)移动结束字符位置时所基于的单位指定的区域或所选内容的移动的单位数。默认值为1。【1】如果Count是一个正数，并在文档中向后移动指定的单位数。【2】如果Count是一个负数，并向前移动指定的单位数。Suba()Selection.MovewdLine,2'行

Selection.MovewdParagraph,2EndSub注意：搞清楚行和段落的区域 分区第4季的页

2020年10月9日 13:07Expand参数 wdCell wdCharacter wdCharacterFormatting wdColumn wdItem wdLine wdParagraph wdParagraphFormatting wdRow wdScreen wdSection wdSentence wdStory wdTable wdWindow wdWord 分区第4季的页

附5.Information参数【选择区域的信息类型】2020年10月7日 12:05参数 中文wdActiveEndPageNumber 返回包含指定的选定内容或范围，从文档的开头开始计数的活动端的页面数。对页码编号的任何手动调整都将被忽略（与计数不同）。

wdActiveEndSectionNumber 返回节号，在该节中包含了指定的所选内容或区域的活动结尾。wdAtEndOfRowMarker 如果指定的所选内容或区域位于表格的行结尾标记处，则该参数返回True。wdCapsLock 如果CapsLock有效，则该参数返回True。wdEndOfRangeColumnNumber 返回表格列号，在该表格列中包含指定的所选内容或区域的结尾。wdEndOfRangeRowNumber 返回表格行号，在该表格行中包含指定的所选内容或区域的结尾。返回指定的所选内容或区域中第一个字符的位置。如果所选内容或区域是折叠的，则返回紧wdFirstCharacterColumnNumber 返回指定的所选内容或区域中第一个字符的位置。如果所选内容或区域是折叠的，则返回紧返回指定的所选内容或区域中第一个字符的位置。如果所选内容或区域是折叠的，则返回紧返回指定的所选内容或区域中第一个字符的位置。如果所选内容或区域是折叠的，则返回紧wdFirstCharacterLineNumber 返回指定的所选内容或区域中第一个字符的位置。如果所选内容或区域是折叠的，则返回紧返回指定的所选内容或区域中第一个字符的位置。如果所选内容或区域是折叠的，则返回紧wdFrameIsSelected 如果所选内容或区域为整个图文框或文本框，则该参数返回True。

返回一个值，该值指示包含了指定所选内容或区域的页眉或页脚的类型。有关其他信息，请wdHeaderFooterType 返回一个值，该值指示包含了指定所选内容或区域的页眉或页脚的类型。有关其他信息，请返回一个值，该值指示包含了指定所选内容或区域的页眉或页脚的类型。有关其他信息，请wdHorizontalPositionRelativeToPage 返回指定的所选内容或区域的水平位置。这是从所选内容或区域的左边缘到页面左边缘的距离，以磅为单位（1磅=20缇，72磅=1英寸）。如果所选内容或区域不在屏幕区域中，则返回-1。

wdHorizontalPositionRelativeToTextBoundary 返回指定所选内容或区域相对于周围最近的正文边界左边缘的水平位置，以磅为单位（1磅=20缇，72磅=1英寸）。如果所选内容或区域不在屏幕区域中，则返-1。wdInBibliography 如果指定的所选内容或区域位于书目中，则该参数返回True。wdInCitation 如果指定的所选内容或区域位于引文中，则返回True。

wdInClipboard 有关该常量的信息，请参阅包含在MicrosoftOfficeMacintoshEdition中的语言参考帮助。wdInCommentPane 如果指定的所选内容或区域位于批注窗格，则该参数返回True。

wdInContentControl 如果指定的所选内容或区域位于内容控件中，则该参数返回True。wdInCoverPage 如果指定的所选内容或区域位于某一封面，则该参数返回True。

wdInEndnote 如果指定的所选内容或区域位于页面视图的尾注区内，或者位于普通视图的尾注窗格中，则该参数返回True。

wdInFieldCode 如果指定的所选内容或区域位于域代码中，则该参数返回True。wdInFieldResult 如果指定的所选内容或区域位于域结果中，则该参数返回True。

wdInFootnote 如果指定的所选内容或区域位于页面视图的脚注区内，或者位于普通视图的脚注窗格中，则该参数返回True。

wdInFootnoteEndnotePane 如果指定的所选内容或区域位于普通视图的脚注或尾注窗格中，或者位于页面视图的脚注或尾注区域中，则该参数返回True。有关详细信息，请参阅wdInFootnote和wdInEndnote在

前面的段落中所描述。wdInHeaderFooter 如果所选内容或区域位于页眉或页脚窗格中，或者位于页面视True。

wdInMasterDocument 如果所选内容或区域位于主控文档（即至少包含一个子文档的文档）中，则该参数返回True。

wdInWordMail 如果所选内容或区域位于页眉或页脚窗格中，或者位于页面视图的页眉或页脚中，则返回True。

wdMaximumNumberOfColumns 返回所选内容或区域中任何行的最大表格列数。wdMaximumNumberOfRows 返回指定的所选内容或区域中表格的最大行数。

wdNumberOfPagesInDocument 返回与所选内容或区域相关联的文档的页数。wdNumLock 如果NumLock有效，则该参数返回True。wdOverType 如果改写模式有效，则该参数返回True。可使用Overtype属性改变改写模式的状态。wdReferenceOfType示。

wdRevisionMarking 如果更改跟踪有效，则该参数返回True。wdSelectionMode 返回一个值，该值表明当前的选定模式，如下表所示。

wdStartOfRangeColumnNumber 返回表格列号，在该表格列中包含所选内容或区域的起点。wdStartOfRangeRowNumber 返回表格行号，在该表格行中包含所选内容或区域的起点。

wdVerticalPositionRelativeToPage 返回所选内容或区域的垂直位置，即所选内容的上边缘与页面的上边缘之间的距离，以磅为单位（1磅=20缇，72磅=1英寸）。如果所选内容在文档窗口中不可见，则返回-1。wdVerticalPositionRelativeToTextBoundary 返回所选内容或区域相对于周围最近的正文边界的上边缘的垂直位置，以磅为单位（1磅=20 分区第4季的页

wdVerticalPositionRelativeToTextBoundary 返回所选内容或区域相对于周围最近的正文边界的上边缘的垂直位置，以磅为单位（1磅=20缇，72磅=1英寸）。该参数可用于在图文框或表格中确定插入点位置。如果所选内容不可见，则返回-1。wdWithInTable 如果所选内容位于表格中，则该参数返回True。

wdZoomPercentage 按百分比属性返回当前设置的缩放百分比。 分区第4季的页

2020年11月4日 15:13语法：MoveUp(单元、计数、扩展[选中])默认行，支持段落同理：MoveDown就是向上移动语法MovRight(单元、计数、扩[选中]持词，句同理：MoveLeft就是向左移动扩展就是选中，加个参数wdExtend案例：Sub新建文档插入10行()

Documents.AddFori=1To10NextEndSub 分区第4季的页

013.013.2020年11月3日 0:06参数 数字 wdCollapseEnd 0 wdCollapseStart 1 Sub在第2段结束点插XX()

Selection.Collapse0

XXX XXXXXXSet文档=ActiveDocumentForEach段落In文档.Paragraphs

段落.Range.Select

Selection.Collapse0

Selection.MovewdCharacter,-1NextEndSubSub计算每个段落的字数()Set文档=ActiveDocument段落.Range.Select 分区第4季的页

Selection.Collapse0Selection.MovewdCharacter,-1字数=段落.Range.Characters.Count'MsgBox字NextEndSub第二种方法不推荐，因为会造成萌新在对象使用上的误区Sub第2种方法()Set第2段=ActiveDocument.Paragraphs(2).Range第2段.Collapse0

第2段.Collapse0

XXXXXXEndSubSub用第2种方法统计字数()ForEach段落InActiveDocument.ParagraphsSet段落文字=段落.Range段落文字.Collapse0段落文字.MovewdCharacter,段落文字.MovewdCharacter,字数=段落.Range.Characters.Count'MsgBox字-1

NextEndSub 分区第4季的页

2020年11月5日 8:50Selection.Sentences.First'所选区域中的第一个句子、词、字符Selection.Sentences 分区第4季的页

2020年11月3日 21:55Sub遍历所有字符()Set文档=ActiveDocumentMsgBox字.TextNextEndSubSub把每一个字符都变成红色()

Set文档=ActiveDocument

ForEach字In文档.CharactersNextEndSubSub奇数和偶数字符颜色不同()Set文档=ActiveDocumentFori=1To文档.Range.Characters.CountIfiMod2Then'奇数

文档.Range.Characters(i).Font.ColorIndex=wdRed

ElseEndIfNext

EndSub 分区第4季的页

Sub多个段落时处理方式()Set文档=ActiveDocumentForEach段落In文档.ParagraphsFori=1To段落.Range.Characters.CountIfiMod2Then

段落.Range.Characters(i).Font.ColorIndex=wdRed

Else段落EndIfNext

Next

EndSubSub统计字符数量()MsgBox数量EndSubSub首字符设置().Bold=True.Font.Size=80EndWithEndSub 分区第4季的页

3.22020年11月3日 21:57Sub提取词()Set文档=ActiveDocumentForEach词In文档.Paragraphs(1).Range.WordsIfLen(词.Text)>1ThenSelection.TypeText词.Text&IfLen(词.Text)>1ThenSelection.TypeText词.Text&IfLen(词.Text)>1ThenSelection.TypeText词.Text&Next

Sub统计词语的数量()MsgBox数量EndSubSub选定文档中的第一个词()EndSubSub对第一个词进行设置().Italic=True

.Font.Size=100EndWithEndSub 分区第4季的页

3.3句子的应用2020年11月3日 21:57Sub对句子的操作()Set文档=ActiveDocumentForEach句子In文档.Paragraphs(1).Range.SentencesSelection.TypeText句子.Text'插入一个空段落Selection.TypeParagraphNextEndSubSub统计句子数量()数量=Selection.Sentences.CountMsgBox数量EndSubSub首句设置粗体和字号()WithActiveDocument.Sentences(1).Bold=True.Font.Size=48EndWithEndSub'注意Sentences集合没有Add方法，而是用InsertAfter和InsertBefore方法向Range对象中添加句子Sub在第一段后插入句子()Set文档=ActiveDocument文档.Paragraphs(1).Range.InsertParagraphAfterXXX文档.Paragraphs(1).Range.InsertParagraphAfterXXXXXXEndSub 分区第4季的页

2020年10月4日 19:29例如：foreach段落 分区第4季的页

附：常用段落的属性2020年11月3日 23:29属性 Selection.Paragraphs.Count 返回所选区域的段落数量Selection.Paragraphs.First 返回所选区域的第一段ActiveDocumnet.Paragraphs(1).LeftIndent 返回当前文档中第一段的左缩进值ActiveDocumnet.Paragraphs(1).LineSpacin 返回当前文档中第一段的行距ActiveDocumnet.Paragraphs(1).OutlineLevel 返回或设置当前文档中第一段的大纲级别ActiveDocumnet.Paragraphs(1).RightIndent 返回当前文档中第一段的右缩进量ActiveDocumnet.Paragraphs(1).SpaceBefore 返回当前文档中第一段的段前间距ActiveDocumnet.Paragraphs(1).SpaceAfter 返回当前文档中第一段的段后间距ActiveDocumnet.Paragraphs(1).Range.Text 返回当前文档中第一段的内容ActiveDocumnet.Paragraphs(1).Range.Style.NameLocal 返回当前文档中第一段应用的样式名 分区第4季的页

附：常用段落的方法2020年11月3日 23:29属性 中文Paragraphs.Add 新建段落Paragraphs.CloseUp 清除指定段落前的段落间距Paragraphs.DecreaseSpacing 以6磅增量缩减段前间距Paragraphs.IncreaseSpacing 以6磅增量增加段前间距Paragraphs.IndentCharWidth 以字符数为单位指定一个或多个段落的缩进量Paragraphs.IndentFirstLineCharWidth指定一个或多个段落首行缩进量，以指定字符为单位Paragraphs.OpenUp 为指定段落设置12磅的段前间距Paragraphs.Outdent 为一个或多个段落删除一个级别的缩进Paragraphs.OutlineDemote 对指定段落应用下一个级别的标题样式Paragraphs.OutlineDemoteToBody 通过应用“正文”样式，将指定的段落样式降为正文Paragraphs.OutlinePromote 对指定的段落应用前一个级别的标题样式Paragraphs.Reset 清除手动设置的段落格式 分区第4季的页

4.1新建段落2020年11月3日 23:42Sub插入新段落()'Selection.Paragraphs.Add'在光标位置插入一个段落（回车符）'Selection.InsertParagraph'在某一个段落前后插入'ActiveDocumen.Paragraphs(1).Range.InsertParagrap'错误

'ActiveDocumeParagraphs(1).Range.InsertParagraphBefoe第一段之前插入空段落ActiveDocumeParagraphs(1).Range.InsertParagraphAftr第一段之后插入空段落EndSub 分区第4季的页

2020年11月3日 23:52属性 中文wdAlignParagraphCenter 居中wdAlignParagraphLeft 左对齐wdAlignParagraphRight 右对齐wdAlignParagraphJustify 完全两端对齐wdAlignParagraphDistribute 段落字符被分布排列，以填满整个段落宽度wdAlignParagraphJustifyHi 两端对齐，字符高度压缩wdAlignParagraphJustifyLow 两端对齐，字符轻微压缩wdAlignParagraphJustifyMed 两端对齐，字符中度压缩wdAlignParagraphThaiJustify 按照泰语格式布局两端对齐Sub对齐方式()'光标所在或选择的这个段落居中对齐'Selection.Paragraphs.Alignment=wdAlignParagraphCenter'所有段落居中对齐Set文档=ActiveDocumentForEach段落In文档.Paragraphs段落.Alignment=wdAlignParagraphCenterNextEndSub 分区第4季的页

4.3设置段落的行间距（行距）2020年10月4日 19:52参数 中文wdLineSpace1pt5 Sub行间距后面个需要指定值()Set文档=Word.Application.ActiveDocumentSub行间距后面个需要指定值()Set文档=Word.Application.ActiveDocument'Set段落=文档.Paragraphs(1)'对第一个段落操作ForEach段落In文档.Paragraphs段落.LineSpacingRule=wdLineSpaceExactly

NextEndSubwdLineSpaceDouble 2倍行距

wdLineSpaceAtLeast 最小值wdLineSpaceMultiple 多倍

wdLineSpaceExactly 固定值Sub行间距前三个不用指定值()Set文档=Word.Application.ActiveDocumentForEach段落In文档.Paragraphs

段落.LineSpacingRule=wdLineSpace1pt5NextEndSub 分区第4季的页 数字 磅0.1 1 2 3 4 5

4.4设置段前、段后的间距2020年10月4日 20:06要设置段落前或段落后的行距，可以使用SpaceBefore和SpaceAfter属性，还可以通过设置SpaceBeforeAuto和SpaceAfterAuto属性把段前和段后的间距设置为自动设置。Sub段前段后()Set文档=Word.Application.ActiveDocument

'Set段落=文档.Paragraphs(1)'对第一个段落操作

ForEach段落In文档.Paragraphs'段落后面空10行段落.SpaceAfter=Word.Application.LinesToPoints(10)'段落前面空5行段落.SpaceBefore=Word.Application.LinesToPoints(5)NextEndSubSub段前段后自动()Set文档=Word.Application.ActiveDocument'Set段落=文档.Paragraphs(1)'对第一个段落操作ForEach段落In文档.Paragraphs

段落.SpaceAfter=SpaceAfterAuto

段落.SpaceBefore=SpaceBeforeAutoNextEndSub 分区第4季的页

2020年11月4日 0:23Sub段前与段后距离()'设置段前间距单位为磅（10磅）ActiveDocument.Paragraphs(1).SpaceAfter=10EndSubSub清除段前距离()'清除段前距离,以下两种写法均可ActiveDocument.Paragraphs(1).CloseUpEndSub 分区第4季的页

4.6Word首行缩进.左侧缩进.2020年10月4日 20:21Sub首行缩进()Set文档=Word.Application.ActiveDocument'Set段落=文档.Paragraphs(1)'对指定段落操作ForEach段落In文档.Paragraphs

'避免以前设置了首行缩进，选用一个极大值取消它，其它缩进也是一样，不在一一阐述段落.IndentFirstLineCharWidth-10000

'设置首行缩进字符数，2代表1个字符，4代表2个，以此类推

段落.IndentFirstLineCharWidth4NextEndSubSub左侧缩进()Set文档=Word.Application.ActiveDocument'Set段落=文档.Paragraphs(1)'对指定段落操作ForEach段落In文档.Paragraphs

'左侧缩进4个字符段落.IndentCharWidth4NextEndSubSub悬挂缩进()Set文档=ActiveDocument'设置默认的制表位为4个字符，0.74*2厘米文档.DefaultTabStop=CentimetersToPoints(0.74*2)'悬挂缩进4个字符，也就是一个自定义的制表位文档.Paragraphs(1).TabHangingIndent1EndSub 分区第4季的页

4.7删除段落及手动格式2020年10月6日 7:39Sub删除包含数字的段落()Set文档=Word.Application.ActiveDocumentFori=文档.Paragraphs.CountTo1Step-1

Set段落=文档.Paragraphs(i)'判断段落文本是否包含数字

-Next

EndSubSub删除空白段落()Set文档=Word.Application.ActiveDocumentFori=文档.Paragraphs.CountTo1Step-1Set段落=文档.Paragraphs(i)

'判断段落文本是否包含数字,其它符号详见第二季笔记13.01If段落.Range.Text=Chr(13)Then段落.Range.DeleteNextEndSub'删除手动段落格式（不使用样式应用的格式)'例如将手动设置的右对齐居中等还原Suba()ActiveDocument.Paragraphs(2).ResetEndSub 分区第4季的页

4.8标题样式的升级与降级2020年11月4日 0:34属性 OutlineDemote 标题样式降级OutlinePromote 标题样式升级OutlineDemoteToBody 将段落设置成正文OutlineLevel 返回大纲级别Sub标题等级()'对标题的降级'ActiveDocument.Paragraphs(1).OutlineDemote'返回标题等级等级=ActiveDocument.Paragraphs(2).OutlineLevelMsgBox等级EndSub'注意正文的号码是10Sub案例()Set文档=ActiveDocumentForEach段落In文档.Paragraphs

If段落.OutlineLevel=1Then

段落.Range.Font.Bold=FalseEndIfNext

EndSubSub大纲视图()ActiveDocument.ActiveWindow.View.Type=wdOutlineViewEndSub 分区第4季的页 属性 数字 wdNormalView 1 普通视图wdOutlineView 2 大纲视图wdPrintView 3 页面视图wdPrintPreview 4 打印预览视图wdMasterView 5 主控视图wdWebView 6 Web视图wdReadingView 7 阅读视图

05.在VBA中Section节的应用2020年11月4日 21:11Section对象代表选定内容、范围或文档中的某一节Section对象是SectionSection集合代表所有的节，例如个节表示为Sections(2) 分区第4季的页

5.1插入节2020年11月5日 参数 中文wdColumnBreak 插入点处的分栏符wdLineBreak 换行符wdLineBreakClearLeft wdLineBreakCl