vb.net - 使用 VB.NET 检查 Word 文档中的字体样式

Question

我想用vb.net检查一个word文件，检查文档中的样式是否正确。

我必须在word文档中检查这些表达式

a.Verdana + 16 pt + Bold + Red

b.Verdana + 12 pt + 粗体 + 斜体 + 蓝色

c.Verdana + 11 pt + 粗体 + 斜体 + 棕色

d.Arial + 10 pt + Black

我试过了，

If objDoc.Range.Font.Name = "Arial" And objDoc.Range.Font.Size = 10 Then
   If objDoc.Range.Font.Color = WdColor.wdColorBlack Then
   End If
        MsgBox("ok")
    Else
        MsgBox("not ok")
End If

但使用此代码，仅当整个 word 文档由 Arial,10,Black 组成时才显示 msgbox“OK”，而当它包含上述表达式时显示 msgbox“Not Ok”，除了 Arial,10,Black

所以基本上我需要帮助找出由上述所有表达式/样式组成的同一个 word 文档中的所有表达式。

任何帮助都会非常非常感谢..请帮我解决这个问题仍然找不到解决方案..

Answer 1

通过下面的代码可以找到字体样式不同的句子。

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim oDoc As New Word.Document()
    Dim wapp As New Word.Application()

    Try
        oDoc = wapp.Documents.Open(TextBox1.Text & "\" & "TEST.doc")

        For Each Senetence As Word.Range In oDoc.Sentences
            For Each Character As Word.Range In Senetence.Characters
                If Character.Font.Name <> "Verdana" AndAlso Character.Font.Name <> "Arial" Then
                    MsgBox(" Font Name not matching Error Line number " & Senetence.Text)
                    Exit For
                End If
            Next
        Next
        oDoc.Close()
    Catch ex As Exception
        oDoc.Close()
    End Try

End Sub