Visual Basic (VB and VBA)
Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected]
If in doubt, record a macro and inspect the entrails!

 

 

Please read the DISCLAIMER.

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.



Public Function lngUpdateDocumentFields()
' Procedure :   lngUpdateDocumentFields
' Description:  Update all fields in a document. Rest at start-of-document.
' Copyright: Chris Greaves Inc.
' Inputs:       None
' Returns:      LONG first field in error; ZERO=> success
' Assumes:      Nothing
' Side Effects: May move the insertion point to the start of the document.
' Tested:       By the calls shown below.
   Selection.WholeStory
   lngUpdateDocumentFields = Selection.Fields.Update
   Selection.Collapse
'Sub TESTlngUpdateDocumentFields()
'    If lngUpdateDocumentFields = 0 Then
'        MsgBox "update was successful"
'    Else
'        MsgBox "failed"
'    End If
'End Sub
End Function

We all knew nothing when we started …
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001

 

 

Hosted by www.Geocities.ws

1

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected]
If in doubt, record a macro and inspect the entrails!

 

 

Please read the DISCLAIMER.

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function lngUpdateDocumentFields()
' Procedure :   lngUpdateDocumentFields
' Description:  Update all fields in a document. Rest at start-of-document.
' Copyright: Chris Greaves Inc.
' Inputs:       None
' Returns:      LONG first field in error; ZERO=> success
' Assumes:      Nothing
' Side Effects: May move the insertion point to the start of the document.
' Tested:       By the calls shown below.
   Selection.WholeStory
   lngUpdateDocumentFields = Selection.Fields.Update
   Selection.Collapse
'Sub TESTlngUpdateDocumentFields()
'    If lngUpdateDocumentFields = 0 Then
'        MsgBox "update was successful"
'    Else
'        MsgBox "failed"
'    End If
'End Sub
End Function

We all knew nothing when we started …
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001

 

 

Hosted by www.Geocities.ws

1