fieldset{padding:10px;}
vba 检索一个文件夹里的word文件并修改其内容本人想用vba代码检索一个文件夹里的word文件(.doc文件)并逐个提起word中的内容,请高手指点,本人是刚刚接触的…..——解决方案——————————————————–VB code
'具体代码还要你自己写啊,给个方法吧'添加一个filelistbox,名字file1,设置好属性,来获取某路径下的全部doc文件file1.visible=falsefile1.path=你的文件夹路径file1.pattern="*.doc"for i=0 to file1.listcount-1 Set objword = New Word.Application '生成word实例 objword.Visible = False '显示word窗口 objword.Documents.Open (你的文件夹路径 & "\&; & file1.list(i)) '打开一个文档 '你的处理代码 '...... objword.Quit '退出word Set objword = Nothing '释放资源next i------解决方案--------------------------------------------------------给你更新一个文件的方法 其它的你完善一下就可以了VB codeDim worddPrivate Sub Command1_Click()Set wordd = CreateObject("Word.Application") wordd.Documents.open "c:\muoban.doc" wordd.Visible = True wordd.Activate '查找内容并替换内容 With wordd.Selection.Find .Text = "查找内容" .Replacement.Text = "替换内容" .Forward = True .Wrap = 1 .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With wordd.Selection.Find.Execute Replace:=2 wordd.ActiveDocument.Save wordd.Application.Quit End Sub在泪水中浸泡过的微笑最灿烂,从迷惘中走出来的灵魂最清醒。