Sub A()
 FName = Dir("C:\Documents and Settings\ld\桌面\123*.doc")
 Do While FName <> ""
 Documents.Open FileName:="C:\Documents and Settings\ld\桌面\123" & FName
 ActiveWindow.Close Savechanges:=False
 FName = Dir
 Loop
End Sub

为什么运行不了呢？也没有提示任何错误。。。
求指导，我是新人小白

建议到［VB论坛］左下角关健字输入“word”,点击“本版搜索”，可能有帮助。

没有弄过打印。
可以参考这个网页http://www.

找过了，，没看到适合我的情况的

谢谢  我得研究研究
就是本人初涉VB  实力懵

慢慢来吧。这个虽然不是很难，但是也是需要积累的过程。