Picture properties bug in Word 2010 Macro Recorder

macropod · #2 10-22-2012, 09:13 PM

IMHO, you'd do better to use a 'proper' PDF to Doc conversion package. Be that as it may, if you insert the 'PDF' page image, then immediately run the following macro, it will be resized to the page size and postioned behind the text.

Code:

Sub FormatPDFPage()
Application.ScreenUpdating = False
With Selection
  If .InlineShapes.Count > 0 Then .InlineShapes(1).ConvertToShape
  If .ShapeRange.Count = 0 Then Exit Sub
  With .ShapeRange(1)
    .LockAspectRatio = msoTrue
    .Width = Selection.Sections(1).PageSetup.PageWidth
    If .Height > Selection.Sections(1).PageSetup.PageHeight Then
      .Height = Selection.Sections(1).PageSetup.PageHeight
    End If
    .WrapFormat.Type = wdWrapBehind
  End With
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with Document Properties Prompt Macro	KJJ	Word VBA	14	11-10-2016 08:18 PM
Powerpoint automatically changing picture size when adding a picture (2010)	One_Life	PowerPoint	7	01-20-2012 06:57 AM
WORD Macro - import picture - resize - position - page break - loop	Nano07	Word VBA	2	11-02-2011 05:14 AM
Macro for printer properties	kjk20	Word VBA	6	07-19-2011 06:18 AM
Macro to put content into keywords properties?	erik2000	Word VBA	3	03-05-2010 10:14 PM