As following, I have written a macro to automate Cross Referencing to Word Curves. When I running the macro, It encounter “Run-time error 4198,. Command failed”, Can anybody Guides me on this issue? (When I first wrote this macro, It worked for a While, But then stopped working)

Sub crosscurve()
Selection.InsertCrossReference ReferenceType:="curve", ReferenceKind:= _
wdOnlyLabelAndNumber, ReferenceItem:=InputBox("what is the number of curve do you want to refer?"), InsertAsHyperlink:=True, _

IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "


End Sub

Multiple issues:
1. There is no such thing as a "curve" Reference Type. See:
Selection.InsertCrossReference method (Word) | Microsoft Docs
WdReferenceType Enum (Microsoft.Office.Interop.Word) | Microsoft Docs
WdCaptionLabelID Enum (Microsoft.Office.Interop.Word) | Microsoft Docs
2. You're missing the required quite characters & line continuation characters here:

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you for your reply. I have created a caption label for my Word curves and Now I want to cross-reference them(curve is label name). I don’t think there be a issue in this process (when I cross reference manually it works. Also as I told in question, even the macro worked for a while, but then stopped working.) The 2th issue ( Line continuation character)doesn't exists in my code. (I had pasted my code in the site in the wrong way, and Now I corrected it)

Your code works on my machine although I did change it to separate the inputbox out
The things I would expect would cause it to fail are:
1. The existence of a 'Curve' caption is at the application level. The presence of some curve instances in a document brought from another machine is not enough to tell Word that the type exists. Have you inserted at least one Curve caption on that machine?
2. Is it sensitive to capitalisation?

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Thank you for your reply. I have found the issue. This code fails because when I insert a caption for my Word curves, sometimes unexpectedly a textbox which is without border and outline and color encompasses the captions. If I solve this problem, I can cross -reference my word curves with this code again.

Ahh, that would likely be caused when you add a caption to a floating (text wrapped) object rather than an inline one.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Ok. I got the point. Thank you very much.