返回目录:office365
批量提取多个Word的文件名的具体步骤如下:
需要准备的材料分别是:电脑、Word文档。
1、首先打开电脑,右键点击桌zd面空白处新建一个文本文档。
2、然后在弹出来的窗口中点击打开“”
内查看大图" class="ikqb_img_alink">
3、然后点击打开文本文档,输入:dir F:\word\*.doc >F:\word.txt。
4、然后点击文件中的“保存”,关闭文本文档。
5、右容键单击文本文档选择重命名。
6、然后将后缀名改成“.bat”,然后双击该程序。
7、然后打开计算机,点击上方输入F:\word.txt,回车确定。
8、然后就看到提取的Word文档名字了。
批量提取文件名到EXCEL表最快,具体操作步骤如下:
1、首先,如图所示的文件夹,我们将要提取里面所有zdjpg图片的名字。
2、接下来点击开始菜单,找到记事本程序打开。
3、然后右击上面所示文件夹的地址,复制地址。
4、在记事本中按右键粘贴。
5、粘贴好后在地址前输入for /r,在地址后输入%%a in (*.jpg) do echo %%~na >>生成文件.txt。注意里面的jpg要换成你自己要提取的文件类型扩展名。
6、接下来点击关闭按钮,点击保存。
7、在保存对话框专中选择保存类型为所有文件,再输入文件名,文件名后加上“.bat”,也就是保存成批处理文件。
8、把该批处理文件移动到要提取文件名的文件夹里,然后双击运行。
9、文件夹里就多出属了一个生成文件.txt的记事本文档。双击打开就看到所有的文件名了。
10、打开Excel,点击数据,点击自其他来源,来自XML数据导入。
11、在导入对话框中选择生成文件.txt,点击打开。在导入向导中点击完成。
12、在导入数据位置中点击确定,名字就导入到Excel表中了。
只能用宏过程来处理了。
Sub 插入文件名及其内容()
Ag:
Path = InputBox("请指定待插入的word文件所在的文件夹。", "消息e5a48de588b6e79fa5e98193335", Application.Path)
If Dir(Path & "\*.doc") = "" And Dir(Path & "\*.docx") = "" Then
rc = MsgBox("该目录不存在word文档,请重新指定!", vbCritical + vbRetryCancel, "消息")
If rc = vbRetry Then GoTo Ag
Exit Sub
End If
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
f = Dir(Path & "\*.doc")
If f = "" Then f = Dir(Path & "\*.docx")
If f <> "" Then
i=0
Do
i=i+1
pos = InStrRev(f, ".")
ft = Left(f, pos - 1)
Selection.Text = "文件" & i & "(" & ft ")" & vbCrLf '这是插入文件名的
Selection.EndKey
Selection.MoveDown
f = Path & "\" & f
Selection.InsertFile FileName:=f, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False '这是插入文档内容的
Selection.Text = vbCrLf & vbCrLf
Selection.EndKey
f = Dir()
Loop While f <> ""
ActiveDocument.SaveAs FileName:="C:\合并后的文档.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
MsgBox "处理完毕!合并后的文档保存为 C:\合并后的文档.doc", vbInformation + vbOKOnly, "消息"
Shell "explorer.exe /select,c:\合并后的文档.doc", vbNormalFocus
End If
End Sub
把这个宏过程粘贴到宏过程编辑器里面,按F5运行即可。
有关文件批量处理的其他功能,可参见 《文件批量处理百宝箱V10.0》中的相关功能。
以office365为例,直接插入“域”对应的域代码,即可实现,如下图:
步骤:
①插入-文档部件-域
②找到域代码 FILENAME 后插入