主题：在窗口中打开文件

axWebBrowser = Nothing
Do Until axWebBrowser IsNot Nothing
    Application.DoEvents
Loop
Dim Doc As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
Dim app As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, Doc, Nothing)

try
    doc.Range(Start:=20, End:=30).InlineShapes.AddPicture(FileName:= _
    "D:\123.jpg" _
    , LinkToFile:=False, SaveWithDocument:=True)
    Doc.save
    messagebox.show("您已成功插入图片!!")
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

上面代码执行完后并没有报 messagebox：("您已成功插入图片!!")

再打开Word时才会提示插入成功，这个顺序有点不符合逻辑啊

 一样

doc.Protect (Password:="", NoReset:=False, Type:= _
        MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)

http://msdn.microsoft.com/zh-cn/library/office/jj230379.aspx

好吧，我自己再试一下吧

上面的doc应该怎么定义呢？是这样？

• Dim App As New MSWord.Application
  Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")