fieldset{padding:10px;}
vba 检索一个文件夹里的word文件并修改其内容本人想用vba代码检索一个文件夹里的word文件(.doc文件)并逐个提起word中的内容,请高手指点,本人是刚刚接触的…..——解决方案——————————————————–
'具体代码还要你自己写啊,给个方法吧'添加一个filelistbox,名字file1,设置好属性,来获取某路径下的全部doc文件file1.visible=falsefile1.path=你的文件夹路径file1.pattern="*.doc"fori=0tofile1.listcount-1Setobjword=NewWord.Application'生成word实例objword.Visible=False'显示word窗口objword.Documents.Open(你的文件夹路径&"\"&file1.list(i))'打开一个文档'你的处理代码'......objword.Quit'退出wordSetobjword=Nothing'释放资源nexti
——解决方案——————————————————–给你更新一个文件的方法其它的你完善一下就可以了
DimworddPrivateSubCommand1_Click()Setwordd=CreateObject("Word.Application")wordd.Documents.open"c:\muoban.doc"wordd.Visible=Truewordd.Activate'查找内容并替换内容Withwordd.Selection.Find.Text="查找内容".Replacement.Text="替换内容".Forward=True.Wrap=1.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithwordd.Selection.Find.ExecuteReplace:=2wordd.ActiveDocument.Savewordd.Application.QuitEndSub
人之所以能,是相信能。