Sub Macro1()
Dim oSource As Document
Dim oTarget As Document
Dim i As Long
Dim j As Long
    If Documents.Count = 0 Then
        MsgBox "No document open!"
        GoTo lbl_Exit
    End If
    'Define the document to be processed
    Set oTarget = ActiveDocument
    'Open the source document
    Set oSource = Documents.Open(ThisDocument.FullName)

    'Find the shape that fits the criteria
    For j = 1 To oSource.InlineShapes.Count
        If oSource.InlineShapes(j).AlternativeText = " FIGURE_STYLE" Then
            oSource.InlineShapes(j).Select
            Selection.CopyFormat
            Exit For
        End If
    Next
    'Close the template
    oSource.Close 0
    'Find the shape to process
    For i = 1 To oTarget.InlineShapes.Count
        If oTarget.InlineShapes(i).Type = wdInlineShapePicture Then
            oTarget.InlineShapes(i).Select
            Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Selection.PasteFormat
        End If
    Next i
lbl_Exit:
    Set oSource = Nothing
    Set oTarget = Nothing
    Exit Sub
End Sub