高分求教:在word中用代码(VBA语言)怎么把选取的文档中的内容保存到另外的一个文件中? 先查看WORD的对象类库调用APPLICATION.DOCUMENT的函数,其中有一个文档保存的函数,好象是SAVEAS() 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Selection.CopyDocuments.Open FileName:="2.doc", ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAutoSelection.PasteActiveDocument.Save 我想这样可以解决 你先用 word宏生产选择的代码。 然后一般是这样 现 create 一个新对象为 word.document 然后粘贴上去(如何粘贴你可以看生产得宏) 调用save 调用 close 这样也错了? 如何退出我的应用程序?在线等 关于数据库更新超时的问题 关于Activex控件问题 把你此时此刻的心情写下来吧,哪怕只有一句话,让大家共同分享你的喜与悲,你此刻的心情也会在这个帖子里永存~! 在线等……VB中如何把String转换为Byte数组????快回,马上给分。 如何将 RECORDSET 的内容逐条显示在MSFLEXGRID里?! 如何查询出 某个字段中有空格的记录? Webbrowser 如何取得 LABEL 标签里的字符串? 关于邮件监控问题,请高手帮忙!!!!! 163怎么也拨不通? 急救!如何编Twin获取的程序?
Documents.Open FileName:="2.doc", ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto
Selection.Paste
ActiveDocument.Save
然后一般是这样 现 create 一个新对象为 word.document
然后粘贴上去(如何粘贴你可以看生产得宏)
调用save
调用 close