Batch: Word Datei kopieren und umbennen

$BasicName="File_"  

$Datei = Get-ChildItem -path "*.txt" | Where-Object {!$_.PSIsContainer}  

For ($i=1;$i -lt 10;$i++) {
	$AktuellerName=$BasicName+"{0:000}" -f $i+$Datei.Extension # "{0:000}" -f $i --> Index i wird mit führenden Nullen (hier 3) ausgegeben und in einen String konvertiert  
	Copy-Item -Path $Datei.Fullname $AktuellerName  # $Datei enthält Dateiname mit vollen Pfad, $AktuellerName nur den neuen Dateinamen!
}

@echo off & setlocal EnableDelayedExpansion
cls
:: Datei und Anzahl entsprechend anpassen
set "Datei=users.txt"  
set "Anzahl=5"  

for /f "delims=" %%i in ('dir /b "%Datei%"') do (  
    set "DateiName=%%~ni"  
    echo DateiName: !DateiName!
    for /l %%n in (1,1,%Anzahl%) do (
        set cnt=%%n
        echo copy "%%i" "!DateiName!_!cnt!%%~xi"  
    )
)
pause

Name1
Name2
Name3
...
..

$datei = 'C:\mydocument.docx'  
$targetfolder = 'C:\zielordner'  
$liste = 'C:\liste.txt'  
gc $liste | %{copy-item $datei -Destination "$targetfolder\$_.docx"}  

@echo off
set "datei=C:\mydocument.docx"  
set "targetfolder=C:\zielordner"  
set "liste=C:\liste.txt"  
for /f "usebackq delims=" %%a  in ("%liste%") do copy "%datei%" "%targetfolder%\%%a.docx"  

Sub DokumentKopieren()
    Const DATEI = "C:\mydocument.docx"  
    Const TARGETFOLDER = "C:\zielordner"  
    for each cell in Sheets(1).Range("A1:A200")  
        FileCopy DATEI, TARGETFOLDER & "\" & cell.Value & ".docx"  
    next
End Sub