The following is a script I developed years ago for Word 95 - it still works
fine and is the reason my typist uses WORD 95 (no real need to upgrade).
However, as I need to go to ACCESS2002/03 - I am thinking of moving on to
WORD 2002/03 as well.
Am I better off staying with VB Script or will the new macros in the latest
versions of WORD be better?
___The code script basically collects the text from a group of letters
puts/archives it into one file of template "pcopy" tagging each with a date
and then saving the file with a name that includes the current date.
________
Dim wd,n
Dim fso, f, f1, fc, s,h,nn, y, m, d
dim sh, snn, sn, sy, sm, sd
Set wd = CreateObject("word.basic")
wd.FileNew ("pcopy")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("\\p266\c\my documents\practice letters\")
Set fc = f.Files
For Each f1 in fc
n=n+1
s = f1.name
wd.Insert Left(s, Len(s) - 4) + " .. " ' line16
wd.InsertDateTime "d MMM yy .. hh:mm:ss", 0
wd.ParaUp
wd.RightPara
wd.ParaDown
wd.InsertPara
wd.InsertFile "\\p266\c\my documents\practice letters\" + s, , , 0
wd.InsertBreak
Next
wd.editclear -1
y=datepart("yyyy",now)
m=datepart("m",now)
d=datepart("d",now)
h=datepart("h",now)
nn=datepart("n",now)
sy=right(formatnumber(y,0),2)
if m<10 then
sm="0"+ formatnumber(m,0)
else
sm=formatnumber(m,0)
end if
if d<10 then
sd="0"+ formatnumber(d,0)
else
sd=formatnumber(d,0)
end if
if h<10 then
sh="0"+ formatnumber(h,0)
else
sh=formatnumber(h,0)
end if
if nn<10 then
snn="0"+ formatnumber(nn,0)
else
snn=formatnumber(nn,0)
end if
if n<10 then
sn="0"+ formatnumber(n,0)
else
sn=formatnumber(n,0)
end if
wd.FileSaveAs "\\p266\c\my documents\archive\" + sy + sm + sd + "_" +
sh+snn + "_" + sn + ".doc"
wd.FilePrintSetup "Photocopier on Lexnet"
__________
--
John
jrg_REM_SPAM@bigpond.net.au