#1
|
|||
|
|||
Find a word and then check if its paragraph is a list pargraph or not
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 |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
Yes, Greg, you are right! Thank you for your correction!
|
#5
|
|||
|
|||
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 |