Insert cross reference like copy and paste

Guessed · #2 05-19-2021, 04:36 PM

Your code is similar in principle to how I've done it on my templates. So I will suggest a couple of other things you may not have considered yet.

In our documents, often we want to refer to the heading outline number rather than the text. So when the selection.range is empty, rather than producing a warning to first select text, I create an xRef to the paragraph number (by including '\n' in the ref field code) and add a prefix (eg. Section X)

Secondly, when testing to see if a bookmark already exists in the same range, you don't need to compare it to every bookmark in the document - you should compare it to every bookmark that included that range.

Code:

    'search for existing bookmark reference the same range
    'doc.Bookmarks.ShowHidden = True  'this isn't needed for the loop
    For Each bmi In rg.Bookmarks
        If bmi.Range.IsEqual(rg) Then
            Set oldbm = bmi
            Exit For
        End If
    Next bmi
    'doc.Bookmarks.ShowHidden = False  'this can annoy users who want it on

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Direct (copy-paste) reference from another paragraph (CITATION)	WordNoobx	Word	6	05-15-2018 05:46 AM
insert cross-reference – why is a level 2 style not a heading?	eNGiNe	Word	8	01-30-2018 06:00 AM
Find {text} and insert cross reference from bookmark	Slamzor	Word VBA	1	12-01-2017 05:12 PM
Insert a cross-reference in a caption	RomFigo	Word	9	09-25-2015 12:32 AM
Can you copy & paste cells across worksheets and preserve reference to worksheet?	New Daddy	Excel	2	11-27-2013 07:19 AM