Word Macro to Select the First Image in DOCX & set its "Style" to Normal

[steve8445]

Can anyone help with a Word VBA Macro to:



Select the First Image in my DOCX & set it's "Style" to Normal ?

Thanks.

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
On Error Resume Next
'Either
ActiveDocument.Shapes(1).Anchor.Style = "Normal"
'or
ActiveDocument.InlineShapes(1).Range.Style = "Normal"
'or
For Each oPar In ActiveDocument.Paragraphs
If ActiveDocument.InlineShapes(1).Range.InRange(oPar.Range) Then
oPar.Range.Font.Reset
oPar.Range.Style = "Normal"
Exit For
End If
Next
lbl_Exit:
Exit Sub

End Sub

[steve8445]

Many thanks for your help.