Paste in picture, wrap with line, format paragraph before and picture...close to working

ctviggen · #4 03-25-2023, 08:49 AM

Wow, thank you so much! I cannot tell you how much time your contribution and this macro saves me. I do these operations over a hundred times, probably into the hundreds of times per year. The same set of (1)-(5) above, over and over... And the macro recorder does not help, as it doesn't work well with inserted pictures.

I took an online class in VBA, got about 3/4 of the way through it, then decided to start writing code to help me and members of my small company with repetitive tasks. The class was great, for providing a foundation, but doesn't answer the specific questions I have.

If anyone does something similar, I just made an addition to add a new paragraph after picture insertion with a different style. Works great.

Code:

Sub PastePictureAndCenter()
    Dim target As Range
    Set target = Selection.Range
    With target
        .ParagraphFormat.KeepWithNext = True
        .InsertParagraphAfter
        .Move wdParagraph
        .Style = ActiveDocument.Styles("OAR Para No Ind for Picture")
        .Paste
        .InlineShapes(1).Line.Visible = msoTrue
        .Move wdParagraph
        .InsertParagraphAfter
        .Style = ActiveDocument.Styles("OAR Para No Ind")
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Wrap Text Inside Picture	marconexcel	Drawing and Graphics	2	02-02-2018 05:01 PM
Wrap TABLES around picture?	ShankedS	Word Tables	2	11-16-2015 04:27 PM
Format Picture toolbar button not working in Word 2007	WaltR	Word	2	08-19-2015 05:19 PM
How do you paste a graph from Excel into Word as picture without line appearing?	swygant	Word	10	07-01-2014 03:23 PM
"format picture" - arrows show as no line atop picture	marbeth	Word	3	07-08-2011 02:16 PM