locked
Add-in Word RRS feed

  • Pergunta

  •  

    Boa Tarde

     

    Criei um add-in para o word 2007 no visaul studio via VB acrescentei um Ribbon ao projecto e um botão ao ribbon para salvar o documento activo com o seguinte código:

    Dim objWordApp As New Word.Application
    Dim objDoc As New Word.Document

              Dim TFile As String
              Dim Tobj As Object

              TFile = "D:\GILBERTO.doc"
              Tobj = TFile
               
              objDoc = objWordApp.ActiveDocument
              objDoc.SaveAs(Tobj)
              MsgBox("A digitalização foi concluída.", vbInformation, "Informação")

    ao fazer clique no botão provoca um erro

    ErrorCode=-2146824040

    Message="Este comando não está disponível porque não existe nenhum documento aberto."

     

    preciso de ajuda

    terça-feira, 8 de abril de 2008 14:58

Todas as Respostas

  • E existe documento aberto na instância do Word? Se não existe, tem que adicionar.

     

    Veja também se não é o caso de setar o objWordApp = Me.Application

     

     

    quarta-feira, 9 de abril de 2008 14:31
    Moderador
  • Desde já obrigada pela resposta. Entretanto consegui resolver o assunto da seguinte maneira

     

    Dim objWordApp As Word.Application = Globals.ThisAddIn.Application

    Dim objDoc As Word.Document

    Dim TFile As String

    Dim Tobj As Object

    TFile = "D:\GILBERTO.doc"

    Tobj = TFile

    objDoc = objWordApp.ActiveDocument

    objDoc.SaveAs(Tobj)

    MsgBox("A digitaliza‡Æo foi conclu¡da.", vbInformation, "Informa‡Æo")

     

    Ou seja eu estava a abrir um novo documento e não aquele que eu cria guardar

     

    Bem agora ultrapassado esta situação estou a debater-me com outra

     

    estou a tentar inserir um Ribbon no outlook

     

    o Primerio Ribbon aparace no formulario de leitura da mensagem (Read Mail)

    Me.Name = "Ribbon1"

    Me.RibbonType = "Microsoft.Outlook.Mail.Read"

    Me.Tabs.Add(Me.TabMail)

    Me.TabMail.ResumeLayout(False)

    Me.TabMail.PerformLayout()

    Me.Group1.ResumeLayout(False)

    Me.Group1.PerformLayout()

    Me.ResumeLayout(False)

    Nota : este Ribbon funciona tranquilamente

    *****************************************************************************************

    o Segundo Ribbon aparace no formulario de Nova Mensagem (Mail Compose)

    Me.Name = "Ribbon2"

    Me.RibbonType = "Microsoft.Outlook.Mail.Compose"

    Me.Tabs.Add(Me.TabEMAIL)

    Me.TabEMAIL.ResumeLayout(False)

    Me.TabEMAIL.PerformLayout()

    Me.Group1.ResumeLayout(False)

    Me.Group1.PerformLayout()

    Me.ResumeLayout(False)

    Nota : este Ribbon funciona tranquilamente

    *****************************************************************************************

    o Terceiro Ribbon não aperece no formulario de resposta ao e-mail (Response Compose)

    mas sim o segundo Ribbon

    Me.Name = "Ribbon3"

    Me.RibbonType = "Microsoft.Outlook.Response.Compose"

    Me.Tabs.Add(Me.TabRMAIL)

    Me.TabRMAIL.ResumeLayout(False)

    Me.TabRMAIL.PerformLayout()

    Me.Group1.ResumeLayout(False)

    Me.Group1.PerformLayout()

    Me.ResumeLayout(False)

    Nota : Não aparce no formulário de resposta ao e-mail

    *****************************************************************************************

     

    O que posso fazer para ultrapassar esta situação

     

    Desde já agradeco

    sábado, 12 de abril de 2008 19:49