Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...
MS Office Forum / Word / Programming / August 2006

Tip: Looking for answers? Try searching our database.

Adding complex cross-reference

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Eva - 02 Aug 2006 22:33 GMT
I tried searching for a solution to this, but I haven't been able to
hit the magic string of key words that might hit on a solution. I have
a table that lists the subsection number, the heading text, and the
page number for each subsection. Right now I'm doing it manually by
putting the cursor in the first cell, inserting a cross reference to a
paragraph number, tabbing to the next cell, inserting a cross reference
to paragraph text, and tabbing to the next cell, then inserting a cross
reference to a page. I turned on macro record and generated these two
blind alleys:

Sub Paragraph_CF()
'
' Paragraph_CF Macro
' Macro recorded 8/2/2006 by whitlev
'
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="1", _
       InsertAsHyperlink:=True, IncludePosition:=False,
SeparateNumbers:=False, _
       SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdContentText, ReferenceItem:="1",
InsertAsHyperlink:=True _
       , IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdPageNumber, ReferenceItem:="1",
InsertAsHyperlink:=True, _
        IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
     Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="2", _
       InsertAsHyperlink:=True, IncludePosition:=False,
SeparateNumbers:=False, _
       SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdContentText, ReferenceItem:="2",
InsertAsHyperlink:=True _
       , IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdPageNumber, ReferenceItem:="2",
InsertAsHyperlink:=True, _
        IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
    Selection.MoveRight Unit:=wdCell
    Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="2", _
       InsertAsHyperlink:=True, IncludePosition:=False,
SeparateNumbers:=False, _
       SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdContentText, ReferenceItem:="3",
InsertAsHyperlink:=True _
       , IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdPageNumber, ReferenceItem:="3",
InsertAsHyperlink:=True, _
        IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="1", _
       InsertAsHyperlink:=True, IncludePosition:=False,
SeparateNumbers:=False, _
       SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdContentText, ReferenceItem:="1",
InsertAsHyperlink:=True _
       , IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdPageNumber, ReferenceItem:="1",
InsertAsHyperlink:=True, _
        IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
End Sub

And then I tried this:
Sub CF()
'
' CF Macro
' Macro recorded 8/2/2006 by whitlev
'
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="72", _
       InsertAsHyperlink:=True, IncludePosition:=False,
SeparateNumbers:=False, _
       SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdContentText, ReferenceItem:="72",
InsertAsHyperlink:= _
       True, IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:= _
       " "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdPageNumber, ReferenceItem:="72",
InsertAsHyperlink:=True _
       , IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="73", _
       InsertAsHyperlink:=True, IncludePosition:=False,
SeparateNumbers:=False, _
       SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
      Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="73", _
       InsertAsHyperlink:=True, IncludePosition:=False,
SeparateNumbers:=False, _
       SeparatorString:=" "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdContentText, ReferenceItem:="73",
InsertAsHyperlink:= _
       True, IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:= _
       " "
   Selection.MoveRight Unit:=wdCell
   Selection.InsertCrossReference ReferenceType:="Numbered item", _
       ReferenceKind:=wdPageNumber, ReferenceItem:="72",
InsertAsHyperlink:=True _
       , IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
End Sub

But editing them to update from, say, "72" to "73" seems like it would
take longer than doing it manually. Surely someone else has had this
need before I did. Dare I hope there's a macro out there for this?

TIA--Eva Whitley
Reply to this Message
Jezebel - 03 Aug 2006 10:26 GMT
Take a deep breath, take a step backwards (bearing in mind that no-one here
has any previous knowledge of you, your document, or your intentions) and
explain what you want to end up with. It's  not at all obvious (to me,
anyway) what you're trying to do.

>I tried searching for a solution to this, but I haven't been able to
> hit the magic string of key words that might hit on a solution. I have
[quoted text clipped - 140 lines]
>
> TIA--Eva Whitley
Reply to this Message
Eva Whitley - 03 Aug 2006 13:48 GMT
> >I tried searching for a solution to this, but I haven't been able to
> > hit the magic string of key words that might hit on a solution. I have
[quoted text clipped - 5 lines]
> > reference to a page. I turned on macro record and generated these two
> > blind alleys:
<macro snipped>

> > But editing them to update from, say, "72" to "73" seems like it would
> > take longer than doing it manually. Surely someone else has had this
> > need before I did. Dare I hope there's a macro out there for this?
> >
> > TIA--Eva Whitley

> Take a deep breath, take a step backwards (bearing in mind that no-one here
> has any previous knowledge of you, your document, or your intentions) and
> explain what you want to end up with. It's  not at all obvious (to me,
> anyway) what you're trying to do.

Sure. I have a large Word document, broken down into chapters. In
addition to a TOC, we have tables at the beginning of each chapter. The
tables have three columns: a paragraph number (outline numbered as 1,
1.1, 1.1.1, etc.), the text from the header, and the page number. So a
row in a table would look like this: 1.1.1 | Fixing a Hole in the Roof
| 2-1.

(The document in question is for USPS, BTW, for mail processing
equipment.)

If there some code out there that would automate this? Right now, as I
said, it's a process where I Insert==>Cross Reference==>Paragraph
number, tab to the next cell, Insert==>Cross Reference==>Paragraph
text, tab to the next cell, Insert==>Cross Reference==>Page number,
repeat any number of times, depending on how many subsections there are
in the chapter.

In the second bit of code, I noticed it was referencing numbers, and I
thought it would be an easy fix to copy & paste into a new Word
document, and then do a search and replace to up the number by one. As
I said, it seems like it would take the same amount of time as doing it
the way I have. Also, I'm not sure if this would work with variable
lengths of my chapters.

All this makes me wish I knew VBA better so I could make better macros,
rather than using macro record. But I guess that's a rant for another
time. --Eva Whitley
Reply to this Message
Jezebel - 03 Aug 2006 23:59 GMT
Why not just have a separate TOC for each chapter, as well as the master TOC
for the entire document?

>> >I tried searching for a solution to this, but I haven't been able to
>> > hit the magic string of key words that might hit on a solution. I have
[quoted text clipped - 46 lines]
> rather than using macro record. But I guess that's a rant for another
> time. --Eva Whitley
Reply to this Message
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage
Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.