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

Traduções de Artigos Traduções de Artigos
Artigo: 303294 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Sumário

Este artigo mostra como automatizar o Microsoft Word com o Microsoft Visual Basic .NET para obter e manipular as propriedades do documento. Apesar do exemplo neste artigo for escrito especificamente para automatizar o Word, é possível aplicar os mesmos conceitos para o Microsoft Excel e Microsoft PowerPoint.

Mais Informação

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

  1. Inicie o Visual Studio NET..
  2. No menu ficheiro , clique em Novo e, em seguida, clique em projecto . Seleccione Windows Application dos tipos de projecto do Visual Basic. É criado o Form1 por predefinição.
  3. Adicione uma referência à Biblioteca de objectos do Microsoft Word . Para o fazer, siga estes passos:
    1. No menu projecto , clique em Add Reference .
    2. No separador COM , localizar a Biblioteca de objectos do Microsoft Word e, em seguida, clique em Seleccionar .

      Nota O Microsoft Office 2003 inclui Primary Interop Assemblies (PIAs). Microsoft Office XP não inclui PIAs, mas pode ser transferidos. Para obter mais informações sobre PIAs do Office XP, clique no número de artigo que se segue para visualizar o artigo na Microsoft Knowledge Base:
      328912Microsoft Office XP principais interop assemblies (PIAs) estão disponíveis para transferência
    3. Clique em OK na caixa de diálogo Adicionar referências para aceitar as selecções. Se for pedido para gerar wrappers para as bibliotecas que seleccionou, clique em Sim .
  4. No menu Ver , seleccione a caixa de ferramentas para visualizar a caixa de ferramentas e adicione um botão ao Form1.
  5. Faça duplo clique em Button1 . Aparece a janela código para o formulário.
  6. Na janela de código, substitua o seguinte código
    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 para a parte superior do Form1.VB:
    Imports Office = Microsoft.Office.Core
    Imports Word = Microsoft.Office.Interop.Word
  8. Prima F5 para executar a aplicação.
  9. Clique em Button1 para iniciar o Microsoft Word.
Este código demonstra de leitura e escrita de propriedades do documento incorporado e propriedades personalizadas do documento. Quando executado, este código apresenta o valor da propriedade incorporada do autor , o valor da propriedade Assunto é alterado para "Artigo da base de dados de conhecimento da Microsoft Q303294" e cria uma nova propriedade personalizadas do documento com o nome "Artigo da base de dados de conhecimento da Microsoft." Quando lhe for pedido para ver as alterações, mude para o Word e clique em Propriedades no menu ficheiro .

Referências

Para obter mais informações, visite o seguinte Microsoft Developer Network Web site:
Desenvolvimento do Microsoft Office com o Visual Studio
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx
Para obter mais informações, clique no número de artigo que se segue para visualizar o artigo na Microsoft Knowledge Base:
303296Como utilizar a automatização para obter e definir propriedades de documento do Office com o Visual C# .NET

Propriedades

Artigo: 303294 - Última revisão: 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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes 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