Batch-Insert for Master Doc -- code not working

M

mikewill4

I found this code in an earlier thread, posted by Doug Robbins, to
batch add files to a master document, and I'm getting a syntax error.
Can someone please help? Using Word 2003 SP2.

-------------------------
Dim Source as Document, Target as Document, i as Integer

Set Target = Documents.Add
For i = 1 to 75
Set Source=Documents.Open "[Drive:\Path]" & Format(i, "00") &
".doc"
Target.Range.InsertAfter.Source.Range
Source.Close wdDoNotSaveChanges
Next i

I'm using this line

Set Source = Documents.Open "C:\Documents and Settings\williamsmi\My
Documents\MASSA\PRESS\KIT\" & Format(i, "00") & ".doc"

and getting a Compile error, Expected: End of Statement, with the path
highighted.

THANKS
 
C

Cindy M.

I'm using this line
Set Source = Documents.Open "C:\Documents and Settings\williamsmi\My
Documents\MASSA\PRESS\KIT\" & Format(i, "00") & ".doc"

and getting a Compile error, Expected: End of Statement, with the path
highighted.
Click to expand...
Is it also on two lines in your code module, exactly as I see it in your
message? If you put it on one line, that should help?

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question
or reply in the newsgroup and not by e-mail :)
 
M

mikewill4

In my code it's all on one line. There's no break between "My " and
"Documents" -- I just couldn't figure out how to show that in a post.
 
C

Cindy M.

In my code it's all on one line. There's no break between "My " and
"Documents" -- I just couldn't figure out how to show that in a post.
Click to expand...
No problem - just wanted to eliminate the "obvious" first :)

OK, I think I see it, now. Note the parentheses for all the arguments
following .Open

Set Source = Documents.Open("C:\Documents and Settings\williamsmi\My
Documents\MASSA\PRESS\KIT\" & Format(i, "00") & ".doc")

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question
or reply in the newsgroup and not by e-mail :)
 
Top