Vb.net 阅读和检查Word文档的内容
我是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
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检查我的更新