[Georgio]

Код:

@echo off
goto:#

#####################################
Здесь
расположен
Ваш 1-ый текст!
#####################################
Здесь
расположен
Ваш 2-ой текст!
#####################################
Здесь
расположен
Ваш 3-ий текст!
#####################################
Здесь
расположен
Ваш 4-ый текст!
#####################################
Здесь
расположен
Ваш 5-ый текст!
#####################################
Здесь
расположен
Ваш 6-ой текст!
#####################################
Здесь
расположен
Ваш 7-ой текст!
#####################################
Здесь
расположен
Ваш 8-ой текст!
#####################################
Здесь
расположен
Ваш 9-ый текст!
#####################################

:#
set quantity=9
for %%i in (
 "D:\Work\87\~ ~\1.txt"
 "D:\Work\87\~ ~\2.txt"
 "D:\Work\87\~ ~\3.txt"
 "D:\Work\87\~ ~\4.txt"
 "D:\Work\87\~ ~\5.txt"
 "D:\Work\87\~ ~\6.txt"
 "D:\Work\87\~ ~\7.txt"
 "D:\Work\87\~ ~\8.txt"
 "D:\Work\87\~ ~\9.txt"
 ) do (
 set /a count+=1
 call set %%count%%=%%i
 )

for /l %%i in (1 1 %quantity%) do (
 set /p="WScript.Echo(Split(WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("%~fs0").ReadAll(), vbCrLf&"#####################################"&vbCrLf)(%%i))"<nul>.vbs
 for /f "delims=" %%j in ('
  call echo %%%%i%%
 ') do (
  cscript //nologo .vbs| clip
  for /l %%i in (1 1 5000) do (
   pause<nul>nul
   )
  mshta "vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(ClipboardData.GetData("text"))&Close()">%%j
  )
 )
del .vbs

exit /b