“开发工具”选项卡→宏→Visaul Basic→左侧单击Normal工程→插入→模块→将上述的代码复制到右边的代码窗口。

C:\Users\username\AppData\Roaming\Microsoft\Templates

Document.Range方法

Document.Range方法用于返回从指定的开始字符位置到指定的结束字符位置之间的区域对象，其语法如下：

表达式.Range(Start, End)

表达式为一个代表Word文档对象的变量，如ActiveDocument、ThisDocument、Documents(“lifedoc”)

主文档区域：ActiveDocument.Range

每一个词组：Selection.Words

多文档处理：

通过循环嵌套指定目录、目录下的文件、文件内的对象及成员；

Chr(charcode)可以根据字符代码返回一个对应的字符：

Charcode的正常范围为0-255，如chr(13)返回回车符；chr(50)返回2，chr(68)返回大写字母D；

wdunits类的成员：

wdcell 是指word中表格的单元格

wdtable 是指word中的表格

wdCharacter 字符

wdCharacterFormatting 字符格式

wdColumn是指word中表格的列

wdRow是指word中表格的行

wdSentence是指word中的句子

wdWord是指word中的单词

wdParagraph是指word中的段落

selection的扩展：moveup,endkey;

dir函数用于表示一个文件名、目录名或文件夹名称；

如：

Sub SetNewRange()

Dim rngDoc As Range

Set rngDoc = ActiveDocument.Range(Start:=0, End:=10)

End Sub

Sub NewRange()

Dim doc As Document

Dim rngDoc As Range

Set doc = ActiveDocument

Set rngDoc = doc.Range(Start:=doc.Paragraphs(2).Range.Start, _

End:=doc.Paragraphs(3).Range.End)

End Sub

Sub 删除空白段落()

Dim para As Paragraph

For Each para In ActiveDocument.Paragraphs

If VBA.Len(para.Range) = 1 Then

para.Range.Delete

End If

Next

End Sub

Sub 自动编号变成普通文本()

ActiveDocument.Range.ListFormat.ConvertNumbersToText

End Sub

View.type属性：用于返回或设置视图的类型

值	说明

wdNormalView	1	普通视图

wdOutlineView	2	大纲视图

wdPrintView	3	页面视图

wdPrintPreview	4	打印预览视图

wdMasterView	5	主控视图

wdWebView	6	Web视图

wdReadingview	7	阅读视图

View.SeekView属性：用于返回或设置页面视图中显示的文档元素

值	说明

wdSeekMainDocument	0	主文档

wdSeekPrimaryHeader	1	主页眉

wdSeekFirstPageHeader	2	首页页眉

wdPrintPreview	4	打印预览视图

wdMasterView	5	主控视图

wdWebView	6	Web视图

wdReadingview	7	阅读视图