Откройте документ Word и сохраните его в другой папке с помощью VBScript

Question

У меня есть рабочий код, который программно открывает текстовый документ с использованием vbscript, вносит изменения, затем сохраняет тот же документ и закрывает тот же документ.

Можно ли сделать то же самое, но сохранить документ в другой папке и закрыть оба экземпляра слова? Я немного изменил свой исходный код, но он только закрыл второй экземпляр документа Word, который был сохранен.

Очевидно, слово думает, что если я сохраняю в другую папку, ему нужно 2 экземпляра документа. Это мой оригинальный код:

Set objDoc = objWord.Documents.Open(objFile.Path)
'modify the document.
etc...

objDoc.SaveAs objFSO.BuildPath(strDirectory, objFSO.GetFileName(objFile.Path))
objDoc.Close

это прекрасно работает для одного документа. Затем все, что я изменил, это добавление еще одного каталога для записи вместо исходного:

objDoc.SaveAs objFSO.BuildPath(strDirectory & saveDir,  objFSO.GetFileName(objFile.Path))

и в итоге у меня открылись два идентичных текстовых документа, и когда я закрыл один, который сохранял, другой остался открытым.

Есть ли простой способ сделать это?

Спасибо

Джеймс

Answer 1

Может быть лучше сохранить документ word в исходной папке, а затем написать дополнительный код, чтобы переместить его в другое место, возможно, используя FileSystemObject.MoveFile. Не полагайтесь на функциональность Word «Сохранить как», чтобы сделать это - как вы заметили, вы получите неприятный побочный эффект.