主题：能不能利用代码给WORD报表加一个文档保护密码？

 

测试，没有问题的，一切正常。杀死进程，或者你重启电脑再试吧

没有解决问题，单独打开已加密码的WORD报表没有问题，代码合起来在我的电脑就有问题（WORD2003）.能不能这样分开处理，先生成WORD报表文件－－〉给文件加文档保护密码（不要不显示报表）－－－〉再显示WORD报表

 

代码就是生成word，然后加入密码，然后显示啊。

 

代码我测试是没有任何问题的啊

Dim tm As String  = ProjectPath & "Attachments\A表.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\A表.doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),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
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.OfficeToolBar = True
web.Address = fl

已看过WORD没有驻留。

 看15楼啊

如果还报错，这样写代码试试

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("winword")
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle = Nothing  Then
            p.kill       
    End If
Next

Dim tm As String  = ProjectPath & "Attachments\A表.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\A表.doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),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
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.OfficeToolBar = True
web.Address = fl

  不可能啊，测试没问题啊。看楼上的代码啊。