Select the product you need help with

HOWTO：在 Visual Basic .NET 中使用自动化获取和设置 Office 文档属性

概要

本文说明如何通过 Microsoft Visual Basic .NET 使 Microsoft Word 自动运行以检索和操纵文档属性。尽管本文中的示例是专为自动运行 Word 而编写的，但是可将这些概念应用于 Microsoft Excel 和 Microsoft PowerPoint。

回到顶端 | 提供反馈

更多信息

为 Microsoft Word 创建自动化客户端

启动 Visual Studio .NET。
在文件菜单上，单击新建，然后单击项目。从 Visual Basic 项目类型中选择 Windows 应用程序。默认情况下会创建 Form1。
添加对 Microsoft Word 对象库的引用。为此，请按照下列步骤操作：
1. 在项目菜单上，单击添加引用。
2. 在 COM 选项卡上，找到 Microsoft Word 对象库，然后单击选择。
  
  注意：Microsoft Office 2003 包含主 Interop 程序集 (PIA)。Microsoft Office XP 不包含 PIA，但您可以下载 PIA。有关 Office XP PIA 的其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：
  328912
  (http://support.microsoft.com/kb/328912/ )
  INFO：Microsoft Office XP PIA 可供下载
3. 在添加引用对话框中单击确定以接受您的选择。如果系统提示您为选定的库生成包装，请单击是。
在视图菜单上，选择工具箱以显示工具箱，然后向 Form1 添加一个按钮。
双击 Button1。出现该窗体的代码窗口。

在代码窗口中，将以下代码

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) _
                          Handles Button1.Click
End Sub

替换为：

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) _
                          Handles Button1.Click
        Dim oWord As Word.Application
        Dim oDoc As Word.Document
        Dim oBuiltInProps As Object
        Dim oCustomProps As Object
        Dim oProp As Object
        Dim strValue As String

        'Create an instance of Word and make it visible.
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        'Create a new document
        oDoc = oWord.Documents.Add()

        'Get the Built-in Document Properties collection.
        oBuiltInProps = oDoc.BuiltInDocumentProperties
        'Get the value of the Author property and display it
        strValue = oBuiltInProps.Item("Author").Value
        MsgBox("The author of this document is " & strValue)        

        'Set the value of the Subject property.
        oBuiltInProps.Item("Subject").Value = _
                  "Knowledge Base article Q303294"

        'Get the Custom Document Properties collection.
        oCustomProps = oDoc.CustomDocumentProperties
        'Add a property named Knowledge Base Article
        'and give it a value of Q303294.
        oCustomProps.Add("Knowledge Base article", False, _
                  Office.MsoDocProperties.msoPropertyTypeString, "Q303294")

        'Display a message box to give the user a chance to verify the
        'properties.
        MsgBox("Select Properties from the File menu " _
               & "to view the changes." & Chr(10) _
               & "Select the Summary tab to view " _
               & "the Subject and the Custom tab to view the Custom " _
               & "properties.", MsgBoxStyle.Information, _
               "Check File Properties")

        'Clean up. We'll leave Word running.
        oCustomProps = Nothing
        oBuiltInProps = Nothing
        oDoc = Nothing
        oWord = Nothing

    End Sub

如果您引用了 Microsoft Word 2002 对象库，请将下面一行添加到代码窗口的顶部：

   Imports Word = Microsoft.Office.Interop.Word
   Imports Office = Microsoft.Office.Core

按 F5 键运行该应用程序。
单击 Button1 启动 Microsoft Word。

此代码演示了如何读取和写入内置文档属性和自定义文档属性。当此代码运行时，会显示内置的 Author 属性的值，将 Subject 属性的值更改为“Knowledge Base article Q303294”，并创建一个名为“Knowledge Base article”的新的自定义文档属性。在提示您查看这些更改时，请切换到 Word，然后在文件菜单上单击属性。

回到顶端 | 提供反馈

参考

有关更多信息，请访问下面的 Microsoft Developer Network Web 站点：

Microsoft Office Development with Visual Studio（使用 Visual Studio 进行 Microsoft Office 开发）
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx

(http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx)

有关其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

303296

(http://support.microsoft.com/kb/303296/ )

HOWTO：在 Visual C# .NET 中使用自动化获取和设置 Office 文档属性

回到顶端 | 提供反馈

属性

文章编号: 303294 - 最后修改: 2007年1月17日 - 修订: 6.1

这篇文章中的信息适用于:

Microsoft Visual Basic .NET 2003 标准版
Microsoft Visual .NET 2002 标准版
Microsoft Office Excel 2003
Microsoft Excel 2002 标准版
Microsoft Office PowerPoint 2003
Microsoft PowerPoint 2002 标准版
Microsoft Office Word 2003
Microsoft Word 2002 标准版

kbhowto kbautomation kbpia KB303294

Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

回到顶端 | 提供反馈