vba - 在会话之间使用增量变量复制文件

Question

当它是 Excel 文件时，我有一个可以完美运行的代码。我想知道如何对 docx 文件做同样的事情。

这是我的 EXCEL 代码，我想要同样的代码，但需要一个 word 文档。由于 word 中没有 CELLS，因此下面的代码显然不适用于 word。

Sub CopierFichier()

Dim counter_var As String
Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")

counter_var = Cells(1, 1).Value

' copy 
Call fso.CopyFile("C:\Users\chi\Desktop\lead\TABLE.xlsm", "C:\Users\chi\Desktop\Almod\TABLE_COPIE_" + counter_var + ".xlsm")


Cells(1, 1).Value = Cells(1, 1).Value + 1

Workbooks("TABLE.xlsm").Save

End Sub

标签： vbams-word