[Resolvido]Gerar documento no word

Bom dia

Estou utilizando o código abaixo para gerar contratos. O que eu quero saber como eu faço, em vez de salvar o contrato ele some abrir o contrato.

Desde já agradeço.

Código:



Dim wdApl As Object
Dim strLocal As String
On Error GoTo 1

Set wdApl = CreateObject("Word.Application")
'--------------------------
'Abre o arquivo do Word
'--------------------------
wdApl.Documents.Open FileName:=CurrentProject.Path & "\Contratos\" & Me.Tipo & "" ',passwordDocument:="SenhaDoDocumento"
With wdApl
.ActiveDocument.Bookmarks("T001").Select: .Selection.Text = Me!txtNomeLocador
'.ActiveDocument.Bookmarks("T002").Select: .Selection.Text = Me!txtCPFLocador
.ActiveDocument.Bookmarks("T003").Select: .Selection.Text = Me!txtCPFLocador
.ActiveDocument.Bookmarks("T004").Select: .Selection.Text = Me!txtLocatario
'.ActiveDocument.Bookmarks("T005").Select: .Selection.Text = Me!txtCPFLocador
.ActiveDocument.Bookmarks("T006").Select: .Selection.Text = Me!txtCPFLocatario
.ActiveDocument.Bookmarks("T007").Select: .Selection.Text = Me!txtObjeto
.ActiveDocument.Bookmarks("T008").Select: .Selection.Text = Me!txtPeriodo
'.ActiveDocument.Bookmarks("T009").Select: .Selection.Text = Me!txtCPFLocador
.ActiveDocument.Bookmarks("T010").Select: .Selection.Text = Me!txtDtInicio
.ActiveDocument.Bookmarks("T011").Select: .Selection.Text = Me!txtDtTermino
.ActiveDocument.Bookmarks("T012").Select: .Selection.Text = Me!txtValor
'.ActiveDocument.Bookmarks("T013").Select: .Selection.Text = Me!txtCPFLocador
'.ActiveDocument.Bookmarks("T014").Select: .Selection.Text = Me!txtCPFLocador
'.ActiveDocument.Bookmarks("T015").Select: .Selection.Text = Me!txtCPFLocador
'.ActiveDocument.Bookmarks("T016").Select: .Selection.Text = Me!txtCPFLocador
'.ActiveDocument.Bookmarks("T017").Select: .Selection.Text = Me!txtCPFLocador
.ActiveDocument.Bookmarks("T018").Select: .Selection.Text = Format(Me!txtDtAssinatura, "dd \de mmmm \de yyyy")
.ActiveDocument.Bookmarks("T019").Select: .Selection.Text = Me!txtNomeLocador
.ActiveDocument.Bookmarks("T020").Select: .Selection.Text = Me!txtLocatario

'---------------------------------------------------------
'Salva o documento preenchido no mesmo local do aplicativo
'----------------------------------------------------------
strLocal = CurrentProject.Path & "\CONTRATO " & Nz(Replace(Me!txtCPFLocador, " ", "")) & "-" & Format(Now, "hhmmss") & ".docx"
.ActiveDocument.SaveAs strLocal ', Password:="123"
'------------------
'Fecha o documento
'------------------
.ActiveDocument.Close
'-------------
'Fecha o Word
'-------------
.Quit
End With
'Limpa a memória
Set wdApl = Nothing
'---------------------------------------------------------
'Abre o documento preechido para visualização e impressão
'---------------------------------------------------------
Application.FollowHyperlink strLocal

1:
If Err.Number = 462 Then
   If Not (wdApl Is Nothing) Then
    wdApl.Close (False)
    Set wdApl = Nothing
   End If
End If



So para abrir o contrato salvo.

Código:

  'Codigo para abrir o documento apos ser salvo
    Dim X As String
    X = CurrentProject.Path & "\Contratos Salvos\" & Me.CodContrato & "_" & Me.NomeLocatario & ".docx"
  Dim Word As New Word.Application
  With Word
  .Documents.Open X
  .visible = True
  .WindowState = wdWindowStateMaximize
  End With
'Libera a mem?ria
    Set Word = Nothing
Saida:
    Exit Sub

Connekta bom dia,

Apenas um comentário.

Um assunto que foi abordado aqui no fórum sobre utilizar o próprio Access para gerar relatório, evitando a dependência de outros aplicativos, no caso o MS Word.
O Access é uma ferramenta completa.

Já pensou na possibilidade do usuário (cliente) não possuir o Pacote Office instalado em sua máquina? Mas que tenha o Libre Office instalado apenas.
Neste caso, essa rotina não funcionaria, e voce teria que fazer manutenção no sistema para atender esta situação.

É isso


[]'s

FIM

Boa tarde

Esse projeto é pra uso pessoal, não para distribuir.

Eu preciso que somente abra o documento no word preenchido, para não ocupar espaço no disco.