[Resolvido]Abrir Documento do Word

Bom dia Amigos, li os topicos relacionados para criação do Template do word e posteriormente o documento na pasta especificada. Funciona perfeitamente. Só gostaria de saber como faço para abrir este ultimo documento após ter sido salvo na pasta?

Sds,

Bom Dia
Experimente

Dim Resultado As Variant
Resultado = OpenFile(CurrentProject.Path & "\meuficheiro.doc")
If Resultado <> True Then
MsgBox Resultado
End If

Bom dia Vieira, Obrigado pelo retorno

Estou utilizando este exemplo aqui do Forum:

Código:


Private Sub btWord_Click()

On Error GoTo TrataErro
Dim oApp As Object

' Inicia o MS Word
    Set oApp = CreateObject("Word.Application")
    With oApp
' Torna o MS Word visível
        Visible = True
' Abre o documento
        .Documents.Open "C:\TemplateCartas\Cartinha.doc"
'Move cada campo para o indicador definido no documento
        .ActiveDocument.Bookmarks("NomeDaEmpresa").Select
        .Selection.Text = Trim(CStr(Me.NomeDaEmpresa))
        .ActiveDocument.Bookmarks("Endereço").Select
        .Selection.Text = Trim(CStr(Me.Endereço))
        .ActiveDocument.Bookmarks("Cidade").Select
        .Selection.Text = Trim(CStr(Me.Cidade))
        .ActiveDocument.Bookmarks("Região").Select
        .Selection.Text = Trim(CStr(Me.Região))
        .ActiveDocument.Bookmarks("CEP").Select
        .Selection.Text = Trim(Me.CEP)
        .ActiveDocument.Bookmarks("NomeDoContato").Select
        .Selection.Text = Trim(CStr(Me.NomeDoContato))
        .ActiveDocument.Bookmarks("NomeDoContato1").Select
        .Selection.Text = Trim(CStr(Me.NomeDoContato))
        .ActiveDocument.Bookmarks("NomeDaEmpresa1").Select
        .Selection.Text = Trim(CStr(Me.NomeDaEmpresa))
        .ActiveDocument.Bookmarks("NomeDoContato2").Select
        .Selection.Text = Trim(CStr(Me.NomeDoContato))
        .ActiveDocument.Bookmarks("Cargo").Select
        .Selection.Text = Trim(CStr(Me.CargoDoContato))
        .ActiveDocument.Bookmarks("Endereço1").Select
        .Selection.Text = Trim(CStr(Me.Endereço))
        .ActiveDocument.Bookmarks("Cidade1").Select
        .Selection.Text = Trim(CStr(Me.Cidade))
        .ActiveDocument.Bookmarks("Região1").Select
        .Selection.Text = Trim(CStr(Me.Região))
        .ActiveDocument.Bookmarks("CEP1").Select
        .Selection.Text = Trim(CStr(Me.CEP))
        .ActiveDocument.Bookmarks("País").Select
        .Selection.Text = Trim(CStr(Me.País))
        .ActiveDocument.Bookmarks("Telefone").Select
        .Selection.Text = Trim(CStr(Me.Telefone))
        .ActiveDocument.Bookmarks("Fax").Select
        .Selection.Text = Trim(CStr(Me.Fax))
 
        .ActiveDocument.SaveAs "C:\Cartas" & Me.CódigoDoCliente & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmmss") & ".doc"

       
        MsgBox "Documento salvo com sucesso...", vbInformation
       
    End With
    oApp.Quit
    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_Clientes - 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


Estou tentando abrir mais ou menos como a linha abaixo após salvar o documento, mas não vai achar o mesmo justamente pelo uso do Now

.Documents.Open "C:\Cartas" & Me.CódigoDoCliente & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmmss") & ".doc"

como poderia localizar este arquivo ou abrir o mesmo?

Obrigado desde já

Sds,

Amigão

Dessa forma não vai ser possível pois precisa ter um campo de busca para ir buscar o arquivo desejado.

Veja a alteração deste trecho:

.ActiveDocument.SaveAs CurrentDbDir & Me.CódigoDoCliente & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"
.ActiveDocument.Close
MsgBox "Documento salvo com sucesso...", vbInformation
.Documents.Open CurrentDbDir & Me.CódigoDoCliente & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"
.Visible = True
.WindowState = wdWindowStateMaximize
End With
'oApp.Quit
'Set oApp = Nothing
Saida:
Exit Sub


Se você salvar com segundos, não consegue mais abrir, porque quando manda abrir já passou pelos menos 1 segundo rsrsrsrs

Amigo Vieira, obrigado entendi o que quis dizer,

Seria abrir o ficheiro e selecionar o arquivo gerado. Mas como não vou precisar gravar os segundos, a dica do mestre vai servir para minha aplicação.

Amigo JPaulo, obrigado novamente, funcionou muito bem.

Só não estou entendendo por que o tratamento de Erro deste código 94 não está sendo respeitado.

Sds,

Valeuamigão. Um abraço e bom trabalho.

Obrigado pelo retorno

Esse código é da Microsoft, veja se o pode ajudar a entender por que o tratamento de Erro deste código 94 não está sendo respeitado.

http://support.microsoft.com/kb/131583/pt

Necessito de um add-in ou uma macro, para o word e excel 2007, com o
objetivo de colocar uma referência e/ou identificador em todos os
documentos, seja ofí­cios, declarações, propostas e etc... qualquer
documento novo já trazer a numeração posterior da última gerada.. modelo da referência... Ref.: XXX/HORADIAMESANO/PST (PST é o nome da minha empresa)
Preciso gerenciar, controlar todos os documentos gerados do word e excel.

E no cabeçalho já constar a Cidade-UF, dd de mês de ano atualizado assim que abrir um novo documento. Será que alguém pode me ajudar? Obrigado!