Sub replaceCrossReferences() 
        
   Dim referenceTargets As New Collection 
 
   For Each aField In ActiveDocument.Fields 
        If aField.Type = wdFieldPageRef Then 
             
            aField.Select 
             
            refText = aField.Code.text 
            refText = Mid(refText, InStr(refText, "_"), Len(refText)) 
            refText = Mid(refText, 1, InStr(refText, " ") - 1) 
             
            Selection.InsertBefore ("<<" & refText & ">>") 
             
            targetDone = False 
            For Each Target In referenceTargets 
                If Target = refText Then 
                    targetDone = True 
                End If 
            Next 
             
            If Not targetDone Then 
                Selection.GoTo What:=wdGoToBookmark, Name:=refText 
                Selection.InsertBefore ("<<Target " & refText & ">>") 
                referenceTargets.Add (refText) 
                 
            End If 
             
            aField.Delete 
             
        End If 
    Next aField 
End Sub 

//****************************************************************// 
/* Skript zum Auflösen von Word-Seitenquerverweis-Marken (<<_DefXXXXXXXXX>>) 
 * Die Marken werden per VBA-Skript im WORD erzeugt. 
 * @author Florian Buchner 
 * @date 12.12.2009 
 * @lastChange 20.12.2009 
 * @version 1.4 
 * @copyright Fotosatz Buck 
//****************************************************************// 
 
var CROSSREFERENCEFORMAT_NAME = "Nur Seitenzahl"; 
 
var currentDocument = app.activeDocument; 
 
//****************************************************************// 
// Querverweise-Format der Querverweise erzeugen 
// Es wird nur ein Format auf Seitenzahlen angelegt, das nur die Seitenzahl anzeigt 
//****************************************************************// 
var crossRefFormat = currentDocument.crossReferenceFormats.itemByName(CROSSREFERENCEFORMAT_NAME); 
if(crossRefFormat == null){ 
	crossRefFormat = currentDocument.crossReferenceFormats.add(CROSSREFERENCEFORMAT_NAME);  
	crossRefFormat.buildingBlocks.add(BuildingBlockTypes.PAGE_NUMBER_BUILDING_BLOCK); 
} 
 
//****************************************************************// 
// Ziele der Querverweise erzeugen 
//****************************************************************// 
//Clear the find/change preferences. 
app.findGrepPreferences = NothingEnum.nothing; 
app.changeGrepPreferences = NothingEnum.nothing; 
 
app.findGrepPreferences.findWhat = "<<Target(.)+?>>"; 
//Set the find options. 
app.findChangeGrepOptions.includeFootnotes = false; 
app.findChangeGrepOptions.includeHiddenLayers = false; 
app.findChangeGrepOptions.includeLockedLayersForFind = false; 
app.findChangeGrepOptions.includeLockedStoriesForFind = false; 
app.findChangeGrepOptions.includeMasterPages = false; 
 
var allCrossReferenceTargets = currentDocument.findGrep(); 
 
for(i=allCrossReferenceTargets.length-1;i>=0;i--){ 
	var currentCrossReferenceTarget = allCrossReferenceTargets[i]; 
	 
	var targetName = currentCrossReferenceTarget.contents; 
	targetName = targetName.substring(targetName.indexOf(" ")+1,targetName.indexOf(">")); 
	 
	currentDocument.hyperlinkTextDestinations.add(currentCrossReferenceTarget, {name: targetName}); 
	 
} 
 
//********************************************************************// 
// Alle Target-Artefakte löschen <<Target _DefXXXXXXXXX>> 
//********************************************************************// 
app.findGrepPreferences = NothingEnum.nothing; 
app.changeGrepPreferences = NothingEnum.nothing; 
app.findGrepPreferences.findWhat = "<<Target(.)+?>>"; 
app.changeGrepPreferences.changeTo = ""; 
app.findChangeGrepOptions.includeFootnotes = false; 
app.findChangeGrepOptions.includeHiddenLayers = false; 
app.findChangeGrepOptions.includeLockedLayersForFind = false; 
app.findChangeGrepOptions.includeLockedStoriesForFind = false; 
app.findChangeGrepOptions.includeMasterPages = false; 
currentDocument.changeGrep(); 
 
//****************************************************************// 
// Querverweise erzeugen 
//****************************************************************// 
//Clear the find/change preferences. 
app.findGrepPreferences = NothingEnum.nothing; 
app.changeGrepPreferences = NothingEnum.nothing; 
 
app.findGrepPreferences.findWhat = "<<(.)+?>>"; 
//Set the find options. 
app.findChangeGrepOptions.includeFootnotes = false; 
app.findChangeGrepOptions.includeHiddenLayers = false; 
app.findChangeGrepOptions.includeLockedLayersForFind = false; 
app.findChangeGrepOptions.includeLockedStoriesForFind = false; 
app.findChangeGrepOptions.includeMasterPages = false; 
 
var allCrossReferences = currentDocument.findGrep(); 
 
for(i=allCrossReferences.length-1;i>=0;i--){ 
	var currentCrossReference = allCrossReferences[i]; 
		 
	var targetName = currentCrossReference.contents; 
	targetName = targetName.substring(targetName.lastIndexOf("<")+1,targetName.indexOf(">")); 
	 
	var crossRefSource = currentDocument.crossReferenceSources.add(currentCrossReference,  crossRefFormat);  
	var hyperlink = currentDocument.hyperlinks.add(crossRefSource,  currentDocument.hyperlinkTextDestinations.itemByName(targetName));  
	 
} 
 
 
//****************************************************************// 
// Alle Querverweis-Artefakte löschen <<_DefXXXXXXXXX>> 
//****************************************************************// 
app.findGrepPreferences = NothingEnum.nothing; 
app.changeGrepPreferences = NothingEnum.nothing; 
app.findGrepPreferences.findWhat = "<<(.)+?>>"; 
app.changeGrepPreferences.changeTo = ""; 
app.findChangeGrepOptions.includeFootnotes = false; 
app.findChangeGrepOptions.includeHiddenLayers = false; 
app.findChangeGrepOptions.includeLockedLayersForFind = false; 
app.findChangeGrepOptions.includeLockedStoriesForFind = false; 
app.findChangeGrepOptions.includeMasterPages = false; 
currentDocument.changeGrep();