Office VBA教程:Add方法

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

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

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

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

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

Section  Variant 类型,可选。添加文件的栏。可以为任何 msoFileNewSection 常量。

DisplayName  Variant 类型,可选。任务窗格中显示的文本。

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

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

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

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

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

Name  Variant 类型,可选。新命令栏的名称。如果忽略该参数,则为命令栏指定默认名称(例如 Custom 1)。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

expression   必需。自定义 DocumentProperties对象。

Name  String 类型,必需。属性的名称。

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

Type  Variant 类型,可选。属性的数据类型。可以为下列 MsoDocProperties 常量之一:msoPropertyTypeBoolean、msoPropertyTypeDate、msoPropertyTypeFloat、msoPropertyTypeNumber 或 msoPropertyTypeString。

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

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

说明

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

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

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

expression.Add(Description, Extensions, Position)

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

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

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

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

说明

列表中的每个筛选由两部分组成:文件扩展名(例如 .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集合。

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

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

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

Language  MsoScriptLanguage 类型,可选。指定脚本语言。

MsoScriptLanguage 可以为下列 MsoScriptLanguage 常量之一。
msoScriptLanguageASP
msoScriptLanguageJava
msoScriptLanguageOther
msoScriptLanguageVisualBasic 默认值

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

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

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

说明

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

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

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

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

expression.Add

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

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

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

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

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

Column  String 类型,必需。数据源中的表名称。

Comparison  MsoFilterComparison 类型,必需。表中数据的筛选方式。

MsoFilterComparison 可以为下列 MsoFilterComparison 常量之一。
msoFilterComparisonContains
msoFilterComparisonEqual
msoFilterComparisonGreaterThan
msoFilterComparisonGreaterThanEqual
msoFilterComparisonIsBlank
msoFilterComparisonIsNotBlank
msoFilterComparisonLessThan
msoFilterComparisonLessThanEqual
msoFilterComparisonNotContains
msoFilterComparisonNotEqual

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

MsoFilterConjunction 可以为下列 MsoFilterConjunction 常量之一。
msoFilterConjunctionAnd
msoFilterConjunctionOr

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

DeferUpdate  Boolean 类型,可选。默认值为 False。

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

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

expression.Add(FileName)

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

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

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

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

expression.Add(FileType)

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

FileType  MsoFileType 类型,必需。指定要搜索的文件类型。

MsoFileType 可以为下列 MsoFileType 常量之一。
msoFileTypeAllFiles
msoFileTypeBinders
msoFileTypeCalendarItem
msoFileTypeContactItem
msoFileTypeCustom
msoFileTypeDatabases
msoFileTypeDataConnectionFiles
msoFileTypeDesignerFiles
msoFileTypeDocumentImagingFiles
msoFileTypeExcelWorkbooks
msoFileTypeJournalItem
msoFileTypeMailItem
msoFileTypeNoteItem
msoFileTypeOfficeFiles
msoFileTypeOutlookItems
msoFileTypePhotoDrawFiles
msoFileTypePowerPointPresentations
msoFileTypeProjectFiles
msoFileTypePublisherFiles
msoFileTypeTaskItem
msoFileTypeTemplates
msoFileTypeVisioFiles
msoFileTypeWebPages
msoFileTypeWordDocuments

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

向 PropertyTests集合中添加PropertyTest对象。

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

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

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

Condition  MsoCondition 类型,必需。搜索准则的条件。

MsoCondition 可以为下列 MsoCondition 常量之一。
msoConditionAnyNumberBetween
msoConditionAnytime
msoConditionAnytimeBetween
msoConditionAtLeast
msoConditionAtMost
msoConditionBeginsWith
msoConditionDoesNotEqual
msoConditionEndsWith
msoConditionEquals
msoConditionEqualsCompleted
msoConditionEqualsDeferred
msoConditionEqualsHigh
msoConditionEqualsInProgress
msoConditionEqualsLow
msoConditionEqualsNormal
msoConditionEqualsNotStarted
msoConditionEqualsWaitingForSomeoneElse
msoConditionFileTypeAllFiles
msoConditionFileTypeBinders
msoConditionFileTypeCalendarItem
msoConditionFileTypeContactItem
msoConditionFileTypeDatabases
msoConditionFileTypeDataConnectionFiles
msoConditionFileTypeDesignerFiles
msoConditionFileTypeDocumentImagingFiles
msoConditionFileTypeExcelWorkbooks
msoConditionFileTypeJournalItem
msoConditionFileTypeMailItem
msoConditionFileTypeNoteItem
msoConditionFileTypeOfficeFiles
msoConditionFileTypeOutlookItems
msoConditionFileTypePhotoDrawFiles
msoConditionFileTypePowerPointPresentations
msoConditionFileTypeProjectFiles
msoConditionFileTypePublisherFiles
msoConditionFileTypeTaskItem
msoConditionFileTypeTemplates
msoConditionFileTypeVisioFiles
msoConditionFileTypeWebPages
msoConditionFileTypeWordDocuments
msoConditionFreeText
msoConditionIncludes
msoConditionIncludesFormsOf
msoConditionIncludesNearEachOther
msoConditionIncludesPhrase
msoConditionInTheLast
msoConditionInTheNext
msoConditionIsExactly
msoConditionIsNo
msoConditionIsNot
msoConditionIsYes
msoConditionLastMonth
msoConditionLastWeek
msoConditionLessThan
msoConditionMoreThan
msoConditionNextMonth
msoConditionNextWeek
msoConditionNotEqualToCompleted
msoConditionNotEqualToDeferred
msoConditionNotEqualToHigh
msoConditionNotEqualToInProgress
msoConditionNotEqualToLow
msoConditionNotEqualToNormal
msoConditionNotEqualToNotStarted
msoConditionNotEqualToWaitingForSomeoneElse
msoConditionOn
msoConditionOnOrAfter
msoConditionOnOrBefore
msoConditionThisMonth
msoConditionThisWeek
msoConditionToday
msoConditionTomorrow
msoConditionYesterday

Value  Variant 类型,可选。搜索条件的值。

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

Connector  MsoConnector 类型,可选。指定两种搜索的结合方式。

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

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

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

expression.Add(ScopeFolder)

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

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

VBA示例

应用于 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"")")

上页:Office VBA教程:ActivateWizard方法 下页:Office VBA教程:AddItem方法

Office VBA教程:Add方法

Office VBA教程:AddItem方法 Office VBA教程:AddToSearchFolders方法
Office VBA教程:ApplyFilter方法 Office VBA教程:Clear方法
Office VBA教程:ClearFileList方法 Office VBA教程:Close方法
Office VBA教程:Commit方法 Office VBA教程:Copy方法
Office VBA教程:CopyFace方法 Office VBA教程:Delete方法
Office VBA教程:DoAlert方法 Office VBA教程:EndWizard方法
Office VBA教程:Execute方法 Office VBA教程:FindControl方法
Office VBA教程:FindControls方法 Office VBA教程:Help方法
Office VBA教程:Item方法 Office VBA教程:LoadFromFile方法
Office VBA教程:Move方法 Office VBA教程:NewSearch方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号