主题：关于用狐表打开Word并修改

我想问下老师，用狐表打开Word文档，并安排有权限的人可以修改，怎么实现呢

Dim app As New MSWord.Application

try
    Dim doc = app.Documents.Open("d:\test.doc")
    If doc.ProtectionType <> 3 Then
        doc.Protect (Password:="123456", NoReset:=False, Type:=MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
        app.Documents.save
    End If
   
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   

   
End try