Inserting Cross References into Cell

Guessed · #1 08-18-2015, 11:02 PM

Inserting something into a range can be problematic when it already has content.

Try defining a range and then collapsing that to a specific location

Code:

  Dim aRng As Range
  Set aRng = ActiveDocument.Range.Tables(1).Cell(2, 2).Range
  aRng.Collapse wdCollapseStart
  aRng.InsertCrossReference ReferenceType:=wdRefTypeBookmark, ReferenceKind:=wdContentText, _
              ReferenceItem:="DATE", InsertAsHyperlink:=True

mikemike616 · #2 08-19-2015, 08:43 AM

Yes thank you. Collapsing the range beforehand does the trick.

For anyone else who may run into this problem, if you use "wdCollapseEnd" to insert a cross reference after preexisting text in a cell, it will put it in the next cell. To avoid this, use:

Code:

.MoveEnd Unit:=wdCharacter, Count:=-1
.Collapse wdCollapseEnd

This will subtract the last character off the range so when you collapse to the end, it will put the range at the last character in the cell.

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