Case statement - not getting the correct value 1

[OscarPCG]

I am working a routine that will check the style of each paragraph in a document. I am experimenting with the following code, but the variable just is not quite right. The code drops to the case else statement.

Sub CheckStyle()
Dim mPara As Paragraph

For Each mPara In ActiveDocument.Paragraphs
    SelectWhat = mPara.Style 'mPara.Format.Style.NameLocal
    
    Select Case SelectWhat
    Case SelectWhat = "AHead" ' must have the styles named in the document
        MsgBox "Yes this is good" & SelectWhat
    Case SelectWhat = "AlphaList"
         MsgBox "Yes this is good" & SelectWhat
    Case SelectWhat = "BHead"
         MsgBox "Yes this is good" & SelectWhat
    Case SelectWhat = "Body Text"
         MsgBox "Yes this is good" & SelectWhat
'...
    Case Else
        Debug.Print "Case Else" & SelectWhat
    End Select
Next
End Sub

Any ideas?

Thanks,
Oscar

 

[EBGreen]

Try:

Sub CheckStyle()
Dim mPara As Paragraph

For Each mPara In ActiveDocument.Paragraphs
    SelectWhat = mPara.Style 'mPara.Format.Style.NameLocal
    
    Select Case SelectWhat
    Case "AHead" ' must have the styles named in the document
        MsgBox "Yes this is good" & SelectWhat
    Case "AlphaList"
         MsgBox "Yes this is good" & SelectWhat
    Case "BHead"
         MsgBox "Yes this is good" & SelectWhat
    Case "Body Text"
         MsgBox "Yes this is good" & SelectWhat
'...
    Case Else
        Debug.Print "Case Else" & SelectWhat
    End Select
Next
End Sub

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[OscarPCG]

Thank you, that works well.

- Now I just need to figure out how to get 160 of those things to run *quickly*.

Thanks,
Oscar

 

[fumei]

I seem to recognize something here....hmmmm.

You may want to consider exactly what you are trying to achieve.

A suggestion may also be to look up .InUse property of Style.

Gerry