Dim wjm As Word.Application
Dim wda As Word.Document
Set wjm = CreateObject("Word.Application")
wjm.Visible = False
Set wda = wjm.Documents.Add()
wjm.Selection.Font.Size = 12
wjm.Selection.typetext Text:= "ok"
wda.SaveAs "C:\12.doc"
wda.Close
wjm.Quit
Set wjm = Nothing
Set wda = Nothing
---------------------------
总出现：此文件正由另一应用程序或用户使用。
还有：
怎样才能，把剪切板中 含有图文 复制到Word中.GetData行不通，生成的是-23343****数字类型。。？
help
你这段vba程序是写在word里吗？
如果是的话就有问题了，不能用wjm.Quit，因为wjm是word应用对象，vba不能关闭自身所在的word。
如果不是在word里，运行前先看看任务管理器的进程里有没有winword.exe进程，有的话先杀掉。
其实你可以用F8单步运行的，看走到哪一步出错。
____________________________________________________________
回补充的那个问题，我也不是很懂。
请参见链接 http://www.china-askpro.com/msg7/qa28.shtml，试试 .GetFromClipboard 方法。我没试成功。
又看到论坛上说：在Office 2003版中，VBA不直接提供操作Office剪贴板的方法，因此只能借助API函数来完成。
没有深入研究，楼主再请教高手吧。
如果是的话就有问题了，不能用wjm.Quit，因为wjm是word应用对象，vba不能关闭自身所在的word。
如果不是在word里，运行前先看看任务管理器的进程里有没有winword.exe进程，有的话先杀掉。
其实你可以用F8单步运行的，看走到哪一步出错。
____________________________________________________________
回补充的那个问题，我也不是很懂。
请参见链接 http://www.china-askpro.com/msg7/qa28.shtml，试试 .GetFromClipboard 方法。我没试成功。
又看到论坛上说：在Office 2003版中，VBA不直接提供操作Office剪贴板的方法，因此只能借助API函数来完成。
没有深入研究，楼主再请教高手吧。
参考资料：http://club.excelhome.net/viewthread.php?tid=309181&replyID=&skin=0
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-02-21
在wjm.Visible = False和wjm.Quit两句之间加入wjm.NormalTemplate.Saved = True （自动保存模板）一句可避免弹出normal.dot被使用的对话框。
