MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Office 2007 com erro no Word

    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Office 2007 com erro no Word Empty [Resolvido]Office 2007 com erro no Word

    Mensagem  vileman 24/9/2019, 14:06

    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?


    Última edição por vileman em 25/9/2019, 16:15, editado 3 vez(es) (Motivo da edição : Atualização de informações)
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Office 2007 com erro no Word Empty Office 2007 com erro no Word

    Mensagem  vileman 25/9/2019, 16:16

    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
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Office 2007 com erro no Word Empty Office 2007 com erro no Word

    Mensagem  vileman 8/10/2019, 16:34

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

    Caso alguém necessite, pode solicitar.

    rafasg2021 gosta desta mensagem

    avatar
    rafasg2021
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 09/06/2022

    [Resolvido]Office 2007 com erro no Word Empty Office 2007 SP3

    Mensagem  rafasg2021 9/6/2022, 18:19

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

    rafasg2021 gosta desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3693
    Registrado : 22/11/2016

    [Resolvido]Office 2007 com erro no Word Empty Re: [Resolvido]Office 2007 com erro no Word

    Mensagem  DamascenoJr. 9/6/2022, 22:36

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    rafasg2021 gosta desta mensagem


      Data/hora atual: 15/8/2022, 13:35