Question

全部显示

应用于 AddIns 对象的 Add 方法。

返回一个 AddIn 对象，该对象代表一个添加至可用加载宏列表中的加载宏。

expression.Add(FileName, Install)

expression 必需。该表达式返回一个 AddIns 对象。

FileName String 类型，必需。模板或 WLL 文件的路径。

Install Variant 类型，可选。如果为 True，则安装加载项；如果为 False，则将加载项添加至加载项列表中，但不进行安装。默认值为 True。

说明

用加载项的 Installed 属性可查看该项是否已经安装。

应用于 AutoCorrectEntries 对象的 Add 方法。

返回一个 AutoCorrectEntry 对象，该对象代表添加至可用“自动更正”词条列表中的纯文本“自动更正”词条。

expression.Add(Name, Value)

expression 必需。该表达式返回一个 AutoCorrectEntries 对象。

Name String 类型，必需。将自动替换为由Value 所指定的文字。

Value String 类型，必需。当键入Name 所指定的文字时，自动插入的文字。

说明

可用 AddRichText 方法创建带格式的“自动更正”词条。

应用于 AutoTextEntries 对象的 Add 方法。

返回一个 AutoTextEntry 对象，该对象代表添加至可用的“自动图文集”词条列表中的“自动图文集”词条。

expression.Add(Name, Range)

expression 必需。该表达式返回一个 AutoTextEntries 对象。

Name String 类型，必需。当键入时，启用“自动图文集”词条的文本。

Range Range 类型，必需。当键入Name 时，插入的文本区域。

应用于 Bookmarks 对象的 Add 方法。

返回一个 Bookmark 对象，该对象代表添加至区域中的书签。

expression.Add(Name, Range)

expression 必需。该表达式返回一个 Bookmarks 对象。

NameString 类型，必需。书签名。书签名不能多于一个单词。

RangeVariant 类型，可选。书签标记的文本区域。可将书签设置到一个折叠的区域（插入点）。

应用于 CaptionLabels 对象的 Add 方法。

返回一个 CaptionLabel 对象，该对象代表自定义题注标签。

expression.Add(Name)

expression 必需。该表达式返回一个 CaptionLabels 对象。

NameString 类型，必需。自定义题注标签的名称。

应用于 Cells 对象的 Add 方法。

返回一个 Cell 对象，该对象代表添加至表格中的单元格。

expression.Add(BeforeCell)

expression 必需。该表达式返回一个 Cells 对象。

BeforeCellVariant 类型，可选。指定一个 Cell 对象，该对象代表将会显示在新单元格右侧的单元格。

应用于 Columns 对象的 Add 方法。

返回一个 Column 对象，该对象代表添加至表格中的列。

expression.Add(BeforeColumn)

expression 必需。该表达式返回一个 Columns 对象。

BeforeColumnVariant 类型，可选。指定一个 Column 对象，该对象代表将会显示在新列右侧的列。

应用于 Comments 对象的 Add 方法。

返回一个 Comment 对象，该对象代表添加至区域中的备注。

expression.Add(Range, Text)

expression 必需。该表达式返回一个 Comments 对象。

RangeRange 对象，必需。需要添加备注的区域。

TextVariant 类型，可选。备注文本。

应用于 CustomLabels 对象的 Add 方法。

为 CustomLabels 集合添加一个自定义邮件标签。返回一个 CustomLabel 对象，该对象代表自定义邮件标签。

expression.Add(Name, DotMatrix)

expression 必需。该表达式返回一个 CustomLabels 对象。

NameString 类型，必需。自定义邮件标签的名称。

DotMatrixVariant 类型，可选。如果为 True，则在点阵式打印机上打印该邮件标签。

应用于 CustomProperties 对象的 Add 方法。

返回一个 CustomProperty 对象，该对象代表添加至智能标记上的自定义属性。

expression.Add(Name, Value)

expression 必需。该表达式返回一个 CustomProperties 对象。

NameString 类型，必需。自定义智能标记属性的名称。

ValueString 类型，必需。自定义智能标记属性的值。

应用于 Dictionaries 和 HangulHanjaConversionDictionaries 对象的 Add 方法。

返回一个 Dictionary 对象，该对象代表添加至活动自定义拼写或转换词典集合中的新的自定义拼写或转换词典。如果 FileName 指定名称的文件不存在，Microsoft Word 就会新建一个文件。

expression.Add(FileName)

expression 必需。该表达式返回以上一个对象。

FileNameString 类型，必需。词典文件名的字符串名。如果该字符串没有指定任何路径，则使用校对工具的路径。

说明

Dictionaries 集合仅包含活动的自定义拼写词典。源于 Languages 集合的 Dictionary 对象没有 Add 方法。包括由下列属性返回的 Dictionary 对象：ActiveSpellingDictionary、ActiveGrammarDictionary、ActiveThesaurusDictionary 和 ActiveHyphenationDictionary。

可用 HangulHanjaDictionaries 属性返回自定义转换词典集合。HangulHanjaConversionDictionaries 集合中只包含活动的自定义转换词典。

有关在 Word 中使用东亚语言的详细信息，请参阅 Word 中关于东亚语言的功能。

应用于 Documents 对象的 Add 方法。

返回一个 Document 对象，该对象代表添加至打开文档集合中的新建空文档。

expression.Add(Template, NewTemplate, DocumentType, Visible)

expression 必需。该表达式返回一个 Documents 对象。

TemplateVariant 类型，可选。新文档使用的模板名。如果忽略此参数，则使用 Normal 模板。

NewTemplateVariant 类型，可选。如果为 True，则将文档作为模板打开。默认值是 False。

DocumentTypeVariant 类型，可选。可以是下列 WdNewDocumentType 常量之一：wdNewBlankDocument、wdNewEmailMessage、wdNewFrameset 或 wdNewWebPage。默认值为 wdNewBlankDocument。

VisibleVariant 类型，可选。如果为 True，将在可见窗口打开文档；如果为 False，Microsoft Word 会打开此文档并将文档窗口的 Visible 属性设为 False。该属性的默认值为 True。

应用于 EmailSignatureEntries 对象的 Add 方法。

返回一个 EmailSignatureEntry 对象，该对象代表新的电子邮件签名词条。

expression.Add(Name, Range)

expression 必需。该表达式返回一个 EmailSignatureEntries 对象。

NameString 类型，必需。电子邮件词条的名称。

RangeRange 对象，必需。作为签名添加至文档中的区域。

说明

电子邮件签名是结束电子邮件的标准文本，如姓名和电话号码。可用 EmailSignatureEntries 属性创建和管理电子邮件签名集合，Microsoft Word 创建电子邮件时会使用该集合。

应用于 Endnotes 和 Footnotes 对象的 Add 方法。

返回一个 Endnote 或 Footnote 对象，该对象代表添加至区域中的尾注或脚注。

expression.Add(Range, Reference, Text)

expression 必需。该表达式返回以上一个对象。

RangeRange 对象，必需。标记为尾注或脚注的区域，可以是折叠的区域。

ReferenceVariant 类型，可选。自定义引用标记的文字。如果忽略此参数，Microsoft Word 插入自动编号的引用标记。

TextVariant 类型，可选。尾注或脚注文本。

说明

若要为 Reference 参数指定一个符号，可用 {FontName CharNum} 语法。FontName 是包含该符号的字体名称。修饰字体的名称显示在“插入”菜单“符号”对话框的“字体”框中。CharNum 是需要插入的符号的位置序数与 31 之和，符号位置序数在符号表格中从左向右计算。例如，如果指定的符号是“Symbol”字体的 omega (ω)，它在符号表格中的位置序数为 56，该参数就应为“{Symbol 87}”。

