Question

我是vb.net的新用户，我尝试检查layout的页面word document，其中边距应如下所示，

a. Left/Right: 0.4
b. Top/Bottom: 0.5
c. Header/Footer: 0

如果布局正确，那么它的确定或如果不正确则应显示错误消息。

Font Name和Size与Bold相同，如果字体不是Verdana而Arial只有Size 12或{{1}然后它应该在消息框中显示不包含以下要求的行。

我是新手，因此不知道如何开始任何帮助将非常感激。

Answer 1

试试这个：

导入以下行

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

阅读和检查Word文档的内容

1 个答案: