This example returns the width of the inline shape associated with the first field in the active document. For this example to work, the field must be an INCLUDEPICTURE field.
If ActiveDocument.Fields(1).Type = wdFieldIncludePicture Then
MsgBox ActiveDocument.Fields(1).InlineShape.Width
End If