Office VBA教程: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

上页:Office VBA教程:HTMLProject对象 下页:Office VBA教程:HTMLProjectItems集合对象

Office VBA教程:HTMLProjectItem对象

Office VBA教程:HTMLProjectItems集合对象 Office VBA教程:LanguageSettings对象
Office VBA教程:MsoEnvelope对象 Office VBA教程:NewFile对象
Office VBA教程:ODSOColumn对象 Office VBA教程:ODSOColumns对象
Office VBA教程:ODSOFilter对象 Office VBA教程:ODSOFilters对象
Office VBA教程:OfficeDataSourceObject对象 Office VBA教程:PropertyTest对象
Office VBA教程:PropertyTests集合对象 Office VBA教程:ScopeFolder对象
Office VBA教程:ScopeFolders集合 Office VBA教程:Script对象
Office VBA教程:Scripts集合对象 Office VBA教程:SearchFolders集合
Office VBA教程:SearchScope对象 Office VBA教程:SearchScopes集合
Office VBA教程:Signature对象 Office VBA教程:SignatureSet集合
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号