Word Salvar .doc no mesmo diretorio do arquivo do excel

[Jvitorino1007]

Bom dia, tenho um programa no VBA que gera um arquivo no Word, e no momento ele está salvando em uma pasta especifica, no caso precisa que esse documento fosse salvo na mesma pasta em que a macro está salva . Alguém poderia me ajudar por gentileza? Já tentei algumas coisa mas nada deu certo.

 

Dim word
Dim doc
Dim StrFile As String, strFolder As String
Set word = CreateObject("Word.Application")
word.Visible = True

Set doc = word.Documents.Add(ThisWorkbook.Path & "\Carta_Padrão.doc")
With doc
'*Dados fornecedor
.FormFields("dia").Range = dia.Text
.FormFields("mes").Range = mes.Text
.FormFields("ano").Range = ano.Text
.FormFields("Distribuidora").Range = Distribuidora.Text
.FormFields("Subestação").Range = Subestação.Text
.FormFields("Distribuidora1").Range = Distribuidora1.Text
.FormFields("numero").Range = numero.Text
.FormFields("BAY").Range = BAY.Text
.FormFields("se1").Range = se1.Text
.FormFields("codigo").Range = codigo.Text
.FormFields("Distribuidora2").Range = Distribuidora2.Text

.FormFields("dias").Range = dias.Text
.FormFields("meses").Range = meses.Text
.FormFields("anos").Range = anos.Text
.FormFields("anoatualizado").Range = anoatualizado.Text

.SaveAs ("Z:\TOPE\23-Sistemas_de_Medição\_Medição de Faturamento\Concessionárias\TESTE\Carta_de_pré_aprovação - " & Subestação & "_" & BAY & ".docx ")

 

word.Quit

Set word = Nothing
Set doc = Nothing

End With
MsgBox "Dados Gerados com Sucesso", vbInformation, "INFORMAÇÃO"

Unload Me

[Basole]

Altere esta linha desta forma:

 

.SaveAs (ThisWorkbook.Path & "\Carta_de_pré_aprovação - " & Subestação & "_" & BAY & ".docx ")

 

[Jvitorino1007]

@Basole Boa tarde, funcionou perfeitamente. Tem um porém, os computadores que tem o modo protegido não deixa o documento do Word ser aberto para preencher, teria algum código para fazer essa tarefa sozinho? Desde já agradeço pela ajuda

[Basole]

@Jvitorino1007 é necessário mais informacões sobre o tipo de bloqueio tem determinado arquivo.

 

 Através de uma instrução vba é possivel alterar os atributos de um arquivo.

Mas isso vai contra a politica da empresa. Sugiro consultar o departamento de TI, quanto a essas restricões.

 

 

[Jvitorino1007]

@Basole boa tarde, na verdade seria o modo protegido do Word, quando habilitado não permite o preenchimendo do arquivo gerando o erro '5981', tentei alguns códigos mas sem sucesso. Quando desabilitado funciona normalmente.