COMMONDIALOG

GUGU4700 19/04/2013 15:48:30
#422196

Galera,
Preciso de ajuda, como faço para colocar o nome do meu arquivo, no campo de nome no CommonDialog, qual o caminho, pois tenho que gerar uma proposta em word, e gravar com o nome de cada cliente que solicitar, estou colocando assim:

Sub G
[ô]Rotina para abrir a caixa de diálogo e salvar o arquivo
Dim pathArq As String

CDialogo.filter = [Ô]Documento do Word (*.doc)|*.doc[Ô]
CDialogo Documents([Ô] & TxtCotação.Text & [Ô] - [Ô] & TxtAno.Text & [Ô] - [Ô] & TxtEmpresa.Text & [Ô] - [Ô] & TxtData.Text[Ô])
pathArq = CDialogo.Filename

If Trim(pathArq) <> [Ô][Ô] Then
Open pathArq For Output As #1
Print #1, Text1
Close #1
MsgBox [Ô]Arquivo salvo com sucesso![Ô], vbInformation, [Ô]Salvar arquivo[Ô]
End If
end sub