1. 如何批量提取word文档中的题目作为文件名(word第一行生成文件名称)
假如你d:\word目录下
复制如下代码:
dir d:\word\*.doc >d:\word.txt
在桌面新建一个文本文档,将代码粘贴进入,将文本文档的后缀名改为.bat
双击运行,它会把d:\word目录下的word文件全部找出来写在d:\word.txt文件里。。。
2. 如何批量提取多个Word的文件名
批量提取多个Word的文件名的具体步骤如下:
需要准备的材料分别是:电脑、Word文档。回
1、首先打开电脑,右键答点击桌面空白处新建一个文本文档。
2、然后在弹出来的窗口中点击打开“”
3. 如何将WORD文档里的特定内容改成文档名
'在win2000以上系统,可以通过脚本解决该问题。
'基本思路是,创建word对象,遍历一个目录下所有文件,通过word对象打开某个文件,完成替换操作,关闭该文件,继续打开下一个文件。
'前提条件,请将所有要替换的doc文件放置在一个目标文件夹下。
'遍历一个目录下所有的文件:
'请注意在执行本程序前将目标文件夹下的文件备份。
'将等号下的文字复制后保存到"替换.vbs"文件即可
'============================
Sub th(folderspec)
Set objWord = CreateObject("word.Application") '创建word对象
objWord.Visible = True '将word程序显示出来
Set fso=CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec) 'folderspec指的是目标文件夹的路径,也就是你放word文件的路径。
Set fc = f.Files
for each f1 in fc
if LCase(right(f1.name,4))=".doc" then '仅打开doc格式的文件,如果是office2007请换成.docx
path=f.path & "\" & f1.name '这里生产当前选定doc文件的绝对路径,其中f1.name是word文件名。
Set objDoc = objWord.Documents.Open(path)
Set objSelection = objWord.Selection
objSelection.Find.Replacement.ClearFormatting
objSelection.Find.Text = "1111" '要代替的关键字,可根据实际情况修改该参数
objSelection.Find.Replacement.Text = "2222" '本程序将doc中的1111替换为2222,可根据实际情况修改该参数
objSelection.Find.Forward = True
objSelection.Find.Wrap = wdFindContinue
objSelection.Find.Format = False
objSelection.Find.MatchCase = False
objSelection.Find.MatchWholeWord = False
objSelection.Find.MatchByte = True
objSelection.Find.CorrectHangulEndings = False
objSelection.Find.MatchWildcards = False
objSelection.Find.MatchSoundsLike = False
objSelection.Find.MatchAllWordForms = False
objSelection.Find.Execute ,,,,,,,,,,2
objDoc.Save '保存当前文档
objDoc.Close '退出当前文档
end if
Next
End Sub
x=InputBox("批量替换工具","请输入要目标文件夹地址。")
if x<>"" then
th x
end if
4. word怎么改文件名字
你可以直接右击文件名,选择重命名就能更改,也可以在word中选择文件中的另存为,并更改一个文件名。
5. 如何把文件夹中的word文档名称提取出来
假设你文件夹的路径是 d:\abcd\
按照以下步骤操作:
按键盘win+r 或者 开始菜单-运行。
键入回cmd ,确定。打开命令答提示符窗口。按下面键入命令,每行回车
d: (根据上面假设键入盘符,请根据实际情况键入)
cd d:\abcd (根据上面假设键入路径,请根据实际情况键入)
dir *.doc /b /s > list.txt (把目录下包括子目录所有doc文件列表到list.txt文件中,如果是word2007以上版本的文档改成*.docx。如果不需要子目录,去掉/s 。)
这样在目录下会生成list.txt里面就是文档名列表了。