MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Office 2007 com erro no Word

    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  vileman em 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) (Razão : Atualização de informações)
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  vileman em 25/9/2019, 16:16

    Up !

    PS: No link https://products.office.com/pt-br/office-2007-end-of-support

    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 100%

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

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

    Mensagem  vileman em 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.

      Data/hora atual: 23/9/2020, 16:23