各位先知，这段代码怎么写啊？

找出文档第一次出现"仿宋_gb2312"格式的所在段落数。我做的不行：

For ks = 1 To ActiveDocument.Paragraphs.Count
If ActiveDocument.Paragraphs(ks).Range.Font.Name = "仿宋_gb2312" Then
ic = ks
Exit For
End If
Next
MsgBox ic

代码应该没啥问题，要检查下原文档

If ActiveDocument.Paragraphs(ks).Range.Font.Name = "仿宋_gb2312" Then
改为
If ActiveDocument.Paragraphs(ks).Range.Font.NameFarEast = "仿宋_GB2312" Then

另外，除非整个段落的中文都是"仿宋_GB2312"，才能正确；如果只是段落中部分文字是"仿宋_GB2312"，也不会返回结果。