HTMLProjectItem 对象

HTMLProject HTMLProjectItems (HTMLProjectItem)

代表一个单独的工程项，该工程项是“Microsoft 脚本编辑器”中“工程资源管理器”的一个工程项分支。HTMLProjectItem 对象是 HTMLProjectItems 集合的一个成员。

使用 HTMLProjectItem 对象

用 HTMLProjectItems(index)，返回一个 HTMLProjectItem 对象，其中 index 是工程项的索引号或名称。用 Name 属性返回工程项的显示名称。以下示例返回活动文档的 HTMLProjectItems 集合中第一个工程项的名称。

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

用 Open 方法在源代码视图或文字视图中打开工程项，用 IsOpen 属性来判断工程项当前是否处于打开状态。以下示例在默认视图中打开活动文档中的工程项“ItemOne”，然后用消息框显示是否成功地打开了该工程项。

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

用 SaveCopyAs 方法来以新文件名保存工程项。以下示例将工程项“ItemOne”另存为“NewItem”。

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

Assuming that the text file C:\NewText.txt exists, the following 示例 uses the LoadFromFile property to set the text of ItemOne to the text contained in the file. The following 示例 uses the Text property to display the new text in a message box.

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