Una famiglia di prodotti software per l'elaborazione di testo Microsoft per la creazione di documenti Web, messaggi di posta elettronica e stampa.
Prova questo vbscript:
Const OverwriteExisting = True
Set obj = CreateObject("Scripting.FileSystemObject")
For lng = 1000 To 1500
On Error Resume Next
obj.CopyFile "C:\MiaCartella\MioDocumento.docx", _
"C:\MiaCartella\Pratica " & lng & "", _
OverwriteExisting
obj.MoveFile "C:\MiaCartella\Pratica " & lng & "\MioDocumento.docx", _
"C:\MiaCartella\Pratica " & lng & "\Allegato Proposta " & lng & ".docx"
Next