[Resolvido]Office 2007 com erro no Word

Bom dia a todos,

Tenho uma base de dados feita na versão Access 2003. Desinstalei essa versão e instalei o Office 2007, mantendo a extensão .mdb
O problema: uso a rotina de gerar arquivo em Word com indicadores, na versão 2003 funciona tudo perfeitamente, mas na versão 2007, não funciona pois ao clicar no botão simplesmente nada acontece e nem mensagem aparece seja no modo Design ou no modo de execução.

Para tentar resolver, fiz o seguinte:
1) Habilitei todas as macros
2) Compactei e reparei o banco de dados
3) Compilei e Depurei
4) Importei tudo para uma nova base

Mesmo assim o erro continua, ou melhor, não mostra mensagem de erro e continua sem funcionar.

PS: As demais rotinas funcionam normalmente com relação a formulários e relatórios que não utilizam a rotina de gerar um documento Word, conforme citado acima.
     Fiz buscas no fórum, mas não encontrei algo que me ajudasse.

Como resolver ? Mais alguma sugestão?

PS: Uso Windows 7 - 64bits

PS2: Após mais buscas vi que precisaria atualizar para o Service Pack 3, no entanto, no site da Microsoft mostra a mensagem: "Erro 404 - Not Found", ou seja, não encontrado, tentei em outros sites, mas também não foi encontrado u simplesmente não baixa, alguém teria para disponibilizar?

PS3: Achei 2 arquivos do Service Pack 3 para baixar. Após instalar apareceu a mensagem: "Não há produtos afetados por este pacote instalados neste Sistema".
      Testei novamente no Access e continua sem funcionar, alguém saberia algo mais para ajudar ?

PS4: Converti os arquivos .mdb para o formato .accdb, mesmo assim não funcionou.
Baixei outros pacotes do Service Pack 3, mas nenhum deles atualizou o Windows ou Office, apesar de informar após a instalação que as atualizações tinham sido feitas, mas não mostrou quais.

E agora? alguém pode ajudar?

Up !


A Microsoft diz: "Encerramos o suporte para Office 2007
A Microsoft deixou de fornecer suporte técnico e atualizações de software e de segurança para o Office 2007, desde 10 de outubro de 2017. Para obter suporte, migre para o Office 365 ou para outras versões atuais do Office."

Então pelo visto se depender desse pacote do Service Pack 3 não terei como resolver, então pergunto:

Alguma outra rotina para substituir a atual que uso por outra que funcione no Office 2007 ?

Em tempo, uso da seguinte forma:

Private Sub BtWord_Click() 'RELATÓRIO PRELIMINAR
'OBRIGATÓRIO: Marcar Referência: Microsoft Word 11.0 Object Library - By JPaulo Maximo Access
'             Marcar Referencia: Microsoft Scripting Runtime - By JPaulo Maximo Access

       If IsNull(DataRelInicial) Or IsEmpty(DataRelInicial) Then
          MsgBox "Falta informar a DATA do RELATÓRIO PRELIMINAR Inicial!!", vbInformation, "Sistema: Campo obrigatório"
          Cancel = True
          Me.DataRelInicial.SetFocus
          Exit Sub
       End If

