Add 方法

全部显示

Add 方法应用于 NewFile 对象的情形。

在“新建项”任务窗格中添加新增项。返回 Boolean 类型。如果项添加成功，则返回 True。

expression.Add(FileName, Section, DisplayName, Action)

expression 必需。该表达式返回上面对象之一。

FileNameString 类型，必需。添加到任务窗格中文件列表的文件名称。

SectionVariant 类型，可选。添加文件的栏。可以为任何 msoFileNewSection 常量。

DisplayNameVariant 类型，可选。任务窗格中显示的文本。

ActionVariant 类型，可选。当用户单击该项时进行的操作。可以为任何 msoFileNewAction 常量。

Add 方法应用于 CommandBars 对象的情形。

新建一个命令栏并添加到命令栏集合。返回 CommandBar 对象。

expression.Add(Name, Position, MenuBar, Temporary)

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

NameVariant 类型，可选。新命令栏的名称。如果忽略该参数，则为命令栏指定默认名称（例如 Custom 1）。

PositionVariant 类型，可选。新命令栏的位置或类型。可以为下表所列的 MsoBarPosition 常量之一。

常量说明msoBarLeft、msoBarTop、msoBarRight 和 msoBarBottom指定新命令栏的左侧、顶部、右侧和底部坐标msoBarFloating指定新命令栏不固定msoBarPopup指定新命令栏为快捷菜单msoBarMenuBar仅适用于 Macintosh 机

MenuBarVariant 类型，可选。设置为 True 将以新命令栏替换活动菜单栏。默认值为 False。

TemporaryVariant 类型，可选。设置为 True 将使新命令栏为临时命令栏。临时命令栏在关闭容器应用程序时删除。默认值为 False。

Add 方法应用于 CommandBarControls 对象的情形。

新建一个 CommandBarControl 对象并添加到指定命令栏上的控件集合。

expression.Add(Type, Id, Parameter, Before, Temporary)

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

TypeVariant 类型，可选。添加到指定命令栏的控件类型。可以为下列 MsoControlType 常量之一：msoControlButton、msoControlEdit、msoControlDropdown、msoControlComboBox 或 msoControlPopup。

IdVariant 类型，可选。指定内置控件的整数。如果该参数为 1，或者忽略该参数，将在命令栏中添加一个空的指定类型的自定义控件。

ParameterVariant 类型，可选。对于内置控件，该参数用于容器应用程序运行命令。对于自定义控件，可以使用该参数向 Visual Basic 过程传递信息，或用其存储控件信息（类似于第二个 Tag 属性值）。

BeforeVariant 类型，可选。表示新控件在命令栏上位置的数字。新控件将插入到该位置控件之前。如果忽略该参数，控件将添加到指定命令栏的末端。

TemporaryVariant 类型，可选。设置为 True 将使新命令栏为临时命令栏。临时命令栏在关闭容器应用程序时删除。默认值为 False。

Add 方法应用于 DocumentProperties 对象的情形。

新建一个自定义的文档属性。只能在自定义 DocumentProperties 集合中新添文档属性。

expression.Add(Name, LinkToContent, Type, Value, LinkSource)

expression 必需。自定义 DocumentProperties 对象。

NameString 类型，必需。属性的名称。

LinkToContentBoolean 类型，必需。指定属性是否链接到容器文档中的内容。如果参数为 True，则必需设置 LinkSource 参数，如果为 False，则需要数值参数。

TypeVariant 类型，可选。属性的数据类型。可以为下列 MsoDocProperties 常量之一：msoPropertyTypeBoolean、msoPropertyTypeDate、msoPropertyTypeFloat、msoPropertyTypeNumber 或 msoPropertyTypeString。

ValueVariant 类型，可选。如果没有链接到容器文档中的内容，则为属性的值。数值将进行转换以匹配类型参数指定的数据类型，如果不能转换，将导致错误。如果 LinkToContent 为 True，将忽略 Value 参数，新文档属性将赋予默认值，直到容器应用程序更新链接属性值（通常在保存文档时进行）。

