Hi Tim,

You might be able to use something like the following:

ActiveDocument.Paragraphs(1).Range.Select
With Dialogs(wdDialogToolsWordCount)
   .Execute
   MsgBox "This paragraph contains " & .Lines & " lines."
End With

HTH,
Dave

This function appears to work

Sub TestMultipleLineParagraph()
MsgBox IsMultipleLineParagraph(Para:=Selection.Paragraphs(1))
End Sub

Function IsMultipleLineParagraph(Para As Paragraph) As Boolean
If Para.Range.Characters(1).Information(wdVerticalPositionRelativeToPage) = _
 
Para.Range.Characters(Para.Range.Characters.Count).Information(wdVerticalPositionRelativeToPage) Then
   IsMultipleLineParagraph = False
Else
   IsMultipleLineParagraph = True
End If
End Function

Does the following do the deed?

Public Sub WhichLineAmIIn()
'    How do I determine if a paragraph consists of more than 1 line?

   Dim blnEndOfDoc As Boolean
   Dim lngEnd As Long
   Dim lngStart As Long
   Dim rngEndPara As Range
   Dim rngStartPara As Range

   Set rngStartPara = Selection.Paragraphs(1).Range
   Set rngEndPara = rngStartPara.Duplicate
   With rngStartPara
       If .End = .Start Then
           blnEndOfDoc = (.End = ActiveDocument.Content.End - 1)
       Else
           blnEndOfDoc = (.End = ActiveDocument.Content.End)
       End If
       .Collapse Direction:=wdCollapseStart
       lngStart = .Information(wdFirstCharacterLineNumber)
   End With
   With rngEndPara
       .Collapse Direction:=wdCollapseEnd
       If Not blnEndOfDoc Then
           .MoveEnd Unit:=wdCharacter, Count:=-1
       End If
       lngEnd = .Information(wdFirstCharacterLineNumber)
   End With

   Debug.Print "Paragraph consists of " & IIf(lngStart = lngEnd, "", "more
than ") & "1 line"

   Select Case WordBasic.CmpBookmarks("\Line", "\Para")
       Case 0, 10
           Debug.Print "Insertion point is in last line of the paragraph"
       Case 8
           Debug.Print "Insertion point is in first line of the paragraph"
       Case Else
           Debug.Print "Insertion point is not in first or last line of the
paragraph"
   End Select

   Set rngEndPara = Nothing
   Set rngStartPara = Nothing
End Sub

Hi Tim,

still another one.

Public Function MultiLine(oPrg As Paragraph) As Boolean
On Error GoTo weiter:
If oPrg.Range.Bookmarks("\line").Range = oPrg.Range Then
  MultiLine = True
  Else
weiter:
  MultiLine = False
End If
End Function

Sub test8946()
Dim oPrg As Paragraph
For Each oPrg In ActiveDocument.Range.Paragraphs
  ' oPrg.Range.Select ' for testing only
  MsgBox MultiLine(oPrg)
Next
End Sub

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/