Find a word and then check if its paragraph is a list pargraph or not

RobiNew · #1 12-01-2023, 10:00 AM

I'm tryng to check if a paragraph containg the 'Found' word is a list paragraph or not. Can someone help with the tentative code here below? Thanks!

Code:

Sub ListOrNot()
Dim aRng As Range
Set aRng = ActiveDocument.Range
    With aRng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWildcards = False
      .Text = "Title"
      .Execute
    End With
check = aRng.Find.Found.ListFormat.ListType
MsgBox check
End Sub

vivka · #2 12-01-2023, 02:07 PM

Hi, RobiNew! This works for me:

Code:

Sub ListOrNot()
Dim aRng As range
Set aRng = ActiveDocument.range
    With aRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWildcards = False
        .text = "Title"
        If .Execute Then
            aRng.Select
            check = aRng.Paragraphs(1).range.ListFormat.ListType
            If check <> 0 Then
                MsgBox "This is a list paragraph"
            Else
                MsgBox "This is not a list paragraph"
            End If
        End If
     End With
  Set aRng = Nothing
End Sub

gmaxey · #3 12-01-2023, 04:20 PM

Vivka, RobiNew

Check is superfluous. If it wasn't, it isn't declared. If you declare variables, declare them all.

Code:

Sub ListOrNot()
Dim aRng As Range
Set aRng = ActiveDocument.Range
  With aRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWildcards = False
    .Text = "Title"
    If .Execute Then
      If aRng.Paragraphs(1).Range.ListFormat.ListType <> 0 Then
        MsgBox "This is a list paragraph"
      Else
        MsgBox "This is not a list paragraph"
      End If
    End If
   End With
  Set aRng = Nothing
End Sub

vivka · #4 12-02-2023, 12:49 AM

Yes, Greg, you are right! Thank you for your correction!

RobiNew · #5 12-02-2023, 01:58 AM

Many thanks to you both! À la prochaine!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find longest paragraph in Word document	keimba	Word VBA	2	09-11-2019 03:26 PM
Find word, Insert Paragraph and bookmark	gattaca714	Word VBA	2	03-24-2017 09:23 PM
Getting bold Pargraph	kirkm	Word VBA	11	09-19-2016 05:07 PM
Find Word then Highlight Whole Sentence and Paragraph Around it	ChrisOK	Word VBA	4	09-08-2016 10:16 PM
Find last word in paragraph and delete it	Dave T	Word VBA	3	05-21-2015 12:40 AM