应用于 Fields 对象的 Add 方法。

在 Fields 集合中添加一个 Field 对象。在指定区域中返回 Field 对象。

expression.Add(Range, Type, Text, PreserveFormatting)

expression 必需。该表达式返回一个 Fields 对象。

RangeRange 对象，必需。需要添加域的区域。如果该区域未折叠，那么域将替换此区域。

TypeVariant 类型，可选。可以是下列 WdFieldType 常量之一。有关有效的常量列表的详细信息，请参阅“对象浏览器”。默认值为 wdFieldEmpty。

TextVariant 类型，可选。域所需的其他文本。例如，如果要给域指定一个开关，可将其添加至此处。

PreserveFormattingVariant 类型，可选。如果为 True，则更新时保留域所应用的格式。

说明

不能用 Fields 集合的 Add 方法来插入诸如 wdFieldOCX 和 wdFieldFormCheckBox 之类的域，取而代之的是，应使用如 AddOLEControl 和 Add 之类的指定方法来插入 FormFields 集合。

应用于 FirstLetterExceptions、OtherCorrectionsExceptions 和 TwoInitialCapsExceptions 对象的 Add 方法。

返回一个 FirstLetterException、OtherCorrectionsExceptions 或 TwoInitialCapsExceptions 对象，该对象代表添加至“自动更正”例外项列表中的新例外项。

expression.Add(Name)

expression 必需。该表达式返回以上一个对象。

NameString 类型，必需。指定 Microsoft Word 应忽略的前两个字母连续大写的词（FirstLetterExceptions 对象）、其后不大写的缩写词（TwoInitialCapsExceptions 对象）或 Word 应忽略的其他词（OtherCorrectionsExceptions 对象）。

说明

如果 TwoInitialCapsAutoAdd 属性为 True；单词将自动添加至前两个字母连续大写的例外项列表中。如果 FirstLetterAutoAdd 属性为 True，缩写词将自动添加至首字母例外项列表中；如果 OtherCorrectionsAutoAdd 属性为 True，单词将自动添加至其他更正例外项列表中。

应用于 FormFields 对象的 Add 方法。

返回一个 FormField 对象，该对象代表添加至区域中的新的窗体域。

expression.Add(Range, Type)

expression 必需。该表达式返回一个 FormFields 对象。

RangeRange 对象，必需。需要添加窗体域的区域。如果该区域未折叠，那么域将替换此区域。

TypeWdFieldType，必需。添加的窗体域的类型。

WdFieldType 可以是下列 WdFieldType 常量之一：

wdFieldAddin

wdFieldAdvance

wdFieldAsk

wdFieldAuthor

wdFieldAutoNum

wdFieldAutoNumLegal

wdFieldAutoNumOutline

wdFieldAutoText

wdFieldAutoTextList

wdFieldBarCode

wdFieldComments

wdFieldCompare

wdFieldCreateDate

wdFieldData

wdFieldDatabase

wdFieldDate

wdFieldDDE

wdFieldDDEAuto

wdFieldDocProperty

wdFieldDocVariable

wdFieldEditTime

wdFieldEmbed

wdFieldEmpty

wdFieldExpression

wdFieldFileName

wdFieldFileSize

wdFieldFillIn

wdFieldFootnoteRef

wdFieldFormCheckBox

wdFieldFormDropDown

wdFieldFormTextInput

wdFieldFormula

wdFieldGlossary

wdFieldGoToButton

wdFieldHTMLActiveX

wdFieldHyperlink

wdFieldIf

wdFieldImport

wdFieldInclude

wdFieldIncludePicture

wdFieldIncludeText

wdFieldIndex

wdFieldIndexEntry

wdFieldInfo

wdFieldKeyWord

wdFieldLastSavedBy

wdFieldLink

wdFieldListNum

wdFieldMacroButton

wdFieldMergeField

wdFieldMergeRec

wdFieldMergeSeq

wdFieldNext

wdFieldNextIf

wdFieldNoteRef

wdFieldNumChars

wdFieldNumPages

wdFieldNumWords

wdFieldOCX

wdFieldPage

wdFieldPageRef

wdFieldPrint

wdFieldPrintDate

wdFieldPrivate

wdFieldQuote

wdFieldRef

wdFieldRefDoc

wdFieldRevisionNum

wdFieldSaveDate

wdFieldSection

wdFieldSectionPages

wdFieldSequence

wdFieldSet

wdFieldSkipIf

wdFieldStyleRef

wdFieldSubject

wdFieldSubscriber

wdFieldSymbol

wdFieldTemplate

wdFieldTime

wdFieldTitle

wdFieldTOA

wdFieldTOAEntry

wdFieldTOC

wdFieldTOCEntry

wdFieldUserAddress

wdFieldUserInitials

wdFieldUserName

应用于 Frames 对象的 Add 方法。

返回一个 Frame 对象，该对象代表添加至区域、所选内容或文档中的新框架。

expression.Add(Range)

expression 必需。该表达式返回一个 Frames 对象。

RangeRange 对象，必需。框架所环绕的区域。

应用于 HangulAndAlphabetExceptions 对象的 Add 方法。

返回一个 HangulAndAlphabetException 对象，该对象代表添加至“自动更正”例外项列表中的一个新例外项。

expression.Add(Name)

expression 必需。该表达式返回一个 HangulAndAlphabetExceptions 对象。

NameString 类型，必需。不需要 Microsoft Word 进行自动更正的单词。

说明

如果将 HangulAndAlphabetAutoAdd 的属性设为 True，单词将会自动添加至朝鲜文字和字母的“自动更正”例外项列表中。

有关在 Word 中使用东亚语言的详细信息，请参阅 Word 中关于东亚语言的功能。

应用于 HeadingStyles 对象的 Add 方法。

返回一个 HeadingStyle 对象，该对象代表添加至文档中的新标题样式。在编译目录或图表目录时，都会包含这个新的标题样式。

expression.Add(Style, Level)

expression 必需。该表达式返回一个 HeadingStyles 对象。

StyleVariant 类型，必需。需要添加的样式。要指定该参数，可以使用该样式的名称字符串或 Style 对象。

LevelInteger 类型，必需。该数值代表标题级别。

应用于 HTMLDivisions 对象的 Add 方法。

返回一个 HTMLDivision 对象，该对象代表添加至 Web 文档中的新 HTML 区域。

expression.Add(Range)

expression 必需。该表达式返回一个 HTMLDivisions 对象。

RangeVariant 类型，可选。围绕原有 HTML 区域放置新的 HTML 区域。

应用于 Hyperlinks 对象的 Add 方法。

返回一个 Hyperlink 对象，该对象代表添加至区域、所选内容或文档的新的超链接。

expression.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay, Target)

expression 必需。该表达式返回一个 Hyperlinks 对象。

AnchorObject，必需。转换为超链接的文本或图形。

AddressVariant 类型，可选。指定的链接的地址。此地址可以是电子邮件地址、Internet 地址或文件名。请注意，Microsoft Word 不检查该地址的正确性。

SubAddressVariant 类型，可选。目标文件内的位置名，如书签、已命名的区域或幻灯片编号。

ScreenTipVariant 类型，可选。当鼠标指针放在指定的超链接上时显示的可用作“屏幕提示”的文本。默认值为 Address。

