Word VBA - Сохранить несколько файлов

Question

Привет У меня есть файл слов, который вносит изменения в таблицу с помощью VBA.После каждого изменения я хотел бы сохранить новый файл с этими изменениями.Таким образом, у меня есть 10 копий с 10 различными таблицами.

Но в настоящее время, когда я выполняю приведенный ниже код, он выходит из оригинала и тем самым выходит из цикла.В Excel есть метод SaveCopyAs, которого нет в Word.Есть ли способы обойти это?

Documents.Add.SaveAs2 FileName: = ("C: \ Users \ XXX \ Downloads \ Baby Shower Table Games_Updated_" & x & ".docm")

Answer 1

Может быть, вы будете использовать FileCopy вместо .SaveAs.

Answer 2

Код ниже демонстрирует, что вам нужно знать.

Sub test()

Dim my_doc                      As Word.Document
Dim my_index                    As Long
Dim my_initial_name             As String

    Set my_doc = ActiveDocument

    my_initial_name = my_doc.FullName

    For my_index = 1 To 10
        '<OTHER ACTIONS BEFORE SAVING>
        my_doc.SaveAs2 FileName:="C:\Users\XXX\Downloads\Baby Shower Table Games_Updated_" & CStr(my_index) & ".docm"
    Next

    my_doc.SaveAs2 FileName:=my_initial_name

End Sub