Имя файла SaveAs с новым форматом в текущей папке

Question

Я установил следующий макрос в шаблоне Word, чтобы сохранить файл в том месте, где текущий шаблон сохраняется, но в подпапке с новым именем и файловым форматом. Каждый раз, когда я запускаю макрос, я получаю ошибку «Command failed».

Вот мой код:

pathName = ActiveDocument.Path & "\Periodic Count\CaseManager_CSV.txt" 
ActiveDocument.SaveAs fileName:=pathName, FileFormat:=wdFormatText 

Answer 1

Я думаю, что причина вашей проблемы проистекает из неспасенного документа, который не имеет пути. В результате ваше значение pathName variable таково: "\Periodic Count\CaseManager_CSV.txt" что-то неверное.

Как вы упомянули, вы хотите сохранить в подпапках папки, в которой сохраняется ваш шаблон. Возможно, вам следует изменить pathName variable таким образом:

pathName = ActiveDocument.AttachedTemplate.Path & "\Periodic Count\CaseManager_CSV.txt"