Q109808 - WD: WordBasic Examples: OutlineShowFirstLine

WD: WordBasic Examples: OutlineShowFirstLine

Q109808

The information in this article applies to:

Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
Microsoft Word for Windows, versions 7.0, 7.0a
Microsoft Word for the Macintosh, versions 6.0, 6.0.1

SUMMARY

This article contains an example that demonstrates the use of the following WordBasic statements and functions:

OutlineShowFirstLine

This article supplements the information in online Help. To open this Help topic, choose Contents from the Help menu and then choose the "Programming with Microsoft Word" topic.

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

OutlineShowFirstLine

Syntax

OutlineShowFirstLine [On]


                   Specifies whether or not to display the
  On               first line of body text:
  --               ---------------------------------------
   0 (zero)        All body text is shown.
   1 or omitted    Only the first line of body text is shown.

The OutlineShowFirstLine() function returns the following values.


  Value       Explanation
  -----       -----------

   0 (zero)   All lines of body text are displayed.
  -1          Only the first line of body text is displayed.

Example

This example toggles the display of the body text from showing all body text to showing only the first line of body text, or vice versa, in outline view:


   Sub MAIN
      On Error Goto notoutlineview
      If OutlineShowFirstLine() = 0 Then
         OutlineShowFirstLine
         MsgBox "Only the first line of body text is shown in \ 
         outline view."
      Else
         OutlineShowFirstLine 0
         MsgBox "All body text is shown in outline view."
      EndIf
      Goto done
   notoutlineview:
      MsgBox "Switch to outline view to use the OutlineShowFirstLine \ 
      command."
   done:
   End Sub

Additional query words: macro

Keywords : kb3rdparty kbprint kbfield winword macword word6 winword2 word7 word95
Issue type : kbinfo
Technology :