Método Add

Microsoft Office Objects

Mostrar todo

Método Add

       

Método Add cuando se aplica al objeto NewFile.

Agrega un elemento nuevo al panel de tareas Nuevo Elemento. Devuelve un valor Boolean. True si el elemento se ha agregado correctamente.

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

expresión   Requerida. Expresión que devuelve uno de los objetos anteriores.

Filename   String requerida. El nombre del archivo que se agrega a la lista de archivos del panel de tareas.

Section   Variant opcional. La sección a la que se agrega el archivo. Puede ser cualquier constante msoFileNewSection.

DisplayName   Variant opcional. El texto que se muestra en el panel de tareas.

Action   Variant opcional. La acción que se ejecuta cuando el usuario hace clic en el elemento. Puede ser cualquier constante msoFileNewSection.

Método Add cuando se aplica al objeto CommandBars.

Crea una nueva barra de comandos y la agrega a la colección de barras de comandos. Devuelve un objeto CommandBar.

expresión.Add(Name, Position, MenuBar, Temporary)

expresión   Requerida. Expresión que devuelve un objeto CommandBars.

Name   Variant opcional. Nombre de la nueva barra de comandos. Si se omite este argumento, Word asignará un nombre predeterminado a la barra de comandos, por ejemplo, Custom 1.

Position   Variant opcional. Posición o tipo de la nueva barra de comandos. Puede ser una de las constantes MsoBarPosition que aparecen en la siguiente tabla:

Constante Descripción
msoBarLeft, msoBarTop, msoBarRight, msoBarBottom Indica las coordenadas izquierda, derecha, superior e inferior de la nueva barra de comandos.
msoBarFloating Indica que la nueva barra de comandos no estará acoplada.
msoBarPopup Indica que la nueva barra de comandos será un menú contextual.
msoBarMenuBar Sólo para Macintosh.

MenuBar   Variant opcional. True para reemplazar la barra de menú activa con la nueva barra de comandos. El valor predeterminado es False.

Temporary   Variant opcional. True para que la nueva barra de comandos sea temporal. Las barras de comandos temporales se eliminan al cerrar la aplicación contenedora. El valor predeterminado es False.

Método Add cuando se aplica al objeto CommandBarControls.

Crea un objeto CommandBarControl nuevo y lo agrega a la colección de controles de la barra de comandos especificada.

expresión.Add(Type, Id, Parameter, Before, Temporary)

expresión   Requerida. Expresión que devuelve un objeto CommandBarControls.

Type   Variant opcional. Tipo de control que se agrega a la barra de comandos especificada. Puede ser una de las constantes de MsoControlType siguientes: msoControlButton, msoControlEdit, msoControlDropdown, msoControlComboBox o msoControlPopup.

Id   Variant opcional. Número entero que especifica un control integrado. Si el valor de este argumento es 1, o si se omite este argumento, se agregará a la barra de comandos un control personalizado en blanco del tipo especificado.

Parameter   Variant opcional. Para controles integrados, la aplicación contenedora utiliza este argumento para ejecutar el comando. En controles personalizados, este argumento puede utilizarse para enviar información a los procedimientos de Visual Basic o para guardar la información acerca del control, de forma similar a un segundo valor de la propiedad Tag.

Before   Variant opcional. Número que indica la posición del nuevo control de barra de comandos. El nuevo control se inserta delante del control ubicado en esta posición. Si se omite este argumento, el control se agrega al final de la barra de comandos especificada.

Temporary   Variant opcional. True para que el nuevo control sea temporal. Los controles temporales se eliminan automáticamente al cerrar la aplicación contenedora. El valor predeterminado es False.

Método Add cuando se aplica al objeto DocumentProperties.

Crea una nueva propiedad de documento personalizada. Sólo es posible utilizar este método con la colección personalizada DocumentProperties.

expresión.Add(Name, LinkToContent, Type, Value, LinkSource)

expresión   Requerida. Objeto DocumentProperties personalizado.

