Vb.net 阅读和检查Word文档的内容

Vb.net 阅读和检查Word文档的内容,vb.net,visual-studio-2010,visual-studio,Vb.net,Visual Studio 2010,Visual Studio,我是vb.net新手,我正在尝试检查word文档的页面布局,其中页边距应如下所示: a. Left/Right: 0.4 b. Top/Bottom: 0.5 c. Header/Footer: 0 如果布局正确,则显示ok;如果布局不正确,则显示错误消息 字体名称和粗体大小相同,如果字体不是Verdana和Arial,大小为12或16pt,则应在消息框中显示不包含以下要求的行 我在这方面是新手,因此不知道如何开始工作。任何帮助都会非常感激 试试这个: 导入以下行 Imports Micros

我是vb.net新手,我正在尝试检查word文档的页面布局,其中页边距应如下所示:

a. Left/Right: 0.4
b. Top/Bottom: 0.5
c. Header/Footer: 0
如果布局正确,则显示ok;如果布局不正确,则显示错误消息

字体名称和粗体大小相同,如果字体不是Verdana和Arial,大小为12或16pt,则应在消息框中显示不包含以下要求的行

我在这方面是新手,因此不知道如何开始工作。任何帮助都会非常感激

试试这个:

导入以下行

Imports Microsoft.Office.Interop.Word
Imports Microsoft.Office.Interop


  Dim oDoc As New Word.Document()
  Dim wapp As New Word.Application()
  oDoc = wapp.Documents.Open(filepath)

      if wapp.InchesToPoints(oDoc.PageSetup.LeftMargin) = 0.4 or 
wapp.InchesToPoints(oDoc.PageSetup.RightMargin) = 0.4 then
               MsgBox("Margin Warning")
          End if

   For Each xpr As Word.Paragraph In oDoc.Paragraphs


     if xpr.Range.Font.Name<>Verdana  or xpr.Range.Font.Name<>Arial then 
           MsgBox(" Font Name Warning")
     End if

    if xpr.Range.Font.size<>12or xpr.Range.Font.size<>16 then 
           MsgBox(" Font Name Warning")
    End if

 Next

这不起作用显示btn上的所有错误单击我已检查页边距也是正确的导入micrisoft.word并将引用添加到其中。显示什么类型的错误?它显示msgbox错误,而在中没有此类错误file@jigar检查我的更新