Navigate to next document without saving any changes in last document in AxWebBrowser

Question

Hi,
I am opening MS Office Document file in AxWebBrowser after that i navigate to next Office Document ,before navigating i saved the last document like this
AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_SAVE, SHDocVw.OLECMDF.OLECMDF_ENABLED)
but how can i navigate to next Document without saving it if it also have any changes?
if i do not use above line of code it ask for "Save","Don't Save" and "Cancel" before navigating to next document.
help me thankx

Answer 1

Hi,
I am opening MS Office Document file in AxWebBrowser after that i navigate to next Office Document ,before navigating i saved the last document like this
AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_SAVE, SHDocVw.OLECMDF.OLECMDF_ENABLED)
but how can i navigate to next Document without saving it if it also have any changes?
if i do not use above line of code it ask for "Save","Don't Save" and "Cancel" before navigating to next document.
help me thankx
Hello,
In this case, we need to get the object for that document inside the NavigateComplete2 event.
And then we could call its
close method before we navigate to the other document.
For get the document object we could refer to the sample shared in
How to use the WebBrowser control in Visual Basic to open an Office document
Public Class Form1
Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog()
Dim oDocument As Object
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim strFileName As String
'Find the Office document.
With OpenFileDialog1
.FileName = ""
.ShowDialog()
strFileName = .FileName
End With
'If the user does not cancel, open the document.
If strFileName.Length Then
oDocument = Nothing
AxWebBrowser1.Navigate(strFileName)
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Button1.Text = "Browse"
With OpenFileDialog1
.Filter = "Office Documents " & _
"(*.docx, *.xlsx, *.ppt)|*.docx;*.xlsx;*.ppt"
.FilterIndex = 1
End With
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As _
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
oDocument = Nothing
End Sub
Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, _
ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) _
Handles AxWebBrowser1.NavigateComplete2
On Error Resume Next
oDocument = e.pDisp.Document
'Note: You can use the reference to the document object to
' automate the document server.
MsgBox("File opened by: " & oDocument.Application.Name)
End Sub
End Class
And for closing part, we could refer to
How to: Programmatically Close Documents.
Regards,
Carl
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.