Vba 在会话之间使用递增变量复制文件

我有一个代码，当它是一个Excel文件时，它可以完美地工作。 我想知道如何对docx文件执行相同的操作

这是我的EXCEL代码，我想要相同的，但对于word文档。 由于word中没有单元格，下面的代码显然无法用于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

---

如果宿主应用程序是Word，则单元格（1,1）.值将不起作用，因为它是对Excel单元格对象的引用。它还告诉您不带工作簿的单元格。工作表。资格是不好的做法。如果您的宿主应用程序是Excel，则只需更改。xlsm到适当的位置。你想复制的word文件类型。我知道。我就是这么说的。我知道单元格值不起作用，因为它是对Excel的引用。我想问的是，我可以替换什么使其适用于Word文档。您可以将变量值存储在文档变量中：或自定义文档属性：您可能需要查看Graham Mayor关于Word文档编号的页面，以及发票编号。看见