Objeto HTMLProjectItem

HTMLProject HTMLProjectItems (HTMLProjectItem)

Representa un objeto individual de un proyecto que constituye una rama de elemento del proyecto en el Explorador del Proyecto del Editor de secuencias de comandos de Microsoft. El objeto HTMLProjectItem es parte de la colección HTMLProjectItems.

Utilizar el objeto HTMLProjectItem

Utilice HTMLProjectItems(index), donde index es el nombre o el número de índice de un elemento de proyecto, para devolver un solo objeto HTMLProjectItem. Utilice la propiedad Name para devolver el nombre para mostrar del elemento de proyecto. El ejemplo siguiente devuelve el nombre del primer elemento del proyecto en la colección HTMLProjectItems del documento activo.

MsgBox "The first item is " & _
    ActiveDocument.HTMLProject.HTMLProjectItems(1).Name

Utilice el método Open para abrir el elemento de un proyecto en vista original o en vista de texto; utilice la propiedad IsOpen para determinar si el elemento del proyecto está abierto actualmente. El ejemplo siguiente abre el elemento del proyecto de nombre "ItemOne" (en el documento activo) en la vista predeterminada y, a continuación, muestra un cuadro de mensaje que indica si el elemento se ha abierto correctamente.

ActiveDocument.HTMLProject.HTMLProjectItems("ItemOne").Open
If ActiveDocument.HTMLProject. _
        HTMLProjectItems("ItemOne").IsOpen Then
MsgBox "Opened project item " & ActiveDocument.HTMLProject.HTMLProjectItems("ItemOne").Name
End If

Utilice el método SaveCopyAs para guardar el elemento del proyecto utilizando un nuevo nombre de archivo. El ejemplo siguiente guarda una copia de ItemOne como "NewItem".

ActiveDocument.HTMLProject.HTMLProjectItems("ItemOne") _
    .Open (msoHTMLProjectOpenTextView)
ActiveDocument.HTMLProject.HTMLProjectItems("ItemOne") _
    .SaveCopyAs("C:\NewItem.txt")

Suponiendo que exista el archivo de texto C:\NewText.txt, el ejemplo siguiente utilizará la propiedad LoadFromFile para establecer el texto de ItemOne al texto contenido en el archivo. El ejemplo siguiente utiliza la propiedad Text para mostrar el nuevo texto en un cuadro de mensaje.

MsgBox ActiveDocument.HTMLProject.HTMLProjectItems _
    ("ItemOne").Text
ActiveDocument.HTMLProject.HTMLProjectItems _
    ("ItemOne").LoadFromFile("C:\NewText.txt")
MsgBox ActiveDocument.HTMLProject.HTMLProjectItems _
    ("ItemOne").Text