�� Office � Visual Basic .NET � ��

�� : 303294 - �� , � �� .

��: ��

��

�� | ��

��

� �� Microsoft Word � �� Microsoft Visual Basic .NET �� . �� , �� Word, �� Microsoft Excel � Microsoft PowerPoint.

�� | ��

��

�� Microsoft Word

�� Visual Studio .NET..
� ����:�� ��.� �� Project. Select�� Windows�� Visual Basic. �� Form1..
�� �� Microsoft Word. �� ::
1. � ��Project�� �� .
2. � ��COM��, ���� Microsoft Word� �� Select.
  
  ��.Microsoft Office 2003 �� (PIA). Microsoft Office XP �� , �� ..�� Office XP �� :
  328912
  (http://support.microsoft.com/kb/328912/ )
  �� (PIA) �� Microsoft Office XP
3. �� Ok.� �� �� �� . �� , �� ��..
� ����:�� �� �� 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