Splitting Out PDFs

4mysanity · #1 12-03-2012, 07:46 AM

Hey Pal,

Sorry for the late response. Thanks for the correction in code. Yeah the beginning part isn't necessary to worry about.

Your code worked! The only thing, is it inserted the picture the way I described, except it inserted after the first sentence of the paragraph. (See attached photo for an example)

citgo.pdf

The image appears below the guys name "001 Joe Smith Process Engineer", it should be above the guy's name. Any idea why that might be?

Thanks again for your help!

macropod · #2 12-03-2012, 03:27 PM

Quote:

Originally Posted by 4mysanity

The image appears below the guys name "001 Joe Smith Process Engineer", it should be above the guy's name. Any idea why that might be?

Because that's how I coded it. It wasn't clear from your previous posts that you wanted the image above the name. To put it above the name, change the With Rng ... End With block to:

Code:

      With Rng
        .Collapse wdCollapseStart
        .InsertBefore Chr(12) & vbCr
        .MoveStart wdCharacter, 1
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
      End With

4mysanity · #3 12-03-2012, 03:38 PM

Thanks Pal!

Just a quick question, seems to work, sort of, I executed the Macro and got an error on this line

Code:

.SaveAs2 FileName:=sPath & Str & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False

But then I reset the project, executed the Macro and it worked perfectly. Then I tried testing it one more time, then got an error on this line (which is 12 lines up from the end of the End Sub command:

Code:

Rng.Copy

any idea why that might be? I thought it had something to do with the desination folder I was saving in, but that wasn't it.

4mysanity · #4 12-03-2012, 03:44 PM

Nope you know what, its definitely not the Rng.Copy aspect, its the

Code:

.SaveAs2 FileName:=sPath & Str & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False

Closed out of the project, re-opened it, tested it again, and it was that lineVBA editor highlighted.

Sorry for the second post.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Inserted PDFs become Pixelated in Powerpoint	fongchun	PowerPoint	0	11-26-2012 06:24 PM
My Word 2007 doesnt display PDFs correctly	mattk561	Word	8	10-31-2012 08:04 PM
Embedding PDFs in MS Word 2010	chitownbillj	Word	1	06-30-2012 12:01 AM
Creating High Quality PDFs from Word 2010	BrazzellMarketing	Word	11	01-27-2012 01:06 PM
Converting Powerpoint into Fully Accessable PDFs	KCD123	PowerPoint	4	09-28-2011 10:03 AM