TextToDisplayVariant 类型，可选。指定的超链接的显示文本。此参数的值将取代由 Anchor 指定的文本或图形。

TargetVariant 类型，可选。要在其中打开指定的超链接的框架或窗口的名字。

应用于 Indexes 对象的 Add 方法。

返回一个 Index 对象，该对象代表添加至文档的新索引。

expression.Add(Range, HeadingSeparator, RightAlignPageNumbers, Type, NumberOfColumns, AccentedLetters, SortBy, IndexLanguage)

expression 必需。该表达式返回一个 Indexes 对象。

RangeRange 对象，必需。显示索引的区域。如果该区域未折叠，添加的索引将替换此区域。

HeadingSeparatorVariant 类型，可选。索引的字母顺序组（首字母相同的所有项）之间的文字。可以是下列 WdHeadingSeparator 常量之一：wdHeadingSeparatorBlankLine、wdHeadingSeparatorLetter、wdHeadingSeparatorLetterFull、wdHeadingSeparatorLetterLow 或 wdHeadingSeparatorNone。

RightAlignPageNumbersVariant 类型，可选。如果为 True，页码将与页面右边距对齐。

TypeVariant 类型，可选。指明次索引项是与主索引项位于同一行（接排式），还是位于独立的行（缩进）。可以是下列 dIndexType 常量之一：wdIndexIndent 或 wdIndexRunin。

NumberOfColumnsVariant 类型，可选。指定索引每页的列数。指定为 0（零）则索引中的列数将设为与文档中的数目一样。

AccentedLettersVariant 类型，可选。如果为 True，则在索引中为重音字母设置单独的标题（例如，以“a”开头的单词与以“A”开头的单词将列在不同的标题下）。

SortByVariant 类型，可选。用于特定索引的排序准则。可以是下列 WdIndexSortBy 常量之一：wdIndexSortByStroke 或 wdIndexSortBySyllable。

IndexLanguageVariant 类型，可选。用于特定索引的排序语言。可以是下列 WdLanguageID 常量。有关有效的 WdLanguageID 常量列表的详细信息，请参阅“Visual Basic 编辑器”中的“对象浏览器”。

说明

索引是根据文档中的索引项 (XE) 域创建的。用 MarkEntry 方法可标记索引中所包含的索引项。

应用于 KeyBindings 对象的 Add 方法。

返回一个 KeyBinding 对象，该对象代表宏、内置命令、字体、“自动图文集”词条、样式或符号的新快捷键。

expression.Add(KeyCategory, Command, KeyCode, KeyCode2, CommandParameter)

expression 必需。该表达式返回一个 KeyBindings 对象。

KeyCategoryWdKeyCategory，必需。按键指定方案的类别。

WdKeyCategory 可以是下列 WdKeyCategory 常量之一：

wdKeyCategoryAutoText

wdKeyCategoryCommand

wdKeyCategoryDisable

wdKeyCategoryFont

wdKeyCategoryMacro

wdKeyCategoryNil

wdKeyCategoryPrefix

wdKeyCategoryStyle

wdKeyCategorySymbol

CommandString 类型，必需。指定的组合键所执行的命令。

KeyCodeLong 类型，必需。用下列 WdKey 常量指定的键。

KeyCode2Variant 类型，可选。用 WdKey 常量指定的第二个键。

CommandParameterVariant 类型，可选。Command 所指定的命令的附加文字（如果有的话）。详细信息，请参阅下面的“说明”部分。

说明

可用 BuildKeyCode 方法创建 KeyCode 或 KeyCode2 参数。

在下表中，左边的列包含需要命令值的命令，右边的列说明指定每个命令的 CommandParameter 必须执行的操作（在“工具”菜单中的“自定义键盘”对话框中指定 CommandParameter 的相应操作：当在“命令”框中选择下列命令时，在显示出来的列表框中选择一项）。

如果将 Command 设为	CommandParameter 必须为
Borders、Color 或 Shading	一个指定为文本的数字，对应于在包含值的列表框中选中项的位置，其中 0（零）是第一项，1 是第二项，以此类推
Columns	一个指定为文本的 1 至 45 之间的数字，对应于要应用的列数
Condensed	一个 0.1 磅至 12.75 磅之间的文本度量值，以 0.05 磅为增量（72 磅 = 1 英寸）
Expanded	一个 0.1 磅至 12.75 磅之间的文本度量值，以 0.05 磅为增量（72 磅 = 1 英寸）
FileOpenFile	需要打开文件的路径和名称。如果没有指定路径，则使用当前文件夹
Font Size	一个正的文本度量值，以 0.5 磅为增量（72 磅 = 1 英寸）
Lowered、 Raised	一个 1 磅至 64 磅之间的文本度量值，以 0.5 磅为增量（72 磅 = 1 英寸）
Symbol	通过连接 Chr() 指令和符号的字体名称所创建的字符串（例如，Chr(167) & "Symbol"）

应用于 ListEntries 对象的 Add 方法。

返回一个 ListEntry 对象，该对象代表添加至下拉型窗体域中的项。

expression.Add(Name, Index)

expression 必需。该表达式返回一个 ListEntries 对象。

NameString 类型，必需。下拉型窗体域项的名称。

IndexVariant 类型，可选。代表项在列表中的位置的数字。

应用于 ListTemplates 对象的 Add 方法。

返回一个 ListTemplate 对象，该对象代表新的列表模板。

expression.Add(OutlineNumbered, Name)

expression 必需。该表达式返回一个 ListTemplates 对象。

OutlineNumberedVariant 类型，可选。如果为 True，则将多级符号应用于新的列表模板。

NameVariant 类型，可选。用于将列表模板链接到 LISTNUM 域的可选名称。不能使用该名称在集合中对列表模板进行索引。

说明

对于由 ListGallery 对象返回的 ListTemplates 对象，不能使用 Add 方法，但是可以修改库中原有的列表模板。

应用于 MailMergeFields 对象的 Add 方法。

返回一个 MailMergeField 对象，该对象代表添加至数据源文档中的邮件合并域。

expression.Add(Range, Name)

expression 必需。该表达式返回一个MailMergeFields 对象。

RangeRange 对象，必需。域显示的区域。如果该区域未折叠，那么域将替换此区域。

NameString 类型，必需。域名。

应用于 PageNumbers 对象的 Add 方法。

返回一个 PageNumber 对象，该对象代表添加至节中的页眉或页脚中的页码。

expression.Add(PageNumberAlignment, FirstPage)

expression 必需。该表达式返回一个 PageNumbers 对象。

PageNumberAlignmentVariant 类型，可选。可以是下列 WdPageNumberAlignment 常量之一：

wdAlignPageNumberCenter

wdAlignPageNumberInside

wdAlignPageNumberLeft

wdAlignPageNumberOutside

wdAlignPageNumberRight

FirstPageVariant 类型，可选。如果为 False，则文档中的第一页的页眉和页脚与后面各页的页眉和页脚都不相同；如果将 FirstPage 设为 False，则在第一页不添加页码；如果忽略本参数，则由 DifferentFirstPageHeaderFooter 属性控制该设置。

说明

如果将 HeaderFooter 对象的 LinkToPrevious 属性设为 True，则在文档中各节的页码都将连续编号。

应用于 Panes 对象的 Add 方法。

返回一个 Pane 对象，该对象代表窗口中的新窗格。

expression.Add(SplitVertical)

expression 必需。该表达式返回一个 Panes 对象。

SplitVerticalVariant 类型，可选。该数值代表需显示在拆分之上的从上至下的窗口百分比。

