I did try SendKeys (not reliable and changes NumLock)
I tried .Update in several places in the InsertCrossReferenceFigure macro and it didn't seem to make any difference, the ReferenceKind was remembered
Macro2 is recorded with my choices and can be run correctly every time, BUT I can't select the item to cross reference, so it really doesn't help
Sub InsertCrossReferenceFigure()
Dim oDialog As Dialog
Selection.Collapse
'https://msdn.microsoft.com/en-us/library/office/ff845471.aspx
'ReferenceType , ReferenceKind, ReferenceItem, InsertAsHyperLink, InsertPosition, SeparateNumbers, SeparatorCharacters
Set oDialog = Application.Dialogs(wdDialogInsertCrossReference)
With oDialog
.ReferenceType = "Figure"
.ReferenceKind = wdOnlyLabelAndNumber
.InsertAsHyperlink = 0
.Show
End With
End Sub
Sub Macro2()
Selection.InsertCrossReference ReferenceType:="Figure", _
ReferenceKind:=wdOnlyLabelAndNumber, _
ReferenceItem:="1", InsertAsHyperlink:=False, _
IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
End Sub