Dim ntram
ntram = MsgBox("Deseja GERAR um novo Documento WORD" & vbCr & "ALERTA: Caso já tenha sido gerado o Relatório Preliminar INICIAL anterior será substituído pelo Arquivo-Matriz!", vbQuestion + vbYesNo, "Sistema - Confirmação")
If ntram = 6 Then 'INÍCIO 1º IF

  #Const DESENV = -1
  On Error GoTo TrataErro
  Dim oApp As Object 'Cria uma variável objeto
  Dim strSQL As String
  Dim Pasta As String
 
  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.FolderExists("G:\Drives Compartilhados\SISTEMAS\OMEGA\16.CasosXRelatoriosPreliminares\" & Year(DataRelInicial)) Then ' verifica se já existe a pasta - ORIGINAL
     'Não faz nada
  Else
    'cria a pasta em falta para o ano em causa
   MkDir "G:\Drives Compartilhados\SISTEMAS\OMEGA\16.CasosXRelatoriosPreliminares\" & Year(DataRelInicial) ' se não existir cria - ORIGINAL
  End If
   Pasta = "G:\Drives Compartilhados\SISTEMAS\OMEGA\16.CasosXRelatoriosPreliminares\" & Year(DataRelInicial) 'ORIGINAL
 'Inicia o MS Word
 Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
 With oApp
 'Torna o MS Word visível
 Visible = True
 'Abre o documento Matriz Word
 .Documents.Open ("C:\OMEGA\00.MatrizWord\MatrizRELPRE_Inicial.doc")

'Move cada campo para o indicador definido no documento
.ActiveDocument.Bookmarks("Campo01").Select
.Selection.Text = (CStr(Forms!F50_Casos!NumCaso))
.ActiveDocument.Bookmarks("Campo02").Select
.Selection.Text = (CStr(Forms!F50_Casos!DataDemanda))
.ActiveDocument.Bookmarks("Campo03").Select
.Selection.Text = (CStr(Forms!F50_Casos!NomeDemandante))
.ActiveDocument.Bookmarks("Campo04").Select
.Selection.Text = (CStr(Forms!F50_Casos!CargoDemandante))
.ActiveDocument.Bookmarks("Campo05").Select
.Selection.Text = (CStr(Forms!F50_Casos!OrgaoDemandante))
.ActiveDocument.Bookmarks("Campo06").Select
.Selection.Text = (CStr(Forms!F50_Casos!Procedimento))
.ActiveDocument.Bookmarks("Campo07").Select
.Selection.Text = (CStr(Forms!F50_Casos!Assunto))
.ActiveDocument.Bookmarks("Campo08").Select
.Selection.Text = (CStr(Forms!F50_Casos!NomeAlvos))
.ActiveDocument.Bookmarks("Campo09").Select
.Selection.Text = (Format(Forms!F50_Casos!DataRelInicial, "dd")) & " de " & (Format(Forms!F50_Casos!DataRelInicial, "mmmm")) & " de " & (Format(Forms!F50_Casos!DataRelInicial, "yyyy"))

'Salva o arquivo Word gerado
.ActiveDocument.SaveAs Pasta & "\" & "RelPre_Inicial " & Replace(Me.NumCaso, "/", "-") & ".doc"
'MsgBox "Documento WORD gerado com sucesso...", vbInformation
'Fecha o documento
.ActiveDocument.Close
End With
'Fecha o Word
oApp.Quit
End If 'Fim do 1º IF '

Dim x As String
 x = Pasta & "\RelPre_Inicial " & Replace(Me.NumCaso, "/", "-") & ".doc"
 Dim Word As New Word.Application
 With Word
 .Documents.Open x
 .Visible = True
 .WindowState = wdWindowStateMaximize
 End With

 'Libera a memória
 Set oApp = Nothing
Saida:
Exit Sub

TrataErro:
'Se um campo do formulário estiver vazio, remove o texto do Indicador e continua
If Err.Number = 94 Then
  oApp.Selection.Text = ""
  Resume Next
End If
MsgBox "Form_F50_Casos - btWord_Click" & vbCrLf & Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If DESENV Then
   oApp.Quit
   Set oApp = Nothing
   Stop
   Resume
#End If
Resume Saida
End Sub

Consegui encontrar o arquivo "office2007sp3-kb2526086-fullfile-pt-br.exe" em um Backup antigo. Instalei e funcionou bem.

Caso alguém necessite, pode solicitar.

@vileman voce ainda tem o office2007sp3-kb2526086-fullfile-pt-br.exe para disponibilziar?

lisistemas.com.br/msaccess/instaladores/o2007spx86.exe