说明

如果将本方法应用于拆分过的窗口，则本方法会无效。

应用于 Paragraphs 对象的 Add 方法。

返回一个 Paragraph 对象，该对象代表添加至文档中的新的空白段落。

expression.Add(Range)

expression 必需。该表达式返回一个 Paragraphs 对象。

RangeVariant 类型，可选。要在其前添加新段落的范围，新的段落不替换该范围。

说明

如果不指定 Range，则将新段落添加至所选内容或范围之后，或者添加至文档最后，具体情况取决于 expression 的设置。

应用于 RecentFiles 对象的 Add 方法。

返回一个 RecentFile 对象，该对象代表添加至最近使用过的文件列表中的文件。

expression.Add(Document, ReadOnly)

expression 必需。该表达式返回一个 RecentFile 对象。

DocumentVariant 类型，必需。需要添加至最近使用的文件列表的文档。可用文档的字符串名称或 Document 对象来指定本参数。

ReadOnlyVariant 类型，可选。如果为 True，则将文档设为只读。

应用于 Rows 对象的 Add 方法。

返回一个 Row 对象，该对象代表添加至表格中的行。

expression.Add(BeforeRow)

expression 必需。该表达式返回一个 Rows 对象。

BeforeRowVariant 类型，可选。指定一个 Row 对象，在此对象的上方将插入新行。

应用于 Sections 对象的 Add 方法。

返回一个 Section 对象，该对象代表添加至文档中的新节。

expression.Add(Range, Start)

expression 必需。该表达式返回一个 Sections 对象。

RangeVariant 类型，可选。在其之前插入分节符的区域。如果忽略本参数，则将分节符插至文档末尾。

StartVariant 类型，可选。要添加的分节符类型。可以是下列 WdSectionStart 常量之一：wdSectionContinuous、wdSectionEvenPage、wdSectionNewColumn、wdSectionNewPage 或 wdSectionOddPage。如果忽略本参数，则添加“下一页”类型的分节符。

应用于 SmartTags 对象的 Add 方法。

返回一个 SmartTag 对象，该对象代表添加至文档的新的智能标记。

expression.Add(Name, Range, Properties)

expression 必需。该表达式返回一个 SmartTags 对象。

NameString 类型，必需。智能标记的名称。

RangeVariant 类型，可选。应用智能标记的区域。

PropertiesVariant 类型，可选。应用于智能标记的属性。

应用于 Styles 对象的 Add 方法。

返回一个 Style 对象，该对象代表添加至样式列表中的用户定义的新样式。

expression.Add(Name, Type)

expression 必需。该表达式返回一个 Styles 对象。

NameString 类型，必需。新样式的字符串名称。

TypeVariant 类型，可选。新样式的样式类型。可以是下列 WdStyleType 常量之一：wdStyleTypeParagraph、wdStyleTypeCharacter、wdStyleTypeList 或 wdStyleTypeTable。

应用于 StyleSheets 对象的 Add 方法。

返回一个 StyleSheet 对象，该对象代表添加至 Web 文档中的新样式表。

expression.Add(FileName, LinkType, Title, Precedence)

expression 必需。该表达式返回一个 StyleSheets 对象。

FileNameString 类型，必需。级联样式表的路径和文件名。

LinkTypeWdStyleSheetLinkType，可选。表明样式表是否作为链接添加至或导入到 Web 文档中。

WdStyleSheetLinkType 可以是下列 WdStyleSheetLinkType 常量之一：

wdStyleSheetLinkTypeImported

wdStyleSheetLinkTypeLinked默认值

TitleString 类型，可选。样式表的名称。

PrecedenceWdStyleSheetPrecedence，可选。表明与 Web 文档附加的其他级联样式表相对比的重要级别。

WdStyleSheetPrecedence 可以是下列 WdStyleSheetPrecedence 常量之一：

wdStyleSheetPrecedenceHigher

wdStyleSheetPrecedenceHighest默认值

wdStyleSheetPrecedenceLower

wdStyleSheetPrecedenceLowest

应用于 Tables 对象的 Add 方法。

返回一个 Table 对象，该对象代表添加至文档中的空白新表格。

expression.Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)

expression 必需。该表达式返回一个 Tables 对象。

RangeRange 对象，必需。指定表格显示的区域。如果该区域未折叠，表格将替换该区域。

NumRowsLong 类型，必需。要在表格中包括的行数。

NumColumnsLong 类型，必需。要在表格中包括的列数。

DefaultTableBehaviorVariant 类型，可选。设置一个值，来指定 Microsoft Word 是否要根据单元格中的内容自动调整表格单元格的大小（“自动调整”功能）。可以是下列常量之一：wdWord8TableBehavior（禁用“自动调整”功能）或 wdWord9TableBehavior（启用“自动调整”功能）。默认常量为 wdWord8TableBehavior。

AutoFitBehaviorVariant 类型，可选。该属性用于设置 Word 调整表格大小的“自动调整”规则。可以是下列 WdAutoFitBehavior 常量之一：wdAutoFitContent、wdAutoFitFixed 或 wdAutoFitWindow。如果将 DefaultTableBehavior 设为 wdWord8TableBehavior，则忽略此参数。

应用于 TablesOfAuthorities 对象的 Add 方法。

返回一个 TableOfAuthorities 对象，该对象代表添加至文档中的引文目录。

expression.Add(Range, Category, Bookmark, Passim, KeepEntryFormatting, Separator, IncludeSequenceName, EntrySeparator, PageRangeSeparator, IncludeCategoryHeader, PageNumberSeparator)

expression 必需。该表达式返回一个 TableOfAuthorities 对象。

RangeRange 对象，必需。引文目录显示的区域。如果该区域未折叠，引文目录将替换该区域。

CategoryVariant 类型，可选。要包括在引文目录中的项的类别。对应于引文目录 (TOA) 域的 \c 开关。值 0 至 16 对应于“索引和目录”对话框的“引文目录”选项卡上的“类别”框中列出的各项（“插入”菜单“引用”命令）。默认值是 1。

BookmarkVariant 类型，可选。书签的字符串名称，可从该书签收集引文目录项。如果指定了 Bookmark，则只能从书签所标记的文档部分收集各项。对应于引文目录 (TOA) 域的 \b 开关。

PassimVariant 类型，可选。如果为 True，则将五处或更多不同的页面引用替换为引文目录中带“Passim”的相同引文。对应于引文目录 (TOA) 域的 \p 开关。如果忽略此参数，则认为 Passim 参数为 False。

KeepEntryFormattingVariant 类型，可选。如果为 True，则将引文目录项的格式应用于引文目录中的各项。对应于引文目录 (TOA) 域的 \f 开关。如果忽略此参数，则认为 KeepEntryFormatting 参数为 True。

SeparatorVariant 类型，可选。指定引文目录中序列号和页码间的字符（最多五个）。对应于引文目录 (TOA) 域的 \d 开关。如果忽略此参数，则使用连字符 (-)。

IncludeSequenceNameVariant 类型，可选。为引文目录指定 Sequence (SEQ) 域的标识符的字符串。对应于引文目录 (TOA) 域的 \s 开关。

EntrySeparatorVariant 类型，可选。在引文目录中分隔各项及其页码的字符（最多五个）。对应于引文目录 (TOA) 域的 \e 开关。如果忽略此参数，则不使用分隔符。

PageRangeSeparatorVariant 类型，可选。在引文目录页面范围中分隔起始和结束页码的字符（最多五个）。对应于引文目录 (TOA) 域的 \g 开关。如果忽略此参数，则使用英文连字符 (–)。

