Thread: [Solved] Insert paragraph break before images
View Single Post
 
Old 02-24-2015, 04:32 PM
Guessed's Avatar
Guessed Guessed is offline Windows 7 32bit Office 2010 32bit
Expert
  
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,158
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default
Assuming the graphics are placed inline, the following macro would do it
Code:
Sub AddParasBeforeImages()
  Dim aPict As InlineShape
  For Each aPict In ActiveDocument.InlineShapes
    aPict.Range.Paragraphs(1).Range.InsertBefore vbCr
  Next aPict
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote