I need to combine two Word 2010 macros

[BNystrom]

I have two macros:
- One that is a simple paste from the clipboard
- The other takes a selected graphic in a document, right aligns it with the column and sets the Text Wrap to "tight".

What I would like is one macro that would paste and align the graphic. Currently, the second macro requires that the item be selected first and I don't know how to do that in VBA. Perhaps there's a simpler way to just apply the attributes I need at the point of pasting the graphic.

Here's what I have currently:

Sub PasteInline()
'
' PasteInline Macro
'
'
Selection.PasteSpecial Placement:=wdInLine
End Sub


Sub RightAlignGraphic()
'
' RightAlignGraphic Macro
'
'



Dim myShape As Shape

If Selection.InlineShapes.Count > 0 Then
Set myShape = Selection.InlineShapes(1).ConvertToShape
ElseIf Selection.ShapeRange.Count > 0 Then
Set myShape = Selection.ShapeRange(1)
Else
MsgBox "Please select a picture first."
Exit Sub
End If

With myShape
.WrapFormat.Type = wdWrapTight
.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
.Left = wdShapeRight
End With
End Sub


I would greatly appreciate any assistance with combining the functionality of these two macros.

Thanks

Brian

[gmayor]

Probably somerthing like

Sub PasteInline()
Dim oRng As Range
Dim oIlShape As InlineShape
Dim oShape As Shape
    Set oRng = Selection.Range
    oRng.Text = ""
    oRng.Paste
    oRng.End = oRng.End + 1
    If oRng.InlineShapes.Count > 0 Then
        Set oIlShape = oRng.InlineShapes(1)
        Set oShape = oIlShape.ConvertToShape
        With oShape
            .WrapFormat.Type = wdWrapTight
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
            .Left = wdShapeRight
        End With
    End If
lbl_Exit:
    Exit Sub
err_Handler:
    Err.Clear
    GoTo lbl_Exit
End Sub

[BNystrom]

Many thanks gmayor, that does exactly what I wanted. Hopefully others will find this helpful, too.

EDIT:
After using it for a while, I added the following line under "With Shape" to uncheck the "Move object with text" box under Layout > Position > Options.

.RelativeVerticalPosition = wdRelativeVerticalPositionPage

This allows free movement of the graphic.