Dim tm As String  = ProjectPath & "Attachments\\入院病历.doc" \'指定模板文件

Dim fl As String = ProjectPath & "Reports\\入院病历.doc" \'指定目标文件

Dim wrt As New WordReport(Tables("住院记录"),tm,fl) \'定义一个WordReport

wrt.Build() \'逐行生成报表

wrt.quit

Dim app As New MSWord.Application

try

    Dim fileName = fl

    Dim doc = app.Documents.Open(fileName)

    doc.Protect (Password:="123456", NoReset:=False, Type:= _

    MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)

    app.Documents.save

    app.Visible = True

catch ex As exception

    msgbox(ex.message)

    app.Quit

finally

    

End try