IncludeCategoryHeaderVariant 类型，可选。如果为 True，则在引文目录中包含项目组的类别标题（例如，Cases）。对应于引文目录 (TOA) 域的 \h 开关。如果忽略此参数，则认为 IncludeCategoryHeader 是 True。

PageNumberSeparatorVariant 类型，可选。在引文目录的页引用中分隔单个页码的字符（最多五个）。对应于引文目录 (TOA) 域的 \l 开关。如果忽略此参数，则使用逗号和空格。

说明

引文目录是根据文档中的引文目录项 (TA) 域创建的。可用 MarkCitation 方法标记包含在引文目录中的引用。

应用于 TablesOfContents 对象的 Add 方法。

返回一个 TableOfContents 对象，该对象代表添加至文档中的目录。

expression.Add(Range, UseHeadingStyles, UpperHeadingLevel, LowerHeadingLevel, UseFields, TableID, RightAlignPageNumbers, IncludePageNumbers, AddedStyles, UseHyperlinks, HidePageNumbersInWeb, UseOutlineLevels)

expression 必需。该表达式返回一个 TableOfContents 对象。

RangeRange 对象，必需。指定目录显示的区域。如果该区域未折叠，目录将替换该区域。

UseHeadingStylesVariant 类型，可选。如果为 True，则使用内置标题样式创建目录。默认值为 True。

UpperHeadingLevelVariant 类型，可选。目录的起始标题级别。对应于使用 \o 开关的目录 (TOC) 域的起始值。默认值是 1。

LowerHeadingLevelVariant 类型，可选。目录的结束标题级别。对应于使用 \o 开关的目录 (TOC) 域的结束值。默认值为 9。

UseFieldsVariant 类型，可选。如果为 True，则目录项 (TC) 域用于创建目录。用 MarkEntry 方法来标记要包括在目录中的各项。默认值是 False。

TableIDVariant 类型，可选。单字母标识符，用于根据 TC 域创建目录。对应于目录 (TOC) 域中的 \f 开关。例如，“T”表示使用表格标识符 T 从 TC 域建立目录。如果忽略此参数，将不使用 TC 域。

RightAlignPageNumbersVariant 类型，可选。如果为 True，目录中的页码将与页面右边距对齐。默认值为 True。

IncludePageNumbersVariant 类型，可选。如果为 True，则在目录中包含页码。默认值为 True。

AddedStylesVariant 类型，可选。用于编译目录的其他样式的字符串名称（除标题 1–标题 9 以外的其他样式）。可用 HeadingStyles 对象的 Add 方法来创建新的标题样式。

UseHyperlinksVariant 类型，可选。如果为 True，那么将文档发布到 Web 时，目录中的目录项将转换为超链接的格式。默认值为 True。

HidePageNumbersInWebVariant 类型，可选。如果为 True，那么将文档发布到 Web 时，目录中的页码将被隐藏。默认值为 True。

UseOutlineLevelsVariant 类型，可选。如果为 True，则使用大纲级别创建目录。默认值是 False。

应用于 TablesOfFigures 对象的 Add 方法。

返回一个 TableOfFigures 对象，该对象代表添加至文档中的图表目录。

expression.Add(Range, Caption, IncludeLabel, UseHeadingStyles, UpperHeadingLevel, LowerHeadingLevel, UseFields, TableID, RightAlignPageNumbers, IncludePageNumbers, AddedStyles, UseHyperlinks, HidePageNumbersInWeb)

expression 必需。该表达式返回一个 TableOfFigures 对象。

RangeRange 对象，必需。指定图表目录显示 的区域。

CaptionVariant 类型，可选。标识图表目录中所要包含的各项的标签。对应于目录 (TOC) 域中的 \c 开关。默认值是“Figure”。

IncludeLabelVariant 类型，可选。如果为 True，则图表目录中包含题注标签和题注编号。默认值为 True。

UseHeadingStylesVariant 类型，可选。如果为 True，将使用内置标题样式创建图表目录。默认值是 False。

UpperHeadingLevelVariant 类型，可选。如果将 UseHeadingStyles 设为 True，则指定图表目录的起始标题级别。对应于目录 (TOC) 域中使用 \o 开关的起始值。默认值是 1。

LowerHeadingLevelVariant 类型，可选。如果将 UseHeadingStyles 设为 True，则指定图表目录的结束标题级别。对应于目录 (TOC) 域中使用 \o 开关的结束值。默认值为 9。

UseFieldsVariant 类型，可选。如果为 True，则使用目录项 (TC) 域创建图表目录。可用 MarkEntry 方法标记图表目录中要包括的各项。默认值是 False。

TableIDVariant 类型，可选。单字母标识符，用于根据目录项 (TC) 域创建图表目录。对应于目录 (TOC) 域中的 \f 开关。例如。“i”可创建一个图解的图表目录。

RightAlignPageNumbersVariant 类型，可选。如果为 True，图表目录的页码将与页面右边距对齐。默认值为 True。

IncludePageNumbersVariant 类型，可选。如果为 True，则图表目录中包含页码。默认值为 True。

AddedStylesVariant 类型，可选。用于编译图表目录的其他样式的字符串名称（除标题 1–标题 9 的其他样式）。

UseHyperlinksVariant 类型，可选。如果为 True，那么将文档发布到 Web 时，图表目录中的目录项将转换为超链接的格式。默认值为 True。

HidePageNumbersInWebVariant 类型，可选。如果为 True，那么将文档发布到 Web 时，该图表目录中的页码将被隐藏。默认值为 True。

应用于 TabStops 对象的 Add 方法。

返回一个 TabStop 对象，该对象代表添加至文档中的自定义制表位。

expression.Add(Position, Alignment, Leader)

expression 必需。该表达式返回一个 TabStops 对象。

PositionSingle 类型，必需。制表位与页面左边距的相对位置（以磅为单位）。

AlignmentVariant 类型，可选。制表位的对齐方式。可以是下列 WdTabAlignment 常量之一：wdAlignTabBar、wdAlignTabCenter、wdAlignTabDecimal、wdAlignTabLeft、wdAlignTabList 或 wdAlignTabRight。如果忽略本参数，则用 wdAlignTabLeft。

LeaderVariant 类型，可选。制表位的前导符类型。可以是下列 WdTabLeader 常量之一：wdTabLeaderDashes、wdTabLeaderDots、wdTabLeaderHeavy、wdTabLeaderLines、wdTabLeaderMiddleDot 或 wdTabLeaderSpaces。如果忽略本参数，则用 wdTabLeaderSpaces。

应用于 TextColumns 对象的 Add 方法。

返回一个 TextColumn 对象，该对象代表添加至节中或文档中的新文本栏。

expression.Add(Width, Spacing, EvenlySpaced)

expression 必需。该表达式返回一个 TextColumns 对象。

WidthVariant 类型，可选。文档中新文本栏的宽度，以磅为单位。

SpacingVariant 类型，可选。文档中文本栏的间距，以磅为单位。

EvenlySpacedVariant 类型，可选。如果为 True，则文档中的所有文本栏的间距都相等。

应用于 Variables 对象的 Add 方法。

返回一个 Variable 对象，该对象代表添加至文档中的变量。

expression.Add(Name, Value)

expression 必需。该表达式返回一个 Variables 对象。

NameString 类型，必需。文档变量的名称。

ValueVariant 类型，可选。文档变量的值。

说明

