Add-in Word

Question

 

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

Answer 1

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

 

 

Answer 2

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