请教VBA控制word的问题

Question

Q1:怎么能使word打开后点击右键快捷菜单不弹出来？
 Q2:怎么能在关闭word（文档有改动但不想保存）时不提示保存？
 Q3:为什么我用下面的代码：'
   wordApp.CommandBars(21).Enabled = False
   wordApp.CommandBars(19).Enabled = False
   wordApp.CommandBars(22).Enabled = False
 使复制/粘贴/剪切失效；然后用代码：    
   wordApp.CommandBars(21).Enabled = True
   wordApp.CommandBars(19).Enabled = True
   wordApp.CommandBars(22).Enabled = True
 想恢复，但是快捷菜单中的对应功能还是无效？

Answer 1

Q2: 
Dim w As New Word.Application
w.Documents.Add
w.Selection.TypeText Text:="fdsafds"
w.ActiveDocument.Saved = True   '<======= 这一句可以不提示保存
w.Visible = True
    
Set w = Nothing

Answer 2

TO: xayzmb(行者)   不行啊，我说的是
  Set myDoc = wordApp.Documents.Open("f:\test1.doc")
  wordApp.Visible = True
打开word之后，用户修改文档内容后关闭，不出现文件是否保存的那个提示框

Answer 3

Q3已经解决了。
Q1和Q2请高手指点指点，谢谢了。

Answer 4

Q2:
在你的宏的模快里加一subSub AutoClose()For i = 1 To 100
ActiveDocument.Undo
Next
End Sub如果你对文档的改动量大的话,就把循环的次数调大些,但是不会影响程序的速度,因为如果Undo到头的话,就会自动停止的,所以循环的次数可以调的大些