除非用相应的变量名插入了 DOCVARIABLE 域，否则用户可以看到文档变量。如果要插入的变量名称已经存在于 Variables 集合中，则会产生错误。若要避免这个错误，可在向集合中添加新变量之前，枚举该集合的所有成员。

应用于 Windows 对象的 Add 方法。

返回一个 Window 对象，该对象代表文档的新窗口。

expression.Add(Window)

expression 必需。该表达式返回一个 Windows 对象。

WindowVariant 类型，可选。需要再打开一个窗口的 Window 对象。如果忽略本参数，则为活动文档打开新窗口。

说明

当为某个文档打开多个窗口时，在窗口标题中会显示冒号 (：) 和数字。

示例

当应用于 AddIns 对象时。

本示例安装名为 MyFax.dot 的模板并将其添加至“模板和加载项”对话框中的加载项列表中。

Sub AddTemplate()
    ' For this example to work correctly, verify that the
    ' path is correct and the file exists.

    AddIns.Add FileName:="C:\Program Files\Microsoft Office" _
        & "\Templates\Letters & Faxes\MyFax.dot", Install:=True
End Sub

当应用于 AutoCorrectEntries 对象时。

本示例为经常拼错的单词“their”添加纯文本的“自动更正”词条。

AutoCorrect.Entries.Add Name:="thier", Value:="their"

当应用于 AutoTextEntries 对象时。

本示例添加名为 Sample Text 的“自动图文集”词条，它包含所选区域的文本。本示例假定用户在活动文档中选择了文本。

Sub AutoTxt()
    NormalTemplate.AutoTextEntries.Add Name:="Sample Text", _
        Range:=Selection.Range
End Sub

当应用于 Bookmarks 对象时。

本示例为活动文档中的所选区域添加名为 myplace 的书签。

Sub BMark()
    '  Select some text in the active document prior
    '  to execution.
    ActiveDocument.Bookmarks.Add _
        Name:="myplace", Range:=Selection.Range
End Sub

本示例在插入点添加名为 mark 的书签。

Sub Mark()
    ActiveDocument.Bookmarks.Add Name:="mark"
End Sub

本示例在 Letter.doc 中的第三段添加名为 third_para 的书签。然后在活动窗口中显示该文档的所有书签。

Sub ThirdPara()
    Dim myDoc As Document

    '  To best illustrate this example,
    '  Letter.doc must be opened, not active,
    '  and contain more than 3 paragraphs.
    Set myDoc = Documents("Letter.doc")
    myDoc.Bookmarks.Add Name:="third_para", _
        Range:=myDoc.Paragraphs(3).Range
    myDoc.ActiveWindow.View.ShowBookmarks = True
End Sub

当应用于 CaptionLabels 对象时。

本示例添加名为 Demo Slide 的自定义题注标签。若要验证自定义标签是否已经添加，请通过访问“插入”菜单上的“引用”项来查看“题注”对话框中的“标签”组合框。

Sub CapLbl()
    CaptionLabels.Add Name:="Demo Slide"
End Sub

当应用于 Columns 对象时。

本示例在活动文档中创建一个有两行两列的表格，然后在第一列之前添加一列。新列的宽度设为 1.5 英寸。

Sub AddATable()
    Dim myTable As Table
    Dim newCol As Column

    Set myTable = ActiveDocument.Tables.Add(Selection.Range, 2, 2)
    Set newCol = myTable.Columns.Add(BeforeColumn:=myTable.Columns(1))
    newCol.SetWidth ColumnWidth:=InchesToPoints(1.5), _
        RulerStyle:=wdAdjustNone
End Sub

当应用于 Comments 对象时。

本示例在插入点添加一条备注。

Sub AddComment()
    Selection.Collapse Direction:=wdCollapseEnd
    ActiveDocument.Comments.Add _
        Range:=Selection.Range, Text:="review this"
End Sub

本示例为活动文档的第三段添加一条备注。

Sub Comment3rd()
    Dim myRange As Range

    Set myRange = ActiveDocument.Paragraphs(3).Range
    ActiveDocument.Comments.Add Range:=myRange, _
        Text:="original third paragraph"
End Sub

当应用于 CustomLabels 对象时。

本示例添加名为 Return Address 的自定义邮件标签，并设置页面大小，然后创建一页标签。

Sub ReturnAddrLabel()
    Dim ml As CustomLabel
    Dim addr As String

    Set ml = Application.MailingLabel.CustomLabels _
        .Add(Name:="Return Address", DotMatrix:=False)
    ml.PageSize = wdCustomLabelLetter
    addr = "Dave Edson" & vbCr & "123 Skye St." & vbCr _
        & "Our Town, WA  98004"
    Application.MailingLabel.CreateNewDocument _
        Name:="Return Address", Address:=addr, ExtractAddress:=False
End Sub

当应用于 Dictionaries 和 HangulHanjaConversionDictionaries 对象时。

本示例删除自定义拼写词典列表中的所有词典，然后创建一个新的自定义词典文件。将新词典指定为活动的自定义词典，新词将自动添加至该词典。

With CustomDictionaries
 .ClearAll
 .Add FileName:="c:\My Documents\MyCustom.dic"
 .ActiveCustomDictionary = CustomDictionaries(1)
End With

本示例新建一个自定义词典并为其指定一个变量，然后将新自定义词典设为用于标记为加拿大法语的文本。请注意，如果对某种语言进行拼写检查，必须先安装该语言的校对工具。

Sub FrCanDic()
    Dim dicFrenchCan As Dictionary

    Set dicFrenchCan = CustomDictionaries.Add(FileName:="FrenchCanadian.dic")
    With dicFrenchCan
        .LanguageSpecific = True
        .LanguageID = wdFrenchCanadian
    End With
End Sub

本示例删除自定义转换词典列表中的所有词典，然后新建一个自定义的词典文件，并将其指定为活动的自定义词典。新单词将自动添加至该词典中。

With HangulHanjaDictionaries
 .ClearAll
 .Add FileName:="C:\My Documents\MyCustom.hhd"
 .ActiveCustomDictionary = CustomDictionaries(1)
End With

当应用于 Documents 对象时。

本示例基于 Normal 模板新建一篇文档。

Documents.Add

本示例基于“专业型备忘录”模板新建一篇文档。

Documents.Add Template:="C:\Program Files\Microsoft Office" _
 & "\Templates\Memos\Professional Memo.dot"

本示例以活动文档的模板为样例，创建并打开一个新模板。

tmpName = ActiveDocument.AttachedTemplate.FullName
Documents.Add Template:=tmpName, NewTemplate:=True

当应用于 EmailSignatureEntries 对象时。

本示例在所选内容的尾部添加一条自动编号的脚注。

Sub NewSignature()
    Application.EmailOptions.EmailSignature _
        .EmailSignatureEntries.Add _
        Name:=ActiveDocument.BuiltInDocumentProperties("Author"), _
        Range:=Selection.Range
End Sub

当应用于 Endnotes 和 Footnotes 对象时。

本示例在所选内容的尾部添加一条自动编号的脚注。

ActiveDocument.Footnotes.Add Range:= Selection.Range , _
 Text:= "The Willow Tree, (Lone Creek Press, 1996)."

本示例为活动文档的第三段添加一条尾注。

Set myRange = ActiveDocument.Paragraphs(3).Range
ActiveDocument.Endnotes.Add Range:=myRange, _
 Text:= "Ibid., 314."

本示例为引用标记添加一条使用了自定义符号的脚注。

