When it finds such a paragraph, a hyperlink to that paragraph is inserted at the bottom of the document. This procedure runs through every paragraph in the active document and looks for those paragraphs that use whatever style is specified as the heading argument. Range(p.Range.Start, p.Range.End - 1) _ Anchor:=lastParagraph.Range, _ Address:='', _ SubAddress:='Anchor' & i, _ ScreenTip:=anchorText, _ TextToDisplay:=anchorText End If ' ' Delay briefly so the status bar text is visible ' startTime = Timer Do While Timer - startTime < 0.45 DoEvents Loop Next 'p Application.StatusBar = '' End With End Sub Paragraphs(.Paragraphs.Count) Set anchorText =. Bookmarks.Add 'Anchor' & i, p.Range ' ' Add a hyperlink for the heading ' Set lastParagraph =. Paragraphs ' ' Display the progress in the status bar ' j = j + 1 Application.StatusBar = 'Checking paragraph ' _ & j & ' of ' & totalParagraphs ' ' Look for the specified style ' If p.Style = heading Then ' ' Create a bookmark ' i = i + 1. Bookmarks If InStr(b.Name, 'Anchor') Then b.Delete Next 'b ' ' Run through the paragraphs ' totalParagraphs =. A Procedure That Inserts Hyperlinks for a Specified Style of Heading Sub InsertHyperlinks(heading As String) Dim b As Bookmark Dim p As Paragraph Dim lastParagraph As Paragraph Dim anchorText As Range Dim strBookmark As String Dim totalParagraphs As Integer Dim i As Integer Dim j As Integer i = 0 j = 0 With ActiveDocument ' ' Delete the existing 'Anchor' bookmarks ' For Each b In. Listing 12.2 demonstrates the StatusBar property using the InsertHyperlinks procedure that was called in Listing 12.1. This gives you an easy way to keep the user informed about what a procedure is doing or how much is left to process. Status Bar Messages in Word and ExcelДЇor Word and Excel, you can use the Application object's StatusBar property to display text messages in the status bar at the bottom of the screen. The next couple of sections show you how it's done. In Office 2003, Word, Excel, and Access let you display your own messages in the status bar.

Most applications have a status bar at the bottom of the screen that's used for displaying messages and indicating the progress of the current operation. This section presents several methods of displaying information to the users of your VBA applications. Similarly, if a user makes an error (for example, he enters the wrong argument in a user-defined function), he should be gently admonished so that he'll be less likely to repeat the error. For example, if an operation will take a long time, make sure the user has some visual clue about the progress of the operation. Displaying information is one of the best (and easiest ) ways to keep your users involved.

Status bar access vba