Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Insert PDF at end of Word document?
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? |
#2
|
|||
|
|||
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? |
#3
|
|||
|
|||
...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? |
#4
|
|||
|
|||
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? |
#5
|
|||
|
|||
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? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I create & merge specific data base & master documents? | New Users | |||
In typing dates in Word, i.e. "January 12" how do you keep the "1. | Microsoft Word Help | |||
WP Delay Code - Word Equiv | Microsoft Word Help | |||
Continuous breaks convert to next page breaks | Microsoft Word Help | |||
macro in word | Microsoft Word Help |