如果批量提取多个WORD的文件名。
操作步骤。
第一,首先将需要批量替换的多个Word文档放在同一文件夹下面。
第二,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。
第三,在控件工具箱上单击“命令按钮”,文档中就放置了一个按钮了。
第四,双击该按钮,进入VB代码编写模式,将以下代码复制进去。
Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim myPas As String, myPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker).Title = "选择目标文件夹"If .Show = -1 ThenmyPath = .SelectedItems(1)ElseExit SubEnd IfEnd WithmyPas = InputBox("请输入打开密码:")With Application.FileSearch.LookIn = myPath.FileType = msoFileTypeWordDocumentsIf .Execute > 0 ThenFor i = 1 To .FoundFiles.CountSet myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = "大家好".Replacement.Text = "你好".Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllmyDoc.SavemyDoc.CloseSet myDoc = NothingNextEnd IfEnd WithApplication.ScreenUpdating = TrueEnd Sub第五,保存上面代码,退出VB编辑模式,返回Word文档界面。
第六,单击选中该按钮,再单击控件工具箱的第一个按钮“退出设计模式”。
第七,进行测试:点击按钮,选择要放置多个WORD文档所在的文件夹,确定后即可完成!注意如果WORD文档没有加密的话,密码项就不填,直接确认。
如何在同一个word文档的多个页面的页脚处“一次性”标注相同的文件...
在页脚中设置哟,视图——页眉页脚,再在弹出页眉页脚工具条中选择“页眉与页脚切换”切换到页脚,在页脚中输入文件名(实际上工具条上有自动图文集,在其中选择“文件名”——这样以后文件一旦修改,页脚就会自己更新),关闭页脚后回到正文。
页眉页脚中的内容会在第一页中出现。
当我保存word文档时,会多出现多个同样的隐藏文档,而且文件名前还...
有一些假定,每个文本文件只保存一行数据,只有两个地点,自己看看吧,文件格式不正确,自己修改吧.可以把指定目录内的所有txt文件,合并后保存到指定的txt文件中.package net.netjava.fileutil;import java.io.BufferedReader;import java.io.File;import java.io.FileInputStream;import java.io.FileOutputStream;import java.io.FilenameFilter;import java.io.IOException;import java.io.InputStreamReader;import java.io.PrintStream;import java.util.ArrayList;import java.util.List;/** * * @author HP */public class FileTools { private final String aPrefix="aaaa"; private final String bPrefix="bbbb"; /** * 返回第一行内容 * @param fname 文本文件名称 * @return * @throws java.io.IOException */ private String readLineFromTxt(String fname)throws IOException { String line; // 用来保存每行读取的内容 BufferedReader reader = new BufferedReader(new InputStreamReader(new FileInputStream(fname))); line = reader.readLine(); // 读取第一行 reader.close(); return line; } /** * * @param a * @param b * @param fname */ private void writeToTxt(List a,List b,String fname)throws IOException { PrintStream ps = new PrintStream(new FileOutputStream(fname)); for(int i=0;i<a.size();i++) ps.println(a.get(i)); for(int i=0;i<b.size();i++) ps.println(b.get(i)); ps.close(); } /** * 合并指定目录内的多个文本文件 * @param strPath 批量文本文件所在目录名称 * @param strFile 生成的文本文件名称 * @return */ public boolean mergeFile(String strPath,String strFile){ boolean f=true; List listA=new ArrayList();//aaaa内容 List listB=new ArrayList();//bbbb内容 File path=new File(strPath); if(!path.exists()||!path.isDirectory()){//输入的必须是目录 f=false; }else{ try{ String[] fname=path.list(new FilenameFilter(){ public boolean accept(File dir, String name) { if(name!=null&&name.endsWith(".txt")) return true; else return false; } });//获取目录内所有.txt结尾的文件名字 for(int i=0;i<fname.length;i++){ String tmp=this.readLineFromTxt(strPath+"\\"+fname[i]); if(tmp==null) continue; if(fname[i].startsWith(aPrefix)){ listA.add(aPrefix+tmp); }else if(fname[i].startsWith(bPrefix)){ listB.add(bPrefix+tmp); } } this.writeToTxt(listA, listB, strFile); }catch(Exception e){ e.printStackTrace(); f=false; } }return f; } public static void main(String[] args){ FileTools ft=new FileTools(); ft.mergeFile("c:\\txt", "d:\\out.txt"); }}
怎样把一个文件夹内的部分文件批量提取到另一个文件夹
如果文件有规律的可以实现操作,如果没规则的话,只能是单个文件复制的形式操作了。
针对前一种情况:第一步:找到所有文件夹的父类文件夹;第二步:在搜索框中输入搜索的内容,如”.java“;第三步:选中多个要拿出来的文件,右击复制(CTRL+C);第四步:粘贴到需要放置的文件夹中即可。
转载请注明出处51数据库 » 获取多个word文档的文件名