if 遇到字符串 不能正常判断

br2w

需要根据页眉不同把一个文件拆分打印，例如第一页为摘要，就按照摘要打印。
在开始编写时，遇到个问题，vba如下：
Sub 自动打印()
'
' 自动打印 宏
'
Dim docWord As Word.Document
Dim zhaiye As Integer
Dim zhuye As Integer
Dim zongjie As Integer
Dim nameye As String
Dim i As Integer

i = 1
zongjie = Application.ActiveDocument.Sections.Count
Do While i < zongjie
           
     nameye = Application.ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range.Text
     
     If nameye Like "摘要" = True Then
        zhaiye = i
     End If
     
     i = i + 1
Loop

MsgBox (zhaiye)



End Sub

或者
Sub 自动打印()
'
' 自动打印 宏
'
Dim docWord As Word.Document
Dim zhaiye As Integer
Dim zhuye As Integer
Dim zongjie As Integer
Dim nameye As String
Dim i As Integer

i = 1
zongjie = Application.ActiveDocument.Sections.Count
Do While i < zongjie
           
     nameye = Application.ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range.Text
     
     If nameye = "摘要" Then
        zhaiye = i
     End If
     
     i = i + 1
Loop

MsgBox (zhaiye)



End Sub

但是 if 相等后不执行then 不知道为什么，小白，请求大神协助

if 相等时不执行then

zhanglei1371

Like "摘要*" = True

A1233515

If nameye Like "*摘要*" = True

br2w

感谢大神们