LinkSourceVariant 类型，可选。如果 LinkToContent 为 False，则忽略该参数。链接属性的来源。可链接的来源类型由容器应用程序决定。

说明

如果在 DocumentProperties 集合中添加了自定义文档属性，该属性链接到 Microsoft Office 文档中指定的值，则必须保存文档以查看 DocumentProperty 对象的更改。

Add 方法应用于 FileDialogFilters 对象的情形。

在“文件”对话框的“文件类型”下拉列表框的文件筛选中新添一个文件筛选。返回一个表示新添的文件筛选的 FileDialogFilter 对象。

expression.Add(Description, Extensions, Position)

expression 必需。该表达式返回上面对象之一。

DescriptionString 类型，必需。该文本表示添加到筛选列表中的文件扩展名的说明。

ExtensionsString 类型，必需。该文本表示添加到筛选列表中的文件扩展名。可以指定多个扩展名，每个扩展名必须以分号分隔 (;)。例如，Extensions 参数可以指定为字符串："*.txt; *.htm"。请注意不需要在扩展名两侧添加引号。在说明和扩展名字符串连接到一个文件筛选项时，Office 将自动在扩展名字符串两侧添加引号。

PositionVariant 类型，可选。表示新控件在筛选列表中位置的数字。新筛选将插入到该位置的筛选之前。如果忽略该参数，筛选将添加到指定列表的末端。

说明

列表中的每个筛选由两部分组成：文件扩展名（例如 .txt）和文件扩展名的文本说明（例如“文本文件”）。二者相结合，文件筛选将在“文件类型”下拉列表框中显示为：文本文件 (*.txt)。

请注意在向列表添加筛选时，并不更换默认筛选。

筛选仅在选中 Windows 选项时显示。

如果 Position 无效，将显示一个超出范围的运行时出错。如果 Description 和 Extensions 值无效，将显示运行时出错（解析）。

文件夹选取器对话框没有筛选，因此筛选方法不能应用于文件夹选取器。

Add 方法应用于 Scripts 对象的情形。

在下列对象之一的 Scripts 集合中添加 Script 对象：Microsoft Word 中的 Document 或 Range 对象、Microsoft Excel 中的 Worksheet 或 Chart 对象或者 Microsoft PowerPoint 中的 Slide、SlideRange、幻灯片 Master 或标题 Master 对象。返回 Script 对象。

expression.Add(Anchor, Location, Language, Id, Extended, ScriptText)

expression 必需。Scripts 集合。

AnchorRange 类型，可选（仅适用于 Microsoft Excel）。Anchor 参数接受 Excel Range 对象，指定 Excel Worksheet 上脚本定位标记的位置。不能将脚本定位标记插入 Excel 图表。

LocationMsoScriptLocation 类型，可选。指定文档中脚本定位标记的位置。如果已经指定了 Anchor 参数，则不使用 Location 参数，Anchor 参数的位置确定脚本定位标记的位置。

MsoScriptLocation 可以为下列 MsoScriptLocation 常量之一。msoScriptLocationInBody 默认值msoScriptLocationInHead

LanguageMsoScriptLanguage 类型，可选。指定脚本语言。

MsoScriptLanguage 可以为下列 MsoScriptLanguage 常量之一。msoScriptLanguageASPmsoScriptLanguageJavamsoScriptLanguageOthermsoScriptLanguageVisualBasic 默认值

IdString 类型，可选。HTML 中 <SCRIPT> 标记的 ID。Id 参数指定用于命名元素的 SGML 标识符。有效的标识符包括任何以字母开始并由字母和数字字符组成的字符串，字符串还可以包括下划线字符 ( _ )。在 HTML 文档中 ID 必须唯一。该参数以 <SCRIPT> 标记的 ID 属性导出。