ActiveDocument.Footnotes.Add Range:= Selection.Range , _
 Text:= "More information in the full report.", _
 Reference:= "{Symbol -3998}"

当应用于 Fields 对象时。

本示例在所选内容的开始处插入一个 USERNAME 域。

Selection.Collapse Direction:=wdCollapseStart
Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _
 Type:=wdFieldUserName)

本示例在所选内容的末尾插入一个 LISTNUM 域。起始开关设为从 3 开始。

Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.Fields.Add Range:=Selection.Range, _
 Type:=wdFieldListNum, Text:="\s 3"

本示例在所选内容的开始处插入一个 DATE 域，然后显示域结果。

Selection.Collapse Direction:=wdCollapseStart
Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _
 Type:=wdFieldDate)
MsgBox myField.Result

当应用于 FirstLetterExceptions、OtherCorrectionsExceptions 和 TwoInitialCapsExceptions 对象时。

本示例将缩写 addr. 添加至首字母例外项列表中。

AutoCorrect.FirstLetterExceptions.Add Name:="addr."

本示例将 MSOffice 添加至首字母大写例外项列表中。

AutoCorrect.TwoInitialCapsExceptions.Add Name:="MSOffice"

本示例将 myCompany 添加至其他更正例外项列表中。

AutoCorrect.OtherCorrectionsExceptions.Add Name:="myCompany"

当应用于 FormFields 对象时。

本示例在所选内容的末尾处添加一个复选框，然后命名并选中该复选框。

Selection.Collapse Direction:=wdCollapseEnd
Set ffield = ActiveDocument.FormFields _
 .Add(Range:=Selection.Range, Type:=wdFieldFormCheckBox)
With ffield
 .Name = "Check_Box_1"
 .CheckBox.Value = True
End With

当应用于 Frames 对象时。

本示例在所选内容周围添加一个框架。

ActiveDocument.Frames.Add Range:=Selection.Range

本示例在所选内容的第三段周围添加一个框架。

Set myFrame = Selection.Frames _
 .Add(Range:=Selection.Paragraphs(3).Range)

当应用于 HangulAndAlphabetExceptions 对象时。

本示例为朝鲜文字和字母“自动更正”例外项列表添加测试，该列表位于“‘自动更正’例外项”对话框中“朝鲜语”选项卡。

AutoCorrect.HangulAndAlphabetExceptions.Add Name:="test"

当应用于 HeadingStyles 对象时。

本示例在活动文档的开始处添加一个目录，然后向用于创建目录的样式列表添加 Title 样式。

Set myToc = ActiveDocument.TablesOfContents _
 .Add(Range:=ActiveDocument.Range(0, 0), _
 UseHeadingStyles:=True, UpperHeadingLevel:=1, _
 LowerHeadingLevel:=3)
myToc.HeadingStyles.Add Style:="Title", Level:=2

当应用于 Hyperlinks 对象时。

本示例将所选内容转换为指向万维网上 Microsoft 公司地址的超链接。

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _
 Address:="http:\\www.microsoft.com"

本示例将所选内容转换为链接到 MyFile.doc 中名为 MyBookMark 的书签的超链接。

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _
 Address:="C:\My Documents\MyFile.doc", SubAddress:="MyBookMark"

本示例将所选内容中的第一个图形定义为超链接。

ActiveDocument.Hyperlinks.Add Anchor:=Selection.ShapeRange(1), _
 Address:="http:\\www.microsoft.com"

当应用于 Indexes 对象时。

本示例标记一个索引项，然后在活动文档的结尾处创建一个索引。

ActiveDocument.Indexes.MarkEntry _
 Range:=Selection.Range, Entry:="My Entry"
Set MyRange = ActiveDocument.Content
MyRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Indexes.Add Range:=MyRange, Type:=wdIndexRunin

当应用于 KeyBindings 对象时。

本示例为 FileClose 命令添加 Ctrl+Alt+W。这个键盘自定义方案保存在 Normal 模板中。

CustomizationContext = NormalTemplate
KeyBindings.Add _
 KeyCategory:=wdKeyCategoryCommand, _
 Command:="FileClose", _
 KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyW)

本示例为 Arial 字体添加 Alt+F4，并显示 KeyBindings 集合中的项数。本示例然后清除 Alt+F4 （将它恢复为默认设置），并重新显示 KeyBindings 集合中的项数。

CustomizationContext = ActiveDocument.AttachedTemplate
Set myKey = KeyBindings.Add(KeyCategory:=wdKeyCategoryFont, _
 Command:="Arial", KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4))
MsgBox KeyBindings.Count & " keys in KeyBindings collection"
myKey.Clear
MsgBox KeyBindings.Count & " keys in KeyBindings collection"

本示例为 Font 命令添加 Ctrl+Alt+S，并将字号指定为 8 磅。

CustomizationContext = NormalTemplate
KeyBindings.Add KeyCategory:=wdKeyCategoryCommand, _
 Command:="FontSize", _
 KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS), _
 CommandParameter:="8"

本示例在活动文档中将 Ctrl+Alt+H 添加至“标题 1”样式。

CustomizationContext = ActiveDocument
KeyBindings.Add KeyCategory:=wdKeyCategoryStyle, _
 Command:="Heading 1", _
 KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyH)

本示例将 Ctrl+Alt+O 添加至名为“Hello”的“自动图文集”词条。

CustomizationContext = ActiveDocument
KeyBindings.Add KeyCategory:=wdKeyCategoryAutoText, _
 Command:="Hello", _
 KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyO)

当应用于 ListEntries 对象时。

本示例在活动文档中插入一个下拉型窗体域，然后将 Red、Blue 和 Green 项目添加至窗体域。

Set myField = ActiveDocument.FormFields.Add(Range:= _
 Selection.Range, Type:= wdFieldFormDropDown)
With myField.DropDown.ListEntries
 .Add Name:="Red"
 .Add Name:="Blue"
 .Add Name:="Green"
End With

当应用于 ListTemplates 对象时。

本示例向活动文档添加新的单级列表模板。本示例更改新列表模板的编号样式，然后将该列表模板应用于所选内容。

Set myList = _
 ActiveDocument.ListTemplates.Add(OutlineNumbered:=False)
myList.ListLevels(1).NumberStyle = wdListNumberStyleUpperCaseLetter
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=myList

当应用于 MailMergeFields 对象时。

本示例将所选内容替换为名为 MiddleInitial 的邮件合并域。

ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, _
 Name:="MiddleInitial"

当应用于 PageNumbers 对象时。

本示例为活动文档第一节的主页脚添加页码。

With ActiveDocument.Sections(1)
 .Footers(wdHeaderFooterPrimary).PageNumbers.Add _
 PageNumberAlignment:=wdAlignPageNumberLeft, _
 FirstPage:=True
End With

本示例在活动文档的页眉中创建页码并进行格式设置。

Set myPgNum = ActiveDocument.Sections(1) _
 .Headers(wdHeaderFooterPrimary) _
 .PageNumbers.Add(PageNumberAlignment:= _
 wdAlignPageNumberCenter, FirstPage:= True)
myPgNum.Select
With Selection.Range
 .Italic = True
 .Bold = True
End With

当应用于 Panes 对象时。

下面的示例拆分活动窗口，使上面的窗格占整个窗口大小的百分之三十。

ActiveDocument.ActiveWindow.Panes.Add SplitVertical:=30

当应用于 Paragraphs 对象时。

本示例在所选内容之后添加一个段落。

Selection.Paragraphs.Add

