I work in a law firm where I am frequently asked if there
is a way to insert a PDF file to the end of a Word
document? I am faced with this question at least once a
month from our users. I've discovered I can convert the
PDF to individual JPG files, but it's a pain to insert
them into Word (as graphic images) manually page by page
especially if there are numerous pages. Any advice?

Having read your initial requirement and the suggestions made by fellow
contributors, there may be an easier way. Word will not import PDFs, but
your suggestion of converting to graphic format seemed logical and Snag-It
makes it a breeze to output multi-page documents to separate files, by using
its printer driver option to print from Acrobat.

Then provided you have Word set to insert images in line, you can insert all
the produced images in a single operation - as they are full page images,
they will follow one another each to its own page. The only snags I can see
are that the images will shrink to the current margins and because of a bug
in Windows Explorer, the first image will often be placed last, so needs
moving. This can be eliminated by selecting the images in reverse order in
the insert picture dialog.

Playing around with this, I began a simple macro that inserts a section
break, resets the margins of the new section and inserts the images in
order. You will probably get a margin error when you try to print the file,
but as the minimum margins are printer dependent, I can do nothing about
this without access to the printer. Fix the margins and make the changes in
the macro.

The macro uses the default SnagIt file names - and a folder c:\temp. These
are of course changeable.

Sub InsertImages()
Selection.InsertBreak Type:=wdSectionBreakNextPage
With Selection.PageSetup
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(0)
.BottomMargin = CentimetersToPoints(0)
.LeftMargin = CentimetersToPoints(0)
.RightMargin = CentimetersToPoints(0)
End With
Count = 0
Do
On Error GoTo oops
sFile = "C:\Temp\Allfiles-000" & Count & ".jpg"
Selection.InlineShapes.AddPicture FileName:=sFile
Count = Count + 1
Loop
oops:
End Sub


--

Graham Mayor - Word MVP

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




Holly wrote:
I work in a law firm where I am frequently asked if there
is a way to insert a PDF file to the end of a Word
document? I am faced with this question at least once a
month from our users. I've discovered I can convert the
PDF to individual JPG files, but it's a pain to insert
them into Word (as graphic images) manually page by page
especially if there are numerous pages. Any advice?

...just to add to this..I inserted a pdf as an object and it gave me an icon
linked to the pdf document. Is there anyway I can edit that picture so that
it reads the name of the document..just curious?

Thank you.

"Graham Mayor" wrote in message
...
Having read your initial requirement and the suggestions made by fellow
contributors, there may be an easier way. Word will not import PDFs, but
your suggestion of converting to graphic format seemed logical and Snag-It
makes it a breeze to output multi-page documents to separate files, by
using
its printer driver option to print from Acrobat.

Then provided you have Word set to insert images in line, you can insert
all
the produced images in a single operation - as they are full page images,
they will follow one another each to its own page. The only snags I can
see
are that the images will shrink to the current margins and because of a
bug
in Windows Explorer, the first image will often be placed last, so needs
moving. This can be eliminated by selecting the images in reverse order in
the insert picture dialog.

Playing around with this, I began a simple macro that inserts a section
break, resets the margins of the new section and inserts the images in
order. You will probably get a margin error when you try to print the
file,
but as the minimum margins are printer dependent, I can do nothing about
this without access to the printer. Fix the margins and make the changes
in
the macro.

The macro uses the default SnagIt file names - and a folder c:\temp.
These
are of course changeable.

Sub InsertImages()
Selection.InsertBreak Type:=wdSectionBreakNextPage
With Selection.PageSetup
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(0)
.BottomMargin = CentimetersToPoints(0)
.LeftMargin = CentimetersToPoints(0)
.RightMargin = CentimetersToPoints(0)
End With
Count = 0
Do
On Error GoTo oops
sFile = "C:\Temp\Allfiles-000" & Count & ".jpg"
Selection.InlineShapes.AddPicture FileName:=sFile
Count = Count + 1
Loop
oops:
End Sub


--

Graham Mayor - Word MVP

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




Holly wrote:
I work in a law firm where I am frequently asked if there
is a way to insert a PDF file to the end of a Word
document? I am faced with this question at least once a
month from our users. I've discovered I can convert the
PDF to individual JPG files, but it's a pain to insert
them into Word (as graphic images) manually page by page
especially if there are numerous pages. Any advice?

G'Day ~D~,

Right-Click the Icon
Choose
Adobe Document ObjectConvert...
Click "Change Icon" (button)
choose a New Icon
type a New Caption
(To preserve the Icon, browse to
C:\Program Files
\Adobe
\Acrobat x.x
\Reader
\AcroRd32.exe
and choose the Icon)
--
Regards,
Pat Garard
Melbourne, Australia
_______________________

