|
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 BookMarkText(strBookMark As String, strText As String)
' Procedure : BookMarkText
' Description: Delete the existing bookmark and data, if it exists, and go to the end of the document.
' Copyright: Chris Greaves Inc.
' Inputs: Called by the user
' Returns: None.
' Assumes: None.
' Side Effects: None.
' Tested: By the calls shown below.
If ActiveDocument.Bookmarks.Exists(strBookMark) Then
ActiveDocument.Bookmarks(strBookMark).Select
Selection.Delete
End If
Selection.EndKey Unit:=wdStory, Extend:=wdMove
' Insert the string, and bookmark the text
Dim lngStart, lngEnd As Long
lngStart = Selection.Start
Selection.TypeText (strText)
Selection.TypeParagraph
lngEnd = Selection.End
ActiveDocument.Range(Start:=lngStart, End:=lngEnd).Select
ActiveDocument.Bookmarks.Add Name:=strBookMark, Range:=Selection.Range
Selection.Collapse
'Sub TESTBookMarkText()
' Call BookMarkText("alpha", "Delete the existing bookmark")
' Call BookMarkText("beta", "if it exists")
' Call BookMarkText("gamma", "the end of the document")
'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 |