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 theLoadFromFile property to set the text of ItemOne to the text contained in the file. The following 示例 uses theText 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

HTMLProject HTMLProjectItems (HTMLProjectItem)