Name   String requerida. Nombre de la propiedad.

LinkToContent   Boolean requerido. Especifica si la propiedad está vinculada al contenido del documento contenedor. Si este argumento es True, se requiere el argumento LinkSource; si es False, se requiere el argumento del valor.

Type   Variant opcional. Tipo de datos de la propiedad. Puede ser una de las siguientes constantes MsoDocProperties: msoPropertyTypeBoolean, msoPropertyTypeDate, msoPropertyTypeFloat, msoPropertyTypeNumber o msoPropertyTypeString.

Value   Variant opcional. Valor de la propiedad si no está vinculada al contenido del documento contenedor. Si fuera posible, el valor se convierte para que coincida con el tipo de datos especificado por el argumento de tipo; en caso contrario, se produce un error. Si LinkToContent es True, se omite el argumento Value y la nueva propiedad de documento tiene un valor predeterminado hasta que la aplicación contenedora actualice los valores de la propiedad vinculada, normalmente al guardar el documento.

LinkSource   Variant opcional. Se ignora si LinkToContent es False. Origen de la propiedad vinculada. La aplicación contenedora determina los tipos de vinculación de origen que se pueden utilizar.

Comentarios

Si agrega una propiedad de documento personalizada a la colección DocumentProperties que está vinculada a un valor dado en un documento de Microsoft Office, debe guardar el documento para ver el cambio en el objeto DocumentProperty.

Método Add cuando se aplica al objeto FileDialogFilters.

Agrega un filtro de archivos nuevo a la lista de filtros del cuadro de lista emergente Tipo de archivo del cuadro de diálogo Archivo. Devuelve un objeto FileDialogFilter que representa el filtro de archivos que se acaba de agregar.

expresión.Add(Description, Extensions, Position)

expresión   Requerida. Expresión que devuelve uno de los objetos anteriores.

Description  String Requerida. El texto que representa la descripción de la extensión del archivo que desea agregar a la lista de filtros.

Extensions  String Requerida. El texto que representa la extensión del archivo que desea agregar a la lista de filtros. Se puede especificar más de una extensión, separadas por punto y coma (;). Por ejemplo, el argumento Extensions se puede asignar a la cadena: "*.txt; *.htm". Nota: no es necesario agregar paréntesis a las extensiones. Office agregará automáticamente paréntesis a la cadena de extensiones cuando las cadenas de las extensiones y la descripción estén concatenadas en un elemento de filtro de archivos.

Position  Variant opcional. Un número que indica la posición del control nuevo en la lista de filtros. El filtro nuevo se inserta delante del filtro ubicado en esta posición. Si se omite este argumento, el filtro se agregará al final de la lista.

Comentarios

Cada filtro de una lista consta de dos partes: la extensión del archivo (p. ej. .txt) y la descripción del texto de la extensión del archivo (p. ej. Archivos de texto). El filtro de archivos aparecería en el cuadro de lista emergente Tipo de archivo como: Archivos de texto (*.txt).

Observe que los filtros predeterminados no se eliminan al agregar un filtro a la lista.

Sólo se muestran los filtros cuando está activada la opción Windows.

Si Position no es válido, se muestra un error de tiempo de ejecución fuera de los límites. Si los valores de Description y Extensions no son válidos, se muestra un error de tiempo de ejecución (redistribución).

Los diálogos del selector de carpetas no tienen filtros, por lo tanto, los métodos de filtro no se aplican al selector de carpetas.

Método Add cuando se aplica al objeto Scripts.

Agrega un objeto Script a la colección Scripts de uno de los objetos siguientes: un objeto Document o Range en Microsoft Word; un objeto Worksheet o Chart en Microsoft Excel; o bien un objeto Slide, SlideRange, Master de diapositiva, o Master de título en Microsoft PowerPoint. Devuelve un objeto Script.

expresión.Add(Anchor, Location, Language, Id, Extended, ScriptText)

expresión   Requerida. La colección Scripts.

