word文件名汇总代码

1. 关于图片批量导入word中并在图片上方附加文件名的VBA代码编辑

Sub 批量插入图片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "E:\工作文件" ‘这里输入你要插入图片的目标文件夹
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '这两句移到这里
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例调整相片尺寸
WidthNum = MyPic.Width
c = 6 '在此处修改相片宽,单位厘米
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
执行此代码后，弹出的选择对话框， 全选目标文件夹下的所有图片文件之后，点击确定。然后静静的等待电脑完成处理工作，次数word会进入无响应状态。图片越多，无响应的时间越长。

2. 怎么批量修改word文件名,我又许多这样的文件，怎么把这些不同的文件名统一成代码或日期什么的……

需要修改名字的文档全部选中，右键-重命名，输入你需要的名字。比如输入日期2010-11-11，确定，文档名称就会出现变成2010-11-11（1），2010-11-11（2），2010-11-11（3），。。。。。。
希望对你有帮助哦~

3. word文件如何批量改名

使用dos命令来，在文件所自在目录 dir/b>1.txt 获得文件名，存在1.txt里面。
然后用excel打开1.txt，与人员名单表格对应。做成ren A.doc B.doc 样式（将A名称替换为B名称），注意中间的空格，存为txt文件。
然后新建txt输入下面代码。重复 ren A.doc B.doc
@echo off
echo 正在替换文件名，请稍等......
#示例
ren A.doc B.doc
#说明：把A文件名替换成B文件名
echo 替换文件名完成!
echo. & pause

另存为.bat，执行即可

4. 将N个word文档的文件名汇总成一张电子表格，应该怎么做简便

方法：使用“批处理”。

1、在桌面新建一个txt文档陵告毁，输入以下内容（L为文件所在磁盘，cd知识题库为路尺备径，>C:a.txt为输出到C盘下的A.txt文档）。

@echo off

L:

cd知识友穗题库

dir *.doc /s/B/N >C:a.txt

echo 文件已经导出请在C盘查看~

pause
exit

5. 在百度文库下载的word文件打开后全是代码，怎么办

在您下载文档时，若您的电脑上已安装了迅雷、快车等下载软件，则有可能导致下载失败。所下载下来的文件是一个网页，error.html，而不是想要下载的文档附件。文件名可能是error.word，而且文件打开后，还是乱码。
第一步：选择下载软件的“设置”或“配置”操作；

第二步：找到“监视浏览器”和“检查迅雷（或快车）是否誉袭睁禅昌是IE默认的下载工具”，取消这两项的勾选；
第三步：应用再确认，就OK了庆岁。
祝你成功。

6. 如果批量提取多个WORD的文件名。

假如你d:\word目录下
复雹坦塌制如下代码:
dir d:\word\*.doc >d:\word.txt
在桌面新建一个文本文档，将代码粘贴进入，将文本文档信羡的后缀名改为.bat
双击运行，它会把d:\word目录下的word文件全部找出来写在d:\word.txt文件里。源圆。。

7. 如何批量提取多个Word的文件名

批量提取多个Word的文件名的具体步骤如下：

需要准备的材料分别是：电脑、Word文档。回

1、首先打开电脑，右键答点击桌面空白处新建一个文本文档。

2、然后在弹出来的窗口中点击打开“”

8. 将N个word文档的文件名汇总成一张电子表格，应该怎么做简便

有一个折中的办法：首先你的N个文件夹必须在同一目录下，在此目录下新建一个文本文件，打开，输入
dir
/s
>>doc.txt
，另存为一个.bat文件(保存类型选所有文件)。
关掉后运行这个.bat文件，则可在这个目录下生成一个doc.txt的文本，里面就有你要的所有文件的名称了。你再把这个文本导入到EXCEL中加工一下就OK了。

9. 怎么批量把word的“标题”设置成为“文件名”

VBS处理
代码如下

Option Explicit
On Error Resume Next ' 容错语句，避免程序崩溃 '有可能重命名文件已经存在，忽略错误。

Dim fso,fs,f
Dim i
Dim strNewName
Const strCurrentPath = "."

Msgbox "根据文本文件第一行批量重命名的VBS程序" & vbcrlf & vbcrlf & "Created By Shortway",0,"QQ:380710203"

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set fs = fso.GetFolder(strCurrentPath).Files
i = 0
For Each f In fs '遍历当前文件夹内每个文件
If LCase(right(f.name,3))="txt" Then '判断是否是文本文件
strNewName = Trim(fso.OpenTextFile(f, 1, False).ReadLine) '得到第一行

'以下剔除不能作文件名的特殊字符
strNewName = Replace(strNewName, "\", "")
strNewName = Replace(strNewName, "/", "")
strNewName = Replace(strNewName, ":", "")
strNewName = Replace(strNewName, "*", "")
strNewName = Replace(strNewName, "?", "")
strNewName = Replace(strNewName, """", "")
strNewName = Replace(strNewName, ">", "")
strNewName = Replace(strNewName, "<", "")
strNewName = Replace(strNewName, "|", "")

strNewName = left(strNewName,50) '有时第一行文字太多了，就选50个字符了

f.name=strNewName & ".txt"
i = i + 1
End if
Next
Msgbox i & "个文件改名完成！（忽略重名）"
Set fs = Nothing
Set fso = Nothing

将以上代码粘贴到记事本中，然后另存为后缀为vbs文件，如“标题修改.vbs”，把要处理的文件与vbs文件放在同一文件夹中，然后运行vbs文件，数据无价，修改时请先实验测试。