"~D~" wrote in message
...
..just to add to this..I inserted a pdf as an object and it gave me an
icon
linked to the pdf document. Is there anyway I can edit that picture so
that
it reads the name of the document..just curious?

Thank you.

"Graham Mayor" wrote in message
...
Having read your initial requirement and the suggestions made by fellow
contributors, there may be an easier way. Word will not import PDFs, but
your suggestion of converting to graphic format seemed logical and
Snag-It
makes it a breeze to output multi-page documents to separate files, by
using
its printer driver option to print from Acrobat.

Then provided you have Word set to insert images in line, you can insert
all
the produced images in a single operation - as they are full page images,
they will follow one another each to its own page. The only snags I can
see
are that the images will shrink to the current margins and because of a
bug
in Windows Explorer, the first image will often be placed last, so needs
moving. This can be eliminated by selecting the images in reverse order
in
the insert picture dialog.

Playing around with this, I began a simple macro that inserts a section
break, resets the margins of the new section and inserts the images in
order. You will probably get a margin error when you try to print the
file,
but as the minimum margins are printer dependent, I can do nothing about
this without access to the printer. Fix the margins and make the changes
in
the macro.

The macro uses the default SnagIt file names - and a folder c:\temp.
These
are of course changeable.

Sub InsertImages()
Selection.InsertBreak Type:=wdSectionBreakNextPage
With Selection.PageSetup
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(0)
.BottomMargin = CentimetersToPoints(0)
.LeftMargin = CentimetersToPoints(0)
.RightMargin = CentimetersToPoints(0)
End With
Count = 0
Do
On Error GoTo oops
sFile = "C:\Temp\Allfiles-000" & Count & ".jpg"
Selection.InlineShapes.AddPicture FileName:=sFile
Count = Count + 1
Loop
oops:
End Sub


--

Graham Mayor - Word MVP

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




Holly wrote:
I work in a law firm where I am frequently asked if there
is a way to insert a PDF file to the end of a Word
document? I am faced with this question at least once a
month from our users. I've discovered I can convert the
PDF to individual JPG files, but it's a pain to insert
them into Word (as graphic images) manually page by page
especially if there are numerous pages. Any advice?

Thanks Pat!

"Pat Garard" apgarardATbigpondDOTnetDOTau wrote in message
...
G'Day ~D~,

Right-Click the Icon
Choose
Adobe Document ObjectConvert...
Click "Change Icon" (button)
choose a New Icon
type a New Caption
(To preserve the Icon, browse to
C:\Program Files
\Adobe
\Acrobat x.x
\Reader
\AcroRd32.exe
and choose the Icon)
--
Regards,
Pat Garard
Melbourne, Australia
_______________________

"~D~" wrote in message
...
..just to add to this..I inserted a pdf as an object and it gave me an
icon
linked to the pdf document. Is there anyway I can edit that picture so
that
it reads the name of the document..just curious?

Thank you.

"Graham Mayor" wrote in message
...
Having read your initial requirement and the suggestions made by fellow
contributors, there may be an easier way. Word will not import PDFs,
but
your suggestion of converting to graphic format seemed logical and
Snag-It
makes it a breeze to output multi-page documents to separate files, by
using
its printer driver option to print from Acrobat.

Then provided you have Word set to insert images in line, you can
insert
all
the produced images in a single operation - as they are full page
images,
they will follow one another each to its own page. The only snags I can
see
are that the images will shrink to the current margins and because of a
bug
in Windows Explorer, the first image will often be placed last, so
needs
moving. This can be eliminated by selecting the images in reverse order
in
the insert picture dialog.

Playing around with this, I began a simple macro that inserts a section
break, resets the margins of the new section and inserts the images in
order. You will probably get a margin error when you try to print the
file,
but as the minimum margins are printer dependent, I can do nothing
about
this without access to the printer. Fix the margins and make the
changes
in
the macro.

The macro uses the default SnagIt file names - and a folder c:\temp.
These
are of course changeable.

Sub InsertImages()
Selection.InsertBreak Type:=wdSectionBreakNextPage
With Selection.PageSetup
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(0)
.BottomMargin = CentimetersToPoints(0)
.LeftMargin = CentimetersToPoints(0)
.RightMargin = CentimetersToPoints(0)
End With
Count = 0
Do
On Error GoTo oops
sFile = "C:\Temp\Allfiles-000" & Count & ".jpg"
Selection.InlineShapes.AddPicture FileName:=sFile
Count = Count + 1
Loop
oops:
End Sub


--

Graham Mayor - Word MVP

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




Holly wrote:
I work in a law firm where I am frequently asked if there
is a way to insert a PDF file to the end of a Word
document? I am faced with this question at least once a
month from our users. I've discovered I can convert the
PDF to individual JPG files, but it's a pain to insert
them into Word (as graphic images) manually page by page
especially if there are numerous pages. Any advice?