In the time we've spent discussing it, you would be done.
Here is a macro that inserts the caption, as a simple number, over a selected image.
Code:
Sub CaptionAbove()
'
' CaptionAbove Macro
' Insert caption above selected shape
'
Selection.InsertCaption Label:="Figure", TitleAutoText:="", Title:="", _
Position:=wdCaptionPositionAbove, ExcludeLabel:=1
End Sub
Installing Macros
You can attach a macro to a keyboard shortcut or a QAT button.