I guess I am a novice since I usually just modify captures. I would have thought this would set H4 to hold the unformatted text of the previous Heading 4, but it just gives a null set when I step through it after selecting an inline shape.
Can you help?

Dim H4 As String
With Selection.Find
.Style = wdStyleHeading4
.Forward = False
.ClearFormatting
.Wrap = wdFindStop
.Execute
H4 = Selection.Text
End With