MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 552
    Registrado : 25/05/2011

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

    Mensagem  vileman em Ter 24 Set 2019, 1:06 pm

    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 Qua 25 Set 2019, 3:15 pm, 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 : 552
    Registrado : 25/05/2011

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

    Mensagem  vileman em Qua 25 Set 2019, 3:16 pm

    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 : 552
    Registrado : 25/05/2011

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

    Mensagem  vileman em Ter 08 Out 2019, 3:34 pm

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

    Caso alguém necessite, pode solicitar.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 24 Out 2019, 2:11 am