Tenho uma BD em Access para gestão de clientes. Qdo insiro um novo cliente ao clicar no botão "Salvar", o programa salva o utente e cria automáticamente uma pasta com o nome desse cliente, portanto todos os clientes têm uma pasta.
Tenho um outro botão "Processo" que ao clicar abre a pasta criada anteriormente desse cliente
Tenho um outro botão "Iso", que ao clicar abre um documento do word *.docm que vai buscar algumas informções desse cliente da BD (Nome, telefone,
etc.) que posso imprimir.
Dentro do referido documento tenho um botão na Barra de Ferramentas de Acesso Rápido que é uma macro que me permite ao clicar gravar automáticamente aquele documento na pasta do cliente que está aberto:
Sub TESTE1()
Dim xTitle As String
xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "" & _
Format((Month(Now() + 1) Mod 100), "0#") & "" & _
Format((Day(Now()) Mod 100), "0#")
ChangeFileOpenDirectory "C:\Users\hmconpneumoenf\Desktop\CONSTUB\PROCESSOS\"
ActiveDocument.SaveAs2 FileName:=xTitle, _
FileFormat:=wdFormatXMLDocumentMacroEnabled, LockComments:=False, _
Password:="", AddToRecentFiles:=True, WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, CompatibilityMode:=15
End Sub
O que acontece é ele efectivamente grava automáticamente o documento na pasta "PROCESSOS" e não na pasta do cliente...
Agradeço desde já toda a ajuda