View Single Post
 
Old 04-17-2009, 12:19 PM
Bird_FAT's Avatar
Bird_FAT Bird_FAT is offline Office 2007
Expert
 
Join Date: Apr 2009
Location: South East
Posts: 271
Bird_FAT is on a distinguished road
Default

I must admit, I had to look into this one a bit - I haven't done this for ages and certainly not in 2007; so, first of all - thank you for the interesting challenge to the old grey cells!


OK - what you are going to need to do is create bookmarks for each of the pieces of information that you would like to have repeated in your document. To do this, you need to highlight the entire section of text and then, on the Insert tab, add a bookmark (no spaces allowed, try to keep them clear).
Then, in the place where you want them to be repeated go to the Insert tab and click on Quick Parts and choose Field; now in the Field Names: list, choose Ref. Now in the centre section, you should see all of your bookmarks; choose the one you want to reference at this time (select any of the appropriate options on the right - probably none) and hit OK.


The one thing about field codes is that they need updating; which is SOOO easy to forget to do. So, you have to remember to do it often - to do it for one field - click on the field and hit F9, to do it for te whole document use Ctrl+A to select all, then hit F9.

There is another way of 'Automating' it, too!

Below is a little bit of VBA code that will cause the document to Auto Update all the fields in the document every time you open it - this will ensure that it is as up to date as possible, as often as possible!

  • Open your document (make sure it is the only document open)
  • Press Alt+F11 to open your VBA window
  • In the left hand window you should see a folder called Microsoft Word Objects - use the + to view it's contents (if it isn't already showing)
  • You should now see a Word Icon with the name 'This Document' - double-click it
  • Copy and paste the code from below into the window
  • Close the window
Here's the code
Code:
    Private Sub Document_Open()
  
          Dim myRange
          Set myRange = Selection.Range
                Selection.WholeStory
                Selection.Fields.Update
                myRange.Select

  End Sub
If you wanted, you could always make it do it upon close instead, just change the Private Sub argument to Document_Close()


As for the plug-in - erm! bump! Anyone??
Reply With Quote