The filename is setup in the line:
strVersionName = strPath & "\" & strFile & " - Version " & _
Format(iCount, "00#") & " - " & strDate & ".doc"
You can re-order that to give you the required filename:
strVersionName = strPath & "\" & strFile & " - " & strDate & _
" - Version " & Format(iCount, "00#") & ".doc"
However if you simply change this, the resulting filename will not be
changed as an earlier line
intPos = InStrRev(strFile, " - Version") 'Mark the version number
locates the old version number which allows the macro to strip everything
from this point ready to redefine the filename later.. Version would now be
in the wrong place in the string, so you can change that line to
intPos = InStr(strFile, " - ") 'Mark the version number
(Note the use of InStr rather than InStrRev also)
which will find the first hyphen surrounded by spaces. Note that you cannot
use a hyphen surrounded by spaces in your filenames or the results will be
unpredictable. One of the reasons I used the original order was the hope
that Version would be unique in the filename and could be used as a market
to redefine the filename.
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>