Anchor  Range opcional (sólo en Microsoft Excel). El argumento Anchor acepta un objeto Range de Excel, que especifique la colocación del delimitador de secuencia de comandos en una hoja de Excel. No puede insertar delimitadores de secuencia de comandos en los gráficos de Excel.

Location  MsoScriptLocation opcional. Especifica la ubicación del delimitador de secuencia de comandos en un documento. Si ha especificado el argumento Anchor, el argumento Location no se utiliza, la ubicación del argumento Anchor determina la ubicación del delimitador de secuencia de comandos.

MsoScriptLocation puede ser una de estas constantes de MsoScriptLocation.
msoScriptLocationInBody predeterminado
msoScriptLocationInHead

Language  MsoScriptLanguage opcional. Especifica el lenguaje de la secuencia de comandos.

MsoScriptLanguage puede ser una de estas constantes de MsoScriptLanguage.
msoScriptLanguageASP
msoScriptLanguageJava
msoScriptLanguageOther
msoScriptLanguageVisualBasic predeterminado

Id   String opcional. El ID de la etiqueta <SCRIPT> en HTML. El argumento Id especifica un identificador SGML utilizado para nombrar elementos. Entre los identificadores válidos se incluye cualquier cadena que comience con una letra y esté constituida por caracteres alfanuméricos; la cadena también puede incluir el carácter de subrayado ( _ ). El ID debe ser único dentro del documento HTML. Este parámetro se exporta como el atributo ID en la etiqueta <SCRIPT>.

Extended   String opcional. Especifica atributos que deben agregarse a la etiqueta <SCRIPT> (los atributos LANGUAGE e ID se exportan a través de los parámetros Language e Id y no deben exportarse a través del parámetro Extended). El formato predeterminado es la cadena vacía. Los atributos se separan por espacios, al igual que sucede en HTML. La aplicación host de Microsoft Office no proporciona ningún medio para comprobar la sintaxis de los atributos pasados.

ScriptText   String opcional. Especifica el texto contenido en un bloque de secuencias de comandos. El formato predeterminado es la cadena vacía. La aplicación host de Microsoft Office comprueba la sintaxis de la secuencia de comandos.

Comentarios

Una forma asociada con un bloque de secuencias de comandos no se exporta o se imprime como forma en HTML; sólo se exporta el bloque de secuencias de comandos.

No puede utilizar el método Add para agregar un delimitador de secuencia de comandos a un rango de diapositivas de PowerPoint que contenga más de una diapositiva.

Método Add cuando se aplica al objeto SignatureSet.

Devuelve un objeto Signature que representa una firma de correo electrónico nueva.

expresión.Add

expresión   Requerida. Expresión que devuelve uno de los objetos anteriores.

Método Add cuando se aplica al objeto ODSOFilters.

Agrega un filtro nuevo a la colección ODSOFilters.

expresión.Add(Column, Comparison, Conjunction, bstrCompareTo, DeferUpdate)

expresión   Requerida. Expresión que devuelve uno de los objetos anteriores.

Column   String requerida. El nombre de la tabla en el origen de datos.

Comparison  MsoFilterComparisonrequerido. Cómo se filtran los datos de la tabla.

MsoFilterComparison puede ser una de estas constantes de MsoFilterComparison.
msoFilterComparisonContains
msoFilterComparisonEqual
msoFilterComparisonGreaterThan
msoFilterComparisonGreaterThanEqual
msoFilterComparisonIsBlank
msoFilterComparisonIsNotBlank
msoFilterComparisonLessThan
msoFilterComparisonLessThanEqual
msoFilterComparisonNotContains
msoFilterComparisonNotEqual

Conjunction  MsoFilterConjunction requerido. Determina cómo se relaciona este filtro con el resto de los filtros del objeto ODSOFilters.

MsoFilterConjunction puede ser una de estas constantes de MsoFilterConjunction.
msoFilterConjunctionAnd
msoFilterConjunctionOr

