Como usar a automação para obter e definir propriedades de documento do Office com o Visual Basic .NET

Traduções deste artigo Traduções deste artigo
ID do artigo: 303294 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Sumário

Este artigo ilustra como automatizar o Microsoft Word com o Microsoft Visual Basic .NET para recuperar e manipular as propriedades de documento. Embora o exemplo neste artigo é escrito especificamente para automatizar o Word, os conceitos mesmos podem ser aplicados para o Microsoft Excel e Microsoft PowerPoint.

Mais Informações

Criar um cliente de automação para o Microsoft Word

  1. Inicie o Visual Studio NET..
  2. No menu arquivo , clique em novo e, em seguida, clique em Project . Selecione Windows Application dos tipos de projeto do Visual Basic. O Form1 é criado por padrão.
  3. Adicione uma referência ao Microsoft Word Object Library . Para fazer isso, execute as seguintes etapas:
    1. No menu Project , clique em Add Reference .
    2. Na guia COM , localize o Microsoft Word Object Library e, em seguida, clique em Selecionar .

      Observação Microsoft Office 2003 inclui assemblies de interoperabilidade primários (PIAs). Microsoft Office XP não inclui PIAs, mas podem ser baixados. Para obter mais informações sobre PIAs do Office XP, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
      328912Microsoft Office XP módulos de interoperabilidade primários (PIAs) estão disponíveis para download
    3. Clique em OK na caixa de diálogo Add References para aceitar as seleções. Se você for solicitado a gerar wrappers para as bibliotecas que você selecionou, clique em Sim .
  4. No menu Exibir , selecione a caixa de ferramentas para exibir a caixa de ferramentas e adicione um botão ao Form1.
  5. Clique duas vezes em Button1 . A janela de código para o formulário é exibida.
  6. Na janela código, substitua o código a seguir
    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles Button1.Click
    End Sub
    					
    com:
    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 
    					
  7. Adicione o seguinte código à parte superior do Form1.vb:
    Imports Office = Microsoft.Office.Core
    Imports Word = Microsoft.Office.Interop.Word
  8. Pressione F5 para executar o aplicativo.
  9. Clique em Button1 para iniciar o Microsoft Word.
Este código demonstra como ler e gravar as propriedades internas do documento e as propriedades personalizadas de documento. Quando executado, esse código exibe o valor da propriedade interna do Autor , altera o valor de propriedade de assunto "Artigo da Base de dados de Conhecimento da Q303294" e cria uma nova propriedade personalizada de documento que é chamada de "Artigo do Knowledge Base." Quando você for solicitado para exibir as alterações, alterne para o Word e clique em Propriedades no menu arquivo .

Referências

Para obter mais informações, visite o seguinte Microsoft Developer Network site:
Microsoft Office Development com Visual Studio
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx
Para obter mais informações, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
303296Como usar a automação para obter e definir propriedades do documento Office com o Visual translation from VPE for Csharp .NET

Propriedades

ID do artigo: 303294 - Última revisão: sexta-feira, 29 de junho de 2007 - Revisão: 7.4
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Office Word 2003
  • Microsoft Word 2002 Standard Edition
Palavras-chave: 
kbmt kbpia kbautomation kbhowto KB303294 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 303294

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com