Why am I getting a "Command failed" error with the following macro? It doesn't like ReferenceItem:="PhotoNum"


Sub PhotoCrossReference()
'Inserts cross reference to photo number input by user

Dim PhotoNum As Integer
PhotoNum = InputBox("Insert photo number", "Photo cross-reference", "1")

'Output cross reference
Selection.InsertCrossReference ReferenceType:="Photo", ReferenceKind:= _
wdOnlyLabelAndNumber, ReferenceItem:="PhotoNum", InsertAsHyperlink:=False, _


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

End Sub

Solved - obviously PhotoNum shouldn't be in quotes haha. Feck how much time did I waste on that LOL

OK next question. The following macro outputs a cross-reference to Photo 14 as per the attached which works nicely and updates when additional photos are inserted. Good start.

I want to insert a reference to just the photo number (not the label and number), i.e. output "Refer 13". Number only is not an option on the attached diaogue cross-reference box. Does that mean it can't be done?

As an aside it would be useful to see a list of all the available ReferenceKind options - is this possible?

All assistance much appreciated...


Sub TestPhotoCrossReference()
'Inserts cross reference to photo number

'Output cross reference
Selection.TypeText Text:="Refer "
Selection.InsertCrossReference ReferenceType:="Photo", ReferenceKind:= _
wdOnlyLabelAndNumber, ReferenceItem:="14", InsertAsHyperlink:=False

Selection.TypeParagraph

End Sub

Attached Images

	zz3.png (1.3 KB, 12 views)
	zz2.png (24.5 KB, 12 views)

The way that Cross References actually work is that they require a bookmarked range first and then the crossRef is simply a field that points at that bookmarked range.

The Insert Cross Reference dialog doesn't provide an option to link to just the number but if you add a bookmark around that number then you can use that Insert Cross Reference dialog to refer to the bookmark.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Thanks Andrew. I bookmarked the "14" part of the photo caption, named it "Photo14" and successfully cross-referenced it. It looks straightforward to automate that process when the photo captions are created.

I inserted another photo earlier in the sequence and previewed the document, now the "14" in the photo caption is "15" but the bookmark is still "Photo14". That will cause me problems down the track when lots of photos are inserted because I won't know which bookmark to cross-reference to. Can you see a way around that?

Also, is it possible to output a list of all the available ReferenceKind options?

Thanks for your help.

Another question. How do I get the text to paste inside the caption bubble?

Sub TestCreateCaptionBubble()
'Pastes a caption bubble and inserts reference to a photo number

Application.Templates( _
"C:\Users\Philip Browne\AppData\Roaming\Microsoft\Document Building Blocks\1033\16\Building Blocks.dotx" _
).BuildingBlockEntries("3").Insert Where:=Selection.Range, RichText:=True

Selection.Text = "Refer photo xx"

End Sub

Attached Images

zz2.png (24.5 KB, 11 views)

Naming the bookmarks with the current number is not a great idea so you could use three alternatives:
1. Generate a random string like Microsoft do
2. Generate a DateHourMinSecond string which starts with a letter (bookmarks can't start with a number)
3. Use the caption words in some way eg. SEaspect, NEaspect

Putting text into the callout balloon works like this

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia