Question

嗨，我有一个Word文件，可以使用VBA更改表。每次更改后，我都希望使用这些更改保存一个新文件。这样，我有10个副本和10个不同的表。

但是目前，当我执行下面的代码时，它退出了原始代码，从而退出了循环。 Excel具有Word所没有的SaveCopyAs方法。有什么方法可以解决此问题？

Documents.Add.SaveAs2文件名：=（“” C：\ Users \ XXX \ Downloads \ Baby 淋浴台游戏_更新_“＆x＆” .docm“）

Answer 1

下面的代码演示了您需要了解的内容。

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

Answer 2

也许您应该使用FileCopy而不是.SaveAs。

Word VBA-保存多个文件

2 个答案: