How to Write a macro to automate Cross Refrenceing?

Guessed · #1 04-18-2022, 07:19 PM

Your code works on my machine although I did change it to separate the inputbox out

Code:

Sub crosscurve()
  Dim str As String
  str = InputBox("what is the number of curve do you want to refer?")
  Selection.InsertCrossReference ReferenceType:="curve", ReferenceKind:=wdOnlyLabelAndNumber, _
      ReferenceItem:=str, InsertAsHyperlink:=True, _
      IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
End Sub

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?

soroush.kalantari · #2 04-18-2022, 08:35 PM

Quote:

Originally Posted by Guessed

Your code works on my machine although I did change it to separate the inputbox out

Code:

Sub crosscurve()
  Dim str As String
  str = InputBox("what is the number of curve do you want to refer?")
  Selection.InsertCrossReference ReferenceType:="curve", ReferenceKind:=wdOnlyLabelAndNumber, _
      ReferenceItem:=str, InsertAsHyperlink:=True, _
      IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
End Sub

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?

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can I write a macro in which I Use the Mouse?	Rayroshi	Word VBA	4	09-06-2020 06:28 PM
How to write macro	yoyo4	Excel Programming	1	11-19-2017 11:43 PM
Macro: automate a contract?	1questionman	Word VBA	3	10-17-2017 08:29 PM
Macro to automate changes to slide	Mearsy	PowerPoint	0	08-18-2015 03:29 AM
Can I automate or make a macro for this?	mkoenig	Word VBA	1	01-31-2010 02:47 AM