vb.net关闭word

[Candbasic]

每次用vb.net对word进行修改后，在关闭时都会提示是否保存修改，和此文件正由另一应用程序或用户使用，，，

如果要直接退出，以上提示不再出现该怎么写代码？

[ZengHD]

直接删除进程

[Candbasic]

是否保存修改《----仍然出现--||

[ZengHD]

把你打开、关闭WORD的代码贴出来

[Candbasic]

Dim wordapp As Word.Application
Dim worddoc1 As Word.Document
Dim range1 As Word.Range
wordapp = CreateObject("Word.Application")
worddoc1 = wordapp.Documents.Add("C:\Documents and Settings\YuanWenjian\桌面\stu.doc")
range1 = worddoc1.Lists(1).ListParagraphs(1).Range
worddoc1.Lists(1).ConvertNumbersToText()
wordapp.Application.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(worddoc1)
worddoc1 = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject(wordapp)
wordapp = Nothing
GC.Collect()

[fairy4]

你直接在代碼裡面保存WORD，然後在關閉

[cauhorse]

关注下。

[weeyn]

代码 wordapp.Application.Quit() 前
加 worddoc1.SAVE

worddoc1.close

[yanlongwuhui]

文档保存后需要如下步骤：
worddoc1.close()
wordapp.Quit()
worddoc1 = Nothing
wordapp = Nothing
GC.Collect()

[niitxdy]

我顶一下

[北京的雾霾天]

Application.DisplayAlerts=0;// wdAlertsNone

[Candbasic]

可以不保存就关闭的吗？

[yanlongwuhui]

可以。通过worddoc1 .Close(Word.WdSaveOptions.wdDoNotSaveChanges)

[yanlongwuhui]

不保存按如下步骤：
worddoc1.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
wordapp.Quit()
worddoc1 = Nothing
wordapp = Nothing
GC.Collect()

[sailorgg]

[Quote=引用 11 楼 Candbasic 的回复:]
可以不保存就关闭的吗？
[/Quote]

可以设置
worddoc1.Saved = True
wordapp.Quit()
worddoc1 = Nothing
wordapp = Nothing
GC.Collect()