ExtendedString 类型，可选。指定要添加到 <SCRIPT> 标记中的属性（LANGUAGE 和 ID 属性通过 Language 和 Id 参数导出而不应通过 Extended 参数导出）。默认为空字符串。与 HTML 中相同，属性以空格分隔。Microsoft Office 主机应用程序不提供任何方法检查传递的属性语法。

ScriptTextString 类型，可选。指定脚本块中包含的文本。默认为空字符串。Microsoft Office 主机应用程序不检查脚本的语法。

说明

与脚本块相关联的图形不能导出或显示为 HTML 中的图形；只导出脚本块。

不能使用 Add 方法在包含多个幻灯片的 PowerPoint 幻灯片区域添加脚本定位标记。

Add 方法应用于 SignatureSet 对象的情形。

返回表示新电子邮件签名的 Signature 对象。

expression.Add

expression 必需。该表达式返回上面对象之一。

Add 方法应用于 ODSOFilters 对象的情形。

在 ODSOFilters 集合中新添一个筛选。

expression.Add(Column, Comparison, Conjunction, bstrCompareTo, DeferUpdate)

expression 必需。该表达式返回上面对象之一。

ColumnString 类型，必需。数据源中的表名称。

ComparisonMsoFilterComparison 类型，必需。表中数据的筛选方式。

MsoFilterComparison 可以为下列 MsoFilterComparison 常量之一。msoFilterComparisonContainsmsoFilterComparisonEqualmsoFilterComparisonGreaterThanmsoFilterComparisonGreaterThanEqualmsoFilterComparisonIsBlankmsoFilterComparisonIsNotBlankmsoFilterComparisonLessThanmsoFilterComparisonLessThanEqualmsoFilterComparisonNotContainsmsoFilterComparisonNotEqual

ConjunctionMsoFilterConjunction 类型，必需。确定该筛选与 ODSOFilters 对象中其他筛选的关系。

MsoFilterConjunction 可以为下列 MsoFilterConjunction 常量之一。msoFilterConjunctionAndmsoFilterConjunctionOr

bstrCompareToString 类型，可选。如果 Comparison 参数不是 msoFilterComparisonIsBlank 或 msoFilterComparisonIsNotBlank，则表中数据与该字符串进行比较。

DeferUpdateBoolean 类型，可选。默认值为 False。

Add 方法应用于 AnswerWizardFiles 对象的情形。

新建一个对“应答向导”文件的引用（String 值）并添加到 AnswerWizardFiles 集合。

expression.Add(FileName)

expression 必需。该表达式返回一个 AnswerWizardFiles 集合。

FileNameString 类型，必需。指定“应答向导”文件的完全合格路径。

Add 方法应用于 FileTypes 对象的情形。

向文件搜索中新添一个文件类型。

expression.Add(FileType)

expression 必需。该表达式返回上面对象之一。

FileTypeMsoFileType 类型，必需。指定要搜索的文件类型。

MsoFileType 可以为下列 MsoFileType 常量之一。msoFileTypeAllFilesmsoFileTypeBindersmsoFileTypeCalendarItemmsoFileTypeContactItemmsoFileTypeCustommsoFileTypeDatabasesmsoFileTypeDataConnectionFilesmsoFileTypeDesignerFilesmsoFileTypeDocumentImagingFilesmsoFileTypeExcelWorkbooksmsoFileTypeJournalItemmsoFileTypeMailItemmsoFileTypeNoteItemmsoFileTypeOfficeFilesmsoFileTypeOutlookItemsmsoFileTypePhotoDrawFilesmsoFileTypePowerPointPresentationsmsoFileTypeProjectFilesmsoFileTypePublisherFilesmsoFileTypeTaskItemmsoFileTypeTemplatesmsoFileTypeVisioFilesmsoFileTypeWebPagesmsoFileTypeWordDocuments

