Find more than one style at once?

[Harry Bronfield]

This is not possible, right? It sure would be useful to be able to
tell Word "Find style A or style B".

 

[Stefan Blom]

No, you'd have to perform two find & replace operations, one after the
other.

 

[Greg Maxey]

This is not possible, right? It sure would be useful to be able to
tell Word "Find style A or style B".

Depends on how you go about finding it. You can't use the standard
Find and Replace methods, but you can look at each paragraph
individually to determine if it is formatted with style A or B and
then proceed accordingly:

Sub ScracthMacro()
Dim aPar As Paragraph
For Each aPar In ActiveDocument.Paragraphs
Select Case aPar.Style
Case Is = "Stlye A", "Stlye B"
aPar.Style = "Style C"
Case Else
End Select
Next
End Sub

 

[Stefan Blom]

Just out of curiosity, do you know if one method would be quicker than the
other?

--
Stefan Blom
Microsoft Word MVP

This is not possible, right? It sure would be useful to be able to
tell Word "Find style A or style B".

Depends on how you go about finding it. You can't use the standard
Find and Replace methods, but you can look at each paragraph
individually to determine if it is formatted with style A or B and
then proceed accordingly:

Sub ScracthMacro()
Dim aPar As Paragraph
For Each aPar In ActiveDocument.Paragraphs
Select Case aPar.Style
Case Is = "Stlye A", "Stlye B"
aPar.Style = "Style C"
Case Else
End Select
Next
End Sub

 

[Greg Maxey]

Stefan,

No I don't and there is probably little to be gained or lost wrt to speed
using a method like this. The only real advantage that I could see is if a
user needed to find the first instance of A or B.

Sub ScracthMacro()
Dim aPar As Paragraph
For Each aPar In ActiveDocument.Paragraphs
Select Case aPar.Style
Case Is = "Stlye A", "Stlye B"
If aPar.Style = "Style A" Then
'Do this
Exit Sub
Else
'Do that
Exit Sub
Case Else
End Select
Next
End Sub

 

[Stefan Blom]

Greg,
Thank you for explaining this.