Convert vb to vba 3

[Vbanewbie101]

The following code works in VB but not in VBA. A word document is opened the code looks for a string of text. If it finds it, it checks to see if the style is Heading 2. VBA gives me an overload error. Thanks

Dim mheading2
mheading2 = 0
'
Set myRange = ActiveDocument.Content
'
With Myrange.find
.clearformatting
.text="Computer Literacy requirement"
.Forward=True
.Execute
End With
'
If myrange.Find.Found Then
If myrange.Style = "Heading 2" Then
mHeading2 = 3
Else
mHeading2 = 0
End If
Else
mheading2=0
End If

 

[SkipVought]

Hi,

Error on which statment?

Skip,

_{When a group touring the Crest Toothpaste factory got caught in a large cooler, headlines read...
Tooth Company Freeze a Crowd! and
Many are Cold, but Few are Frozen!}

 

[SkipVought]

I'm guessing it on this statement...

        If myrange.Style = "Heading 2" Then

since the Style property is an integer value, not TEXT.

Skip,

_{When a group touring the Crest Toothpaste factory got caught in a large cooler, headlines read...
Tooth Company Freeze a Crowd! and
Many are Cold, but Few are Frozen!}

 

[Vbanewbie101]

If myrange.Style = "Heading 2" Then is where the error occurrs. The error message reads

"Overload resolution failed because no Public '=' can be called with these arguments:
'Public Shared Operator =(a As String, b As String) As Boolean':
Argument matching parameter 'a' cannot convert from '__ComObject' to 'String'."

 

[SkipVought]

If myrange.Style = ThisDocument.Styles("Heading 1") Then

Skip,

_{When a group touring the Crest Toothpaste factory got caught in a large cooler, headlines read...
Tooth Company Freeze a Crowd! and
Many are Cold, but Few are Frozen!}

 

[fumei]

Dim r As Range
Set r = ActiveDocument.Range
With r.Find
   .Text = "Computer Literacy requirement"
   Do While .Execute(Forward:=True) = True
      If r.Style = "Heading 2" Then
         ' do whatever if style = "Heading 2"
      End If
   Loop
End With
Set r = Nothing

Sorry Skip, but, "since the Style property is an integer value, not TEXT. " is not quite correct.

ActiveDocument.Paragraphs(1).Style = wdStyleNormal
ActiveDocument.Paragraphs(1).Style = "Normal"
ActiveDocument.Paragraphs(1).Style = -1

are all equivalent. Using a text (string) is valid. I ran the code using myrange.Style = "Heading 2" and it runs fine.

From Help:

the local name of the style, an integer, a WdBuiltinStyle constant, or an object that represents the style.

So you could also use:

Dim myYaddaYadda As Style
Set myYaddaYadda = ThisDocument.Styles("Whatever")

If myrange.Style = myYaddaYadda

Vbanewbie101, I am not sure why you are getting that error. I have never seen it. As stated, adjusting for the variable myrange not being declared, the code runs with no error for me.

faq219-2884

Gerry
My paintings and sculpture