Inserting Cross References into Cell

mikemike616 · #1 08-17-2015, 01:47 PM

I'm trying to insert a cross reference into a cell but my code doesn't seem to work. Everything executes properly but when the macro finishes, nothing appears in the cell in which it was inserted. Updating all fields doesn't do anything either. Here's my code:

Code:

With ActiveDocument.Range.Tables(4)
    ...
    With .Cell(2, 2).Range
        ...
        .InsertCrossReference ReferenceType:=wdRefTypeBookmark, ReferenceKind:= wdContentText, _
        ReferenceItem:="DATE", InsertAsHyperlink:=True
    End With
End With

Is there another way I should be doing this? I'm really trying to avoid using Selection.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Convert manual cross references in footnotes to other footnotes to automatic cross references	ghumdinger	Word VBA	7	11-20-2014 11:47 PM
Bookmarks & cross-references	Suchoklates	Word	1	09-19-2013 02:32 AM
Cross-References	acolussi	Word	9	05-16-2013 02:11 AM
MS Word cross-references?	entity022	Word	3	06-03-2010 06:37 AM
Cross References	egcharles	Office	0	04-19-2009 06:20 AM