Add 方法应用于 PropertyTests 对象的情形。

向 PropertyTests 集合中添加 PropertyTest 对象。

expression.Add(Name, Condition, Value, SecondValue, Connector)

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

NameString 类型，必需。属性条件的名称。该名称对应于“查找”对话框“属性”框中的值，该对话框通过应用程序的“打开”对话框（“文件”菜单）的“工具”菜单中打开。

ConditionMsoCondition 类型，必需。搜索准则的条件。

MsoCondition 可以为下列 MsoCondition 常量之一。msoConditionAnyNumberBetweenmsoConditionAnytimemsoConditionAnytimeBetweenmsoConditionAtLeastmsoConditionAtMostmsoConditionBeginsWithmsoConditionDoesNotEqualmsoConditionEndsWithmsoConditionEqualsmsoConditionEqualsCompletedmsoConditionEqualsDeferredmsoConditionEqualsHighmsoConditionEqualsInProgressmsoConditionEqualsLowmsoConditionEqualsNormalmsoConditionEqualsNotStartedmsoConditionEqualsWaitingForSomeoneElsemsoConditionFileTypeAllFilesmsoConditionFileTypeBindersmsoConditionFileTypeCalendarItemmsoConditionFileTypeContactItemmsoConditionFileTypeDatabasesmsoConditionFileTypeDataConnectionFilesmsoConditionFileTypeDesignerFilesmsoConditionFileTypeDocumentImagingFilesmsoConditionFileTypeExcelWorkbooksmsoConditionFileTypeJournalItemmsoConditionFileTypeMailItemmsoConditionFileTypeNoteItemmsoConditionFileTypeOfficeFilesmsoConditionFileTypeOutlookItemsmsoConditionFileTypePhotoDrawFilesmsoConditionFileTypePowerPointPresentationsmsoConditionFileTypeProjectFilesmsoConditionFileTypePublisherFilesmsoConditionFileTypeTaskItemmsoConditionFileTypeTemplatesmsoConditionFileTypeVisioFilesmsoConditionFileTypeWebPagesmsoConditionFileTypeWordDocumentsmsoConditionFreeTextmsoConditionIncludesmsoConditionIncludesFormsOfmsoConditionIncludesNearEachOthermsoConditionIncludesPhrasemsoConditionInTheLastmsoConditionInTheNextmsoConditionIsExactlymsoConditionIsNomsoConditionIsNotmsoConditionIsYesmsoConditionLastMonthmsoConditionLastWeekmsoConditionLessThanmsoConditionMoreThanmsoConditionNextMonthmsoConditionNextWeekmsoConditionNotEqualToCompletedmsoConditionNotEqualToDeferredmsoConditionNotEqualToHighmsoConditionNotEqualToInProgressmsoConditionNotEqualToLowmsoConditionNotEqualToNormalmsoConditionNotEqualToNotStartedmsoConditionNotEqualToWaitingForSomeoneElsemsoConditionOnmsoConditionOnOrAftermsoConditionOnOrBeforemsoConditionThisMonthmsoConditionThisWeekmsoConditionTodaymsoConditionTomorrowmsoConditionYesterday

ValueVariant 类型，可选。搜索条件的值。

SecondValueVariant 类型，可选。搜索范围的上限值。只能在 Condition 为 msoConditionAnyTimeBetween 或 msoConditionAnyNumberBetween 时使用该参数。

ConnectorMsoConnector 类型，可选。指定两种搜索的结合方式。

MsoConnector 可以为下列 MsoConnector 常量之一。msoConnectorAnd 默认值msoConnectorOr

Add 方法应用于 SearchFolders 对象的情形。

在文件搜索中添加搜索文件夹。

expression.Add(ScopeFolder)

expression 必需。该表达式返回上面对象之一。

ScopeFolderScopeFolder 对象，必需。要添加到搜索中的文件夹。

示例

应用于 AnswerWizardFiles 对象的情形。

本示例使“应答向导”准备接受一个自定义文件列表，并添加两个自定义“应答向导”文件。首先，本示例清除文件列表，然后添加两个自定义“应答向导”文件并检查文件数量和文件名称，确保正确添加文件。

Dim customAnswerWizard As AnswerWizard
Set customAnswerWizard = Application.AnswerWizard

customAnswerWizard.ClearFileList
customAnswerWizard.Files.Add ("c:\awfiles\custom_1.aw")
customAnswerWizard.Files.Add ("c:\awfiles\custom_2.aw")

If customAnswerWizard.Files.Count = 2 Then
 MsgBox "Files " & customAnswerWizard.Files.Item(1) & _
 " and " & customAnswerWizard.Files(2) & _
 " were added sucessfully."
End If

应用于 CommandBarControls 对象的情形。

本示例创建包含剪切、复制和粘贴按钮（控件）的自定义编辑工具栏。

Dim customBar As CommandBar
Dim newButton As CommandBarButton
Set customBar = CommandBars.Add("Custom")
Set newButton = customBar.Controls _
 .Add(msoControlButton, CommandBars("Edit") _
 .Controls("Cut").Id)
Set newButton = customBar.Controls _
 .Add(msoControlButton, CommandBars("Edit") _
 .Controls("Copy").Id)
Set newButton = customBar.Controls _
 .Add(msoControlButton, CommandBars("Edit") _
 .Controls("Paste").Id)
customBar.Visible = True

应用于 DocumentProperties 对象的情形。

本示例为 Microsoft Word 设计，向 DocumentProperties 集合中添加三个自定义文档属性。

With ActiveDocument.CustomDocumentProperties
 .Add Name:="CustomNumber", _
 LinkToContent:=False, _
 Type:=msoPropertyTypeNumber, _
 Value:=1000
 .Add Name:="CustomString", _
 LinkToContent:=False, _
 Type:=msoPropertyTypeString, _
 Value:="This is a custom property."
 .Add Name:="CustomDate", _
 LinkToContent:=False, _
 Type:=msoPropertyTypeDate, _
 Value:=Date
End With

应用于 PropertyTests 对象的情形。

本示例在搜索条件中添加两个属性测试。第一个测试为文件必须为 Microsoft Word 文档，第二个测试为它们必须在 1996 年 1 月 1 日到 1996 年 6 月 30 日之间进行过修改。本示例还显示消息框显示找到的文件总数和每个文件的名称（如果找到文件）。

Set fs = Application.FileSearch
fs.NewSearch
With fs.PropertyTests
 .Add Name:="Files of Type", _
 Condition:=msoConditionFileTypeWordDocuments, _
 Connector:=msoConnectorOr
 .Add Name:="Last Modified", _
 Condition:=msoConditionAnytimeBetween, _
 Value:="1/1/98", SecondValue:="6/30/98", _
 Connector:=msoConnectorAnd
End With
If fs.Execute() > 0 Then
 For i = 1 To fs.FoundFiles.Count
 strFound = strFound & fs.FoundFiles(i) & vbCrLf
 Next i
 MsgBox "Search found the following " _
 & fs.FoundFiles.Count & _
 " file(s):" & vbCrLf & strFound
Else
 MsgBox "There were no files found."
End If

应用于 Scripts 对象的情形。

本示例在活动工作簿中第一个工作簿的指定区域中新添一个 Script 对象。

Dim rngScriptAnchorRange As Range
Dim objNewScript As Script

Set rngScriptAnchorRange = ActiveWorkbook. _
 Worksheets(1).Range("B5")
Set objNewScript = ActiveWorkbook. _
 Worksheets(1).Scripts.Add(rngScriptAnchorRange, _
 msoScriptLocationInBody, _
 msoScriptLanguageVisualBasic, _
 "MyNewScript", , _
 "MsgBox (""Added Script object MyNewScript"")")