macro for finding all cross references and inserting -solved

[rebel]

IF anybody could help me I'd sure appreciate it. I have about a 1000 page document with a very large number of cross-references set. I want to insert fields to all the cross-references at the end of the document to use as an index. It will take a VERY long time to go through and insert each cross-reference one at a time which is the only way I've found to do it. Would anyone have a macro that would iterate through each cross-reference which has been set in the document and insert a reference to it in the document?

[patel]

can you attach a sample ?
_________________
If your problem has been solved please add "[Solved]" to the beginning of your first post title (edit button).

[rebel]

I would but maybe I'm overlooking something. How do I attach a file to a message. I don't see any options for doing it.

[JohnV]

Please make a copy of your document to try this. A the very end of your document, in a new paragraph type "The end" (without parentheses) and press Enter.

Here's what I did. I inserted 2 bookmark of selected words then inserted 2 cross-references to those bookmarks to show the referenced words.

The macro below puts working copies of the cross-references, in the order they appear in the document, at its end. The macro looks for text portions that are text fields and copies those to the end so if you have other text fields that are not cross-references those may get copied also. I have tried to eliminate this problem for text fields that are variables.

[rebel]

Since I didn't see any other way of doing it I put a small sample at
[url]https://docs.google.com/open?id=0Bzwj_TNIBFRISnJ6WDIxYUZ3MzQ
[/url]

One thing I wasn't thinking about in the first message is that the fields should be sorted. When you go to Insert Cross-references, in the selection window they are all sorted already but you can only select one at a time. Maybe what I want isn't possible but it would make things a whole lot easier. I tried the code given earlier but got an error message that it could not create enumeration.

[patel]

try with this modification

[rebel]

It's closer. Instead of simply copying the set reference text I want to insert the field to the reference. The sample.odt linked to in the prior message shows an example of the finished product. This would be the the same as going to Insert | Reference | Cross-references | Insert Reference and Inserting reference to Reference and selecting them one-by-one from the Selection window in the order they're given there. The end result will be creating a sorted index and exporting the file to a pdf so when the field in the index is clicked it will go right to that reference.

[patel]

Can you do it manually ? I don't, maybe it's possible register a macro.
_________________
If your problem has been solved please add "[Solved]" to the beginning of your first post title (edit button).

[JohnV]

Alright, instead of using Bookmarks you selected text and did Insert > Cross-reference > Set Reference. Now, at the end of the document, you want to create cross-references to these set references in alphabetic order. Here's the code.

[patel]

very good JohnV !!
_________________
If your problem has been solved please add "[Solved]" to the beginning of your first post title (edit button).

[rebel]

I "think" it is working. It works great on the sample and on a greatly slimmed down copy of the original. But it is taking a very long time to complete on the full 1000+ page document. But I don't really care if it takes a day to just let the computer run as it goes through getting and sorting them as it would still save me weeks or months of manually inserting the fields. I don't know how many there are but it's a lot. I'll let you know how it went whenever it finishes.

[rebel]

The sort routine given is definitely no good for this scenario. This one taken from the same message as the bubble routine at http://www.oooforum.org/forum/viewtopic.phtml?t=20783 should be used instead:

Sub ShellSort(myList())
Dim k1 As Long, k2 As Long, listSize As Long
Dim x1 As Long, isSorted As Boolean
Dim swapping
listSize = UBound(myList()) +1 -LBound(myList())
k1 = Fix(listSize /2)
do while k1 > 0
k2 = UBound(myList()) - k1
isSorted = true
for x1 = LBound(myList()) to k2
if StrComp(myList(x1), myList(x1 +k1), 0) = 1 then
swapping = myList(x1)
myList(x1) = myList(x1 +k1)
myList(x1 +k1) = swapping
isSorted = false
end if
next
if isSorted then
k1 = Fix(k1 /2)
end if
loop
End Sub

The improvedbubblesort routine was sorting for almost 14 hours and when I checked the value of x2 it still hadn't gotten past the first iteration! At that point I just stopped the macro. Using the shellsort routine, the list array was populated and sorted in less than 45 seconds. Now the slowdown is at the end where it is inserting the fields into the document. I put in a MSGBOX command in the For...Next loop to let me know when every 1000 fields are inserted and each 1000 takes longer and longer to get done. The document has 11220 reference fields. Eventually it should get done though, now that I'm using a new sort routine.

[patel]

You are right, the shellsort is very faster than other
_________________
If your problem has been solved please add "[Solved]" to the beginning of your first post title (edit button).

[rebel]

It finally finished! I think it took somewhere around 45 hours. The first 1000 reference fields took about 20 minutes to insert into the document, and the last 1000 took about 7 hours. But that looks to be probably about what it would have taken to insert 11220 references manually. After it finished I tried it manually and it took 28 seconds to insert one field whereas it took about 5 seconds for each one at the beginning. And that's on a quad-core, 3Ghz computer.

What would the change be in the code to insert a cross-reference to the page # instead of to the cross-reference name?

Thank you so much for your help! It was greatly appreciated.

[JohnV]