2014-01-20 143 views
0

我在vb.net是新的檢查內容,我想檢查頁面的word document其中利潤率應該是如下的layout閱讀和Word文檔

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

如果佈局是正確的,然後它的確定或者如果它不正確,那麼它應該顯示一條錯誤消息。

同樣爲Font NameSizeBold,如果字體是比VerdanaArial和與Size 1216pt那麼它應該顯示其中不包含以下要求消息框行其他。

我在這個新的,因此不知道如何開始的東西任何幫助將非常感激。

回答

0

試試這個:

導入以下行

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 
+1

這個心不是工作顯示在BTN點擊我檢查頁邊距的所有錯誤也是正確 –

+0

進口micrisoft.word並添加引用它。顯示什麼類型的錯誤? – Sathish

+1

它顯示msgbox錯誤,而文件中沒有這樣的錯誤 –