文件名称导入word bat bat 获取文件名称

发布日期：2020-10-12

批处理把文件夹（含子文件夹）中所有的word文件名写入该文件第1...

第一种方法DOS都可以啊 用可以显示文件名的命令 通过管道>来输出到文件 例如DIR 路径等参数 >要输出的文件名 TREE >要输出的文件名 输出以后 文件名就保存在那个文件中了 关于DIR 等参数 在CMD里 输入/？里面有详细的解释 截图提取文件名 你想把图怎么办 OCR? 其实是有专门的工具截取字体的第二种方法：用WINAMP完成：1）选把想要生成的文件夹中的文件全添加到WINAMP中2）点击播放列表框下面的“MISC”按钮3）选择“生成HTML播放列表”，就OK了

如何将文件夹中的文件名清单导入Word？

首先，调出Windows资源管理器，打开需要复制的文件夹。

将光标移到地址栏中的文件夹存放路径上，先单击一下鼠标右键（路径将会被选中），接着按鼠标右键，选择“复制”。

然后点击菜单“开始” “程序” “附件” “命令提示符”。

键入CD ＂（即：字母C+字母D+1个空格+1个双引号），然后点击鼠标右键，选择“粘贴”，敲一下回车键。

如果图片文件夹并非存放在电脑硬盘上，而是其它外围存储介质上，那么，在命令提示符窗口中请键入“驱动器字母+1个冒号”（比如说G：），然后按回车键。

窗口中将会弹出一串字符串，显示文件夹的名称，比如说，“G:\Photos\Concert>”。

在它的下面再键入一行新的命令： DIR /ON /B *.* > C:\folderlist.txt“/ON”用于指定文件夹内的文件按名称排序，“/B”用于生成一份“纯粹”的文件名清单，上面不需要显示文件的大小和修改日期。

“>”是用来指定命令行输入结果的存放地点（C:\folderlist.txt,C盘下将会生成一个名为folderlist.txt的文本文件）。

用Word格式打开folderlist.txt，里面显示的内容正是所需要的....

如何将一个文件夹内的所有文件名称列成一个表格或导出到TXT

推荐使用 Total Commander 7.02 增强版 ， 用起来很顺手，设置>选项>操作>鼠标使用右键选择（像 NC 一样）：Total Commander （最强的文件更名器） 文件批量重命名操作-------------------------------------------------------------------------- 1）任一窗口打开要更名的目录，按Ctrl+B，列出所有文件，按Ctrl+A，选中所有文件，或者点右键选择所需文件，按Ctrl+M，弹出重命名界面，文件名输入框中，输入新文件名格式，有很多参数、插件可供使用。

2）文件名：[N][C][ ]代表变量，[ 用 [ [ ] 表示，] 用[ ] ] （右侧无空格）表示，其余字符原样输出。

除常用变量外，可以通过插件获得丰富变量：如图片、音乐、office文档……的信息。

[N]代表原文件名。

[N1-3]代表取原文件名的左起第1位到第3位，位数可自定义，也可用鼠标选择。

[C]为计数器，代表数字，右侧定义计数器参数。

扩展名：[E][E]代表文件扩展名3）替换文件名中字符复制要替换的字符到搜索字符串，填写替换字符到替换为；如果替换为不填写，即删除字符，搜索、替换支持正则表达式。

4）根据TXT格式的文件来重命名文件大写小写旁边有列表样子的按钮，点击，选第一个“导入文件名（从文本文件）”……，行数匹配才可重命名，文件名要包括扩展名。

5）文件列表操作拖动文件，来调整次序，从列表中删除文件，按Delete键。

6）保存设置按F2，下拉列表中>保存设置>填入名称>确定，下次按F2，在下拉列表中选中名称，可调用参数。

7）更名预览合意，按按钮，完成更名。

8）撤销调出重命名界面，按按钮，撤销上次更名，注意只能撤销一次。

--------------------------------------------------------------------------------------Total Commander不能完成的，用菲菲更名宝贝、拖把更名器。

Total Commander 文件管理操作----------------------------------------1）文件复制选中文件或文件夹，按复制按钮 或 F5，在弹窗中第一行：填入文件名可使用通配符；第二行文件筛选器，可指定文件扩展名、文件扩展名的各种常用集合、文件的某种属性（例：文件夹属性，可只复制文件夹不复制文件）……，确定执行复制，重复文件有弹窗按需选择操作。

delphi中把查询出来的数据导入word中？

我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您，望对您有所帮助。

procedure TFrmMain.N327Click(Sender: TObject); var FWord :Variant; FDoc :Variant; strSQL :string; begin //首先创造对象，如果出现异常就做出提示 try FWord := CreateOleObject("Word.Application"); //WOrd程序的执行是否可见，值为false时，程序在后台运行。

FWord.Visible := True; except messagebox(0，"创建word对象失败！"，"警告"，MB_OK+MB_ICONINFORMATION); exit; end; strSQL :="select * From ＂B_T_Company_Infor＂"; with dm.ClientDataSet_Temp do begin if Active then Active:=False; CommandText:=strSQL; Open; end； //现在打开的Word中，创建一个新的页面，然后在其中键入需要的内容 try FDOC :=FWord.Documents.Add； {对于Word的新页面} FWord.Selection.Font.Name ：="宋体"； FWord.Selection.Font.Size :=20; FWord.Selection.Font.Bold :=2; FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter; FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString); FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph; FWord.Selection.paragraphs.Alignment := wdAlignParagraphLeft; FWord.Selection.Font.Size :=12; FWord.Selection.Font.Bold :=0; FWord.Selection.TypeText（" 现将我社组团部的"）； FWord.Selection.TypeText(" "); FWord.Selection.TypeText（"团计划发出，各地请按下列行程做接待，并及早落实"+ "团队计划和选派优秀导游员。

各地代订住宿、火车票、机票务必安排好接待，日程"+ "如有变更，及时与下站接待社或本社联系，各地接团时请举【"+ dm.ClientDataSet_Temp.Fields[0].AsString+"】接站牌。

"）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText（"请速回传真确认，谢谢合作！"）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText（"人数："）； FWord.Selection.TypeText（"人数："）； FWord.Selection.TypeText（"国籍："）； FWord.Selection.TypeText（"国籍："）； FWord.Selection.TypeText（"等级："）； FWord.Selection.TypeText（"等级："）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText（"这里是团队安排"）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("TO: "); FWord.Selection.TypeText("12345678901234567890"); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("TEL: "); FWord.Selection.TypeText("12345678901234567890"); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("FAX: "); FWord.Selection.TypeText("12345678901234567890"); FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("______________________________________________"); FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("FROM: "); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("TEL: "); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[3].AsString); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("FAX: "); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[4].AsString); FWord.Selection.Typeparagraph；//换行 Except on e: Exception do Messagebox(0,Pchar(e.Message)，"警告"，MB_OK+MB_ICONINFORMATION); end； //保存文档 FWord.Caption ：= "组团计划保存在： "+ExtractFilePath(application.ExeName)+"Reports\GroupPlan.doc"; FDOC.SaveAS(ExtractFilePath(application.ExeName)+"Reports\GroupPlan.doc"); if messagebox(0，"组团计划已经保存成功！"+chr(13)+chr(13)+ "单击【确定】退出Word，返回到程序中！"，"您确信要退出Word吗？"， MB_YESNO+MB_ICONINFORMATION+MB_DEFBUTTON2)=IDYES then begin FWord.Quit; FWord := Unassigned; end; end; ----------------------------- Delphi与Word之间的融合技术（1） 一、VBA代码含义 Microsoft Word是一个集成化环境，是美国微软公司的字处理系统，但是它决不仅仅是一个字处理系统，它集成了Microsoft Visual Basic，可以通过编程来实现对Word功能的扩展。

Microsoft Visual Basic在word中的代码即Word的宏，通过编写Word宏，可实现一些文档处理的自动化，如实现文档的自动备份、存盘等，可扩展Word文档的功能，因此，能够充分利用Word的特性，甚至使Word成为自己软件的一部分。

Word的宏既有有利的一部分，因为它能够帮助我们实现文档的自动化，但是Word的宏也不是纯粹的有利，有时它可能危害我们的文档、计算机系统甚 至网络，从最开始的Taiwan NO1宏病毒到现在的...