本示例在所选内容中第一段之前添加一个段落标记。

Selection.Paragraphs.Add Range:=Selection.Paragraphs(1).Range

本示例在活动文档第二段之前添加一个段落标记。

ActiveDocument.Paragraphs.Add _
 Range:=ActiveDocument.Paragraphs(2).Range

本示例在活动文档的末尾添加一个新的段落标记。

ActiveDocument.Paragraphs.Add

当应用于 RecentFiles 对象时。

本示例将活动文档添加至最近使用的文件列表中。

If ActiveDocument.Saved = True Then
 RecentFiles.Add Document:=ActiveDocument.Name
End If

当应用于 Rows 对象时。

本示例在所选内容的第一行之前插入一个新行。

Sub AddARow()
    If Selection.Information(wdWithInTable) = True Then
        Selection.Rows.Add BeforeRow:=Selection.Rows(1)
    End If
End Sub

本示例在第一个表格中添加一行，然后将文本 Cell 插入该行。

Sub CountCells()
    Dim tblNew As Table
    Dim rowNew As Row
    Dim celTable As Cell
    Dim intCount As Integer

    intCount = 1
    Set tblNew = ActiveDocument.Tables(1)
    Set rowNew = tblNew.Rows.Add(BeforeRow:=tblNew.Rows(1))
    For Each celTable In rowNew.Cells
        celTable.Range.InsertAfter Text:="Cell " & intCount
        intCount = intCount + 1
    Next celTable
End Sub

当应用于 Sections 对象时。

本示例在活动文档第三段之前添加一个“下一页”的分节符。

Set myRange = ActiveDocument.Paragraphs(3).Range
ActiveDocument.Sections.Add Range:=myRange

本示例在所选内容中添加一个“连续”的分节符。

Set myRange = Selection.Range
ActiveDocument.Sections.Add Range:=myRange, _
 Start:=wdSectionContinuous

本示例在活动文档的末尾添加一个“下一页”分节符。

ActiveDocument.Sections.Add

当应用于 Styles 对象时。

本示例添加一个名为 Introduction 的字符样式，并将其格式设为 12 磅大小、Arial 字体、加粗和倾斜格式，然后本示例将新样式应用于所选内容。

Set myStyle = ActiveDocument.Styles.Add(Name:="Introduction", _
 Type:=wdStyleTypeCharacter)
With myStyle.Font
 .Bold = True
 .Italic = True
 .Name = "Arial"
 .Size = 12
End With
Selection.Range.Style = "Introduction"

当应用于 Styles 对象时。

本示例将一个样式表添加至活动文档，并将其置于文档的样式列表中的最高级别。本示例假定用户在 C: 盘上有一个名为 Website.css 的样式表文档。

Sub NewStylesheet()
    ThisDocument.StyleSheets.Add _
        FileName:="c:\WebSite.css", _
        Precedence:=wdStyleSheetPrecedenceHighest
End Sub

当应用于 Tables 对象时。

本示例在活动文档的开头添加一个 3 行 4 列的空表格。

Set myRange = ActiveDocument.Range(0, 0)
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4

本示例在活动文档的结尾添加一个 6 行 10 列的空白新表格。

Set MyRange = ActiveDocument.Content
MyRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=6, _
 NumColumns:=10

本示例向新文档中添加一个 3 行 5 列的表格，然后在表格的每个单元格中插入数据。

Sub NewTable()
    Dim docNew As Document
    Dim tblNew As Table
    Dim intX As Integer
    Dim intY As Integer

    Set docNew = Documents.Add
    Set tblNew = docNew.Tables.Add(Selection.Range, 3, 5)
    With tblNew
    For intX = 1 To 3
        For intY = 1 To 5
            .Cell(intX, intY).Range.InsertAfter "Cell: R" & intX & ", C" & intY
        Next intY
    Next intX
    .Columns.AutoFit
    End With
End Sub

当应用于 TablesOfAuthorities 对象时。

此示例在活动文档开始处添加一个包含所有类别的引文目录。

Set myRange = ActiveDocument.Range(0, 0)
ActiveDocument.TablesOfAuthorities.Add Range:=myRange, _
 Passim:= True, Category:= 0, EntrySeparator:= ", "

当应用于 TablesOfContents 对象时。

本示例在活动文档的开头添加一个目录。该目录是根据样式为标题 1、标题 2、标题 3 和自定义样式“myStyle”与“yourStyle”的段落样式创建的。

Set myRange = ActiveDocument.Range(0, 0)
ActiveDocument.TablesOfContents.Add _
 Range:=myRange, _
 UseFields:=False, _
 UseHeadingStyles:=True, _
 LowerHeadingLevel:=3, _
 UpperHeadingLevel:=1, _
 AddedStyles:="myStyle, yourStyle"

当应用于 TablesOfFigures 对象时。

本示例在活动文档中插入一个图表目录。

ActiveDocument.TablesOfFigures.Add Range:=Selection.Range

当应用于 TabStops 对象时。

本示例为所选的段落添加一个制表位，位置在距页面左边距 2.5 英寸处。

Selection.Paragraphs.TabStops.Add Position:=InchesToPoints(2.5)

本示例在所选段落中添加两个制表位。第一个制表位为左对齐，位于距页面左边距 1 英寸（72 磅）处，有点状前导符；第二个制表位居中，位于距页面左边距 2 英寸处。

With Selection.Paragraphs.TabStops
 .Add Position:=InchesToPoints(1), _
 Leader:=wdTabLeaderDots, _
 Alignment:=wdAlignTabLeft
 .Add Position:=InchesToPoints(2), _
 Alignment:=wdAlignTabCenter
End With

当应用于 TextColumns 对象时。

本示例创建一个新文档，然后为其添加另一个 2.5 英寸宽的文本栏。

Set myDoc = Documents.Add
myDoc.PageSetup.TextColumns.Add Width:=InchesToPoints(2.5), _
 Spacing:=InchesToPoints(0.5), EvenlySpaced:=False

本示例向活动文档添加一个新文本栏，然后使文档中的所有文本栏间距相等。

ActiveDocument.PageSetup.TextColumns.Add _
 Width:=InchesToPoints(1.5), _
 EvenlySpaced:=True

当应用于 Variables 对象时。

本示例为活动文档添加一个名为 Temp 的变量，然后插入一个 DOCVARIABLE 域，以显示 Temp 变量的值。

With ActiveDocument
 .Variables.Add Name:="Temp", Value:="12"
 .Fields.Add Range:=Selection.Range, _
 Type:=wdFieldDocVariable, Text:="Temp"
End With
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False

本示例将 Blue 变量的值设为 6，如果该变量不存在，本示例将该变量添加至文档，并将值设为 6。

For Each aVar In ActiveDocument.Variables
 If aVar.Name = "Blue" Then num = aVar.Index
Next aVar
If num = 0 Then
 ActiveDocument.Variables.Add Name:="Blue", Value:=6
Else
 ActiveDocument.Variables(num).Value = 6
End If

本示例存储活动文档的模板的用户名（在“选项”对话框中）。

ScreenUpdating = False
With ActiveDocument.AttachedTemplate.OpenAsDocument
 .Variables.Add Name:="UserName", Value:= Application.UserName
 .Close SaveChanges:=wdSaveChanges
End With

当应用于 Windows 对象时。

本示例为显示在活动窗口中的文档打开一个新窗口。

Windows.Add

本示例为 MyDoc.doc 打开一个新窗口。

Windows.Add Window:=Documents("MyDoc.doc").Windows(1)