[Resolvido]Linha de Comando para Salvar documento Word no pendrive?

Este comando está funcionando perfeitamente. Mas ele está salvando as Certidões no disco C:
Minha pergunta é qual seria o comando para salvar o documento gerado, em invés do C: para ser salvo no pendrive?   .. Se isto for possível, seria possível rodar o BD no pendrive por completo salvando os documentos gerados numa pasta no próprio pendrive.
Com a linha de comando abaixo, ele roda no pendrive mas está salvando no PC, em
"C:\Dados OJ\TodasCertidões\"

'Salva o arquivo gerado
.ActiveDocument.SaveAs CurrentDbDir & "\Dados OJ\TodasCertidoes\" & Me.DESTINATARIO & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"

.ActiveDocument.Close
MsgBox "Documento salvo com sucesso...", vbInformation
.Documents.Open CurrentDbDir & "\Dados OJ\TodasCertidoes\" & Me.DESTINATARIO & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"

.Visible = True
.WindowState = wdWindowStateMaximize

-------
Fico no aguardo. abraços. Marco

.ActiveDocument.SaveAs CurrentDbDir & "\Dados OJ\TodasCertidoes\" & Me.DESTINATARIO & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"

por

.ActiveDocument.SaveAs CurrentProject.Path & "\Dados OJ\TodasCertidoes\" & Me.DESTINATARIO & " " & Format(Date, "dd-mm-yy") & "_" & Format(Now, "hhmm") & ".doc"

CurrentProject.Path Significa que irá Jogar na Pasta que esta o Aplicativo... (Pasta onde esta o Aplicativo\Dados OJ\TodasCertidoes\...)

Pode trocar o CurrentProject.Path pela unidade do Disco, (.ActiveDocument.SaveAs "D:\Dados OJ\TodasCertidoes\...)

Agora quanto a salvar no Pendrive e complicado, pois a cada Maquina a Letra do Pendrive muda... Podendo ser F:, G:, H:... então complica...


Quanto a Rodar direto no Pendrive, devera funcionar normalmente, MAS NÃO RECOMENDO, pois Pen drivers costumam dar problemas mais fácil do que HD, e poderá perder seu Aplicativo...

Obrigado pelo retorno.
Editarei esta linha de comando conforme acima especificado.
Outra dúvida: para buscar o modelo da certidão a ser gerada, ela está conforme segue:
' Abre documento base/modelo
.Documents.Open ("C:\Dados OJ\NaoApagar\ModeloCertidao.doc")

ela pode ser buscada no mesmo diretório do BD, com o mesmo indicador acima "Corrente Projeto"?

Sim... CurrentProject.Path significa, a onde esta o BD... (tradução livre) rererererererere

.Documents.Open (CurrentProject.Path & "\Dados OJ\NaoApagar\ModeloCertidao.doc")

Valeu. Obrigado pela ajuda.
Resolveu minha dúvida.
Tal questionamento, foi em razão de que o BD que desenvolvi (como o mínimo conhecimento em Access), com bastante ajuda deste Forum, é feito para os usuários finais, no caso Oficiais de Justiça, que precisam rodar o BD no pendrive, uma vez que tanto em casa como o Forum, utilizam do BD, e suas certidões devem ser geradas com o propósito principal de serem impressas, não sendo prioritário salvar estas certidões. Mas tens alguns que sempre salvam, até mesmo para terem um retorno, do que aconteceu no cumprimento de mandados para o mesmo destinatário (as partes).
Do jeito que estava, eles só poderiam utilizar no PC que tivesse as pastas previamente criadas. e pelo fato de usarem qualquer computador que esteja disponível no Forum, ficaria difícil terem certidões espalhadas em todos os PCs.
mais uma vez. Obrigado e bom final de semana. E a proposito eu sou um dos que usam este BD, nas horas vagas aquela é minha outra profissão.

Que bom que chegamos so um resultado que vc esperava... Nesse seu caso e mais aconselhado mesmo dessa forma, fica mais versatil, podeno usuario mover a pasta com BD pra outo lugar e tudo continuara funcionando.

Não querendo abusar, mas já abusando.
Surgiu um imprevisto, com os comandos anteriores, eu tinha um botão para abrir o local das Certidões salvas, como abaixo:

Private Sub AbreLocalCertidoes_Click()
Shell "C:\WINDOWS\explorer.exe """ & "\Dados OJ\TodasCertidoes\" & "", vbNormalFocus
End Sub

Agora, que eles estariam sendo salvas no pendrive na mesma pasta \Dados OJ\TodasCertidões\

tem como abrir pelo comando de botão? qual seria o caminho, prevendo que a letra do disco Pendrive é variável de máquina para máquina

Olha, assim funciona...
No Click do botao coloque:

Dim objWord As Object
Dim doc As Object
Set objWord = CreateObject("Word.Application")
Set doc = objWord.Documents.Open(CurrentProject.Path & "\Nova Pasta\1.docx")
objWord.Visible = True


Mas tente adaptar o Seu, pois sao menos Linhas... Se nao der certo use este que postei.

Acabei postando foi o comando pra abrir o Arquivo...
Pra abrir a pasta
Shell "C:\WINDOWS\explorer.exe """ & CurrentProject.Path & "\Dados OJ\TodasCertidoes\" & "", vbNormalFocus

Funcionou.... tava quebrando a cabeça...
Comecei no Access na data de meu cadastro aqui.
Não tinha percebido que o outro comando não era o especifico para meu pretexto.
Este comando que passastes agora, funcionou perfeitamente.
Agradeço...agradeço...
Ótima semana.