bstrCompareTo   String opcional. Si el argumento Comparison no es msoFilterComparisonIsBlank o msoFilterComparisonIsNotBlank, una cadena con la que se comparan los datos de la tabla.

DeferUpdate   Boolean opcional. El valor predeterminado es False.

Método Add cuando se aplica al objeto AnswerWizardFiles.

Crea una referencia nueva (un valor String) a un archivo del Asistente para Ayuda y lo agrega a la colección AnswerWizardFiles.

expresión.Add(FileName)

expresión   Requerida. Expresión que devuelve una colección AnswerWizardFiles.

Filename   String requerida. Ruta completa al archivo especificado del Asistente para Ayuda.

Método Add cuando se aplica al objeto FileTypes.

Agrega un tipo de archivo nuevo a una búsqueda de archivos.

expresión.Add(FileType)

expresión   Requerida. Expresión que devuelve uno de los objetos anteriores.

FileType  MsoFileType requerido. Especifica el tipo de archivo que se buscará.

MsoFileType puede ser una de estas constantes de 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

Método Add cuando se aplica al objeto PropertyTests.

Agrega un objeto PropertyTest a la colección PropertyTests.

expresión.Add(Name, Condition, Value, SecondValue, Connector)

expresión   Requerida. Expresión que devuelve un objeto PropertyTests.

Name   String requerida. Nombre del criterio de la propiedad. El nombre corresponde a un valor del cuadro Propiedad del cuadro de diálogo Buscar, que se abre desde el menú Herramientas del cuadro de diálogo Abrir de la aplicación (menú Archivo).

Condition  MsoCondition requerido. Condición de los criterios de búsqueda.

MsoCondition puede ser una de estas constantes de 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 opcional. Valor de los criterios de búsqueda.

SecondValue   Variant opcional. Valor superior del intervalo de búsqueda. Sólo es posible utilizar este argumento si Condition es msoConditionAnyTimeBetween o msoConditionAnyNumberBetween.

Connector  MsoConnector opcional Especifica la forma en que se combinan dos criterios de búsqueda.

MsoConnector puede ser una de estas constantes de MsoConnector.
msoConnectorAnd predeterminado
msoConnectorOr

Método Add cuando se aplica al objeto SearchFolders.

Agrega una carpeta de búsqueda a una búsqueda de archivos.

expresión.Add(ScopeFolder)

expresión   Requerida. Expresión que devuelve uno de los objetos anteriores.

ScopeFolder  Objeto ScopeFolder requerido. La carpeta que se agregará a la búsqueda.

Ejemplo

Cuando se aplica al objeto AnswerWizardFiles.

Este ejemplo prepara el Asistente para Ayuda para que acepte una lista de archivos personalizados y agrega dos archivos personalizados del Asistente para Ayuda. En primer lugar, el ejemplo borra la lista de archivos y, a continuación, agrega dos archivos personalizados del Asistente para Ayuda y comprueba el nombre de los archivos para asegurarse de que los archivos se han agregado correctamente.

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

Cuando se aplica al objeto CommandBarControls.

Este ejemplo crea una barra de herramientas personalizada que contienen botones (controles) para cortar, copiar y pegar

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

Cuando se aplica al objeto DocumentProperties.

Este ejemplo, diseñado para ejecutarlo en Microsoft Word, agrega tres propiedades personalizadas a la colección 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

Cuando se aplica al objeto PropertyTests.

Este ejemplo agrega dos pruebas de propiedad a los criterios de búsqueda. La primera comprueba que los archivos encontrados sean documentos de Word y la segunda que los archivos encontrados hayan sido modificados entre el 1 de enero y el 30 de junio de 1996. El ejemplo también muestra un cuadro de mensaje que presenta el número total de archivos encontrados, si hay alguno, y el nombre de cada uno de esos archivos.

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
Cuando se aplica al objeto Scripts.

Este ejemplo agrega un nuevo Script a la hoja de trabajo del libro activo.

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"")")