Prev: VBA to save an image from the web
Next: Writing a macro to delete specific lines from a large Word document
From: robbieg on 24 Mar 2010 08:26
I have about 150 sets of 8 single page word documents that I want to merge
into single documents. Any ideas?
(i.e. I will end of with 150 documents each with 8 pages).

Thanks

From: Graham Mayor on 24 Mar 2010 08:31
See http://www.gmayor.com/individual_merge_letters.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


"robbieg" <robbieg(a)discussions.microsoft.com> wrote in message
news:B977C37A-0C1E-4A68-AB18-C7BD48559C6D(a)microsoft.com...
>I have about 150 sets of 8 single page word documents that I want to merge
> into single documents. Any ideas?
> (i.e. I will end of with 150 documents each with 8 pages).
>
> Thanks
>


From: robbieg on 26 Mar 2010 05:06
Thank you Graham. I don't think your add-in does I am am needing though.

I want to do the equivalent of 'Insert File' , eight times; and I want to do
that 150 times.

All the docs use the same style sheet - it is possible to concatenate Word
documents?

Thanks

RobbieG



"Graham Mayor" wrote:

> See http://www.gmayor.com/individual_merge_letters.htm
>
> --
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Graham Mayor - Word MVP
>
> My web site www.gmayor.com
> Word MVP web site http://word.mvps.org
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>
>
> "robbieg" <robbieg(a)discussions.microsoft.com> wrote in message
> news:B977C37A-0C1E-4A68-AB18-C7BD48559C6D(a)microsoft.com...
> >I have about 150 sets of 8 single page word documents that I want to merge
> > into single documents. Any ideas?
> > (i.e. I will end of with 150 documents each with 8 pages).
> >
> > Thanks
> >
>
>
> .
>
From: Graham Mayor on 26 Mar 2010 11:10
It should be possible provided you can identify a means whereby the macro
can identify which eight documents are to be saved in which or the 150
files.
Or do you simply want to make 150 copies of the *same* eight documents, in
which case http://www.gmayor.com/Boiler.htm will join the documents into one
file, then you can use the following macro to create 150 versions of it. You
will need to change the path and filename lines

sPath = "D:\My Documents\Test\Merge\"
sFileName = "Filename

to reflect the path and filename you wish to use. The filename will have (1)
to (150) added in brackets before the extension.
If you want to save in Word 2007 format change doc to docx.

Sub Save150Copies()
Dim i As Long
Dim sFileName As String
Dim sPath As String
sPath = "D:\My Documents\Test\Merge\"
sFileName = "Filename"
With ActiveDocument
For i = 1 To 150
.SaveAs sPath & sFileName & _
"(" & i & ").doc", _
Addtorecentfiles:=False
Next i
End With
End Sub

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


"robbieg" <robbieg(a)discussions.microsoft.com> wrote in message
news:7FD33154-5326-47F1-8FD4-2C522885BEF2(a)microsoft.com...
> Thank you Graham. I don't think your add-in does I am am needing though.
>
> I want to do the equivalent of 'Insert File' , eight times; and I want to
> do
> that 150 times.
>
> All the docs use the same style sheet - it is possible to concatenate Word
> documents?
>
> Thanks
>
> RobbieG
>
>
>
> "Graham Mayor" wrote:
>
>> See http://www.gmayor.com/individual_merge_letters.htm
>>
>> --
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>> Graham Mayor - Word MVP
>>
>> My web site www.gmayor.com
>> Word MVP web site http://word.mvps.org
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>
>>
>> "robbieg" <robbieg(a)discussions.microsoft.com> wrote in message
>> news:B977C37A-0C1E-4A68-AB18-C7BD48559C6D(a)microsoft.com...
>> >I have about 150 sets of 8 single page word documents that I want to
>> >merge
>> > into single documents. Any ideas?
>> > (i.e. I will end of with 150 documents each with 8 pages).
>> >
>> > Thanks
>> >
>>
>>
>> .
>>


From: robbieg on 1 Apr 2010 13:19
Thank you Graham. Sorry to be unclear.
There are 150 sets of 8 documents to join together. Each document is 1 page
long. They all use the same style sheet. So I would end up with 150
(different) documents each being 8 pages long.
I can put the 8 single pages into the same directory. Then I would have 150
directories, each with 8 docs in. Is that a bit clearer??
Thanks

"Graham Mayor" wrote:

> It should be possible provided you can identify a means whereby the macro
> can identify which eight documents are to be saved in which or the 150
> files.
> Or do you simply want to make 150 copies of the *same* eight documents, in
> which case http://www.gmayor.com/Boiler.htm will join the documents into one
> file, then you can use the following macro to create 150 versions of it. You
> will need to change the path and filename lines
>
> sPath = "D:\My Documents\Test\Merge\"
> sFileName = "Filename
>
> to reflect the path and filename you wish to use. The filename will have (1)
> to (150) added in brackets before the extension.
> If you want to save in Word 2007 format change doc to docx.
>
> Sub Save150Copies()
> Dim i As Long
> Dim sFileName As String
> Dim sPath As String
> sPath = "D:\My Documents\Test\Merge\"
> sFileName = "Filename"
> With ActiveDocument
> For i = 1 To 150
> .SaveAs sPath & sFileName & _
> "(" & i & ").doc", _
> Addtorecentfiles:=False
> Next i
> End With
> End Sub
>
> --
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Graham Mayor - Word MVP
>
> My web site www.gmayor.com
> Word MVP web site http://word.mvps.org
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>
>
> "robbieg" <robbieg(a)discussions.microsoft.com> wrote in message
> news:7FD33154-5326-47F1-8FD4-2C522885BEF2(a)microsoft.com...
> > Thank you Graham. I don't think your add-in does I am am needing though.
> >
> > I want to do the equivalent of 'Insert File' , eight times; and I want to
> > do
> > that 150 times.
> >
> > All the docs use the same style sheet - it is possible to concatenate Word
> > documents?
> >
> > Thanks
> >
> > RobbieG
> >
> >
> >
> > "Graham Mayor" wrote:
> >
> >> See http://www.gmayor.com/individual_merge_letters.htm
> >>
> >> --
> >> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> >> Graham Mayor - Word MVP
> >>
> >> My web site www.gmayor.com
> >> Word MVP web site http://word.mvps.org
> >> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> >>
> >>
> >> "robbieg" <robbieg(a)discussions.microsoft.com> wrote in message
> >> news:B977C37A-0C1E-4A68-AB18-C7BD48559C6D(a)microsoft.com...
> >> >I have about 150 sets of 8 single page word documents that I want to
> >> >merge
> >> > into single documents. Any ideas?
> >> > (i.e. I will end of with 150 documents each with 8 pages).
> >> >
> >> > Thanks
> >> >
> >>
> >>
> >> .
> >>
>
>
> .
>
 |  Next  |  Last
Pages: 1 2
Prev: VBA to save an image from the web
Next: Writing a macro to delete specific lines from a large Word document