作者:乔山办公网日期:
返回目录:office365
可以用脚本来做。
1、用记事本新建一个文本文件,把它保e68a847a64333存为“批量重命名.vbs”(注意不要弄成了“批量重命名.vbs.txt”,也就是要确保其扩展名为“.vbs”);
2、把下列代码粘贴到这个VBS文件中:
Option Explicit
Const g_strRootPath = "c:\Temp\docs\Word\ToRename\" ' 指定存放所有文件的目录,可以有子目录
Const g_nTitleMaxLen = 16 ' 指定获取文档里面第一段中的前多少个字符来作为文件名
Call Main
' 主函数入口
Sub Main()
Dim fso, oFolder, oWordApp
Set oWordApp = CreateObject("Word.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(g_strRootPath)
RenameDocFilesUnderFolder oWordApp, fso, oFolder
oWordApp.Quit
Set oWordApp = Nothing
MsgBox "完成!"
End Sub
' 重命名指定文件夹(递归)下面的所有Word文件,按照文件里面的第一句可见的文字命名
Sub RenameDocFilesUnderFolder(oWordApp, fso, oFolder)
Dim oSubFolder, oFile, oDoc
Dim strTitle, strFileName
For Each oSubFolder In oFolder.SubFolders
RenameDocFilesUnderFolder oWordApp, fso, oSubFolder
Next
For Each oFile In oFolder.Files
Set oDoc = oWordApp.Documents.Open(oFile.Path)
strTitle = GetFirstVisibleTextContent(oDoc)
oDoc.Close
Set oDoc = Nothing
If Len(strTitle) <> 0 Then
strFileName = fso.BuildPath(fso.GetParentFolderName(oFile.Path), strTitle & "." & fso.GetExtensionName(oFile.Path))
strFileName = GetUniqueFileName(fso, strFileName)
fso.MoveFile oFile.Path, strFileName
End If
Next
End Sub
' 获取指定文档第一行可见文字
Function GetFirstVisibleTextContent(oDoc)
Dim oParagraph
Dim strContent
For Each oParagraph In oDoc.Paragraphs
strContent = GetSafeFileName(oParagraph.Range.Text)
If Len(strContent) <> 0 Then
GetFirstVisibleTextContent = strContent
Exit Function
End If
Next
GetFirstVisibleTextContent = ""
End Function
' 过滤文件名里面的无效字符
Function GetSafeFileName(strFileName)
Dim arrUnsafeCharacters, strUnsafeChar
Dim nIndex
arrUnsafeCharacters = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
For nIndex = 0 To &H2F
strFileName = Replace(strFileName, Chr(nIndex), "")
Next
For Each strUnsafeChar In arrUnsafeCharacters
strFileName = Replace(strFileName, strUnsafeChar, "")
Next
GetSafeFileName = Left(Trim(strFileName), g_nTitleMaxLen)
End Function
' 获取不重复的文件名,如果有重名则在文件名后面附加“_1”、“_2”……
Function GetUniqueFileName(fso, strFullName)
Dim strParentFolder, strBaseName, strExtensionName
Dim nIndex
If Not fso.FileExists(strFullName) Then
GetUniqueFileName = strFullName
Exit Function
End If
strParentFolder = fso.GetParentFolderName(strFullName)
strBaseName = fso.GetBaseName(strFullName)
strExtensionName = fso.GetExtensionName(strFullName)
nIndex = 0
While fso.FileExists(strFullName)
nIndex = nIndex + 1
strFullName = fso.BuildPath(strParentFolder, strBaseName & "_" & nIndex & "." & strExtensionName)
Wend
GetUniqueFileName = strFullName
End Function
3、修改代码中开始部分的两个设置,即:存放等待重命名的Word文件的根目录,以及获取文档第一段内容时最多保留多少个字符。
4、保存这个VBS文件,在资源管理器中双击运行它,直到看见“完成”!
5、检查所有文件是否已自动重命名。
注意:如果有两个以上的文档依据其内容提取出来的文字相同,则会自动在文件名后面附加“_1”、“_2”、“_3”……。
如果有什么问题,请和我联系。
文件夹可能没有权限
方法一:是先将JPG图片方到word或WPS中编辑好,然后再由word转换成成PDF。
具体方法:首先打开word或WPS并插入需要转换成PDF的图片,编辑排版好。然后选择文件—另存为—输出为PDF格式。
这种方法在需要编辑多张图片是比较麻烦,需要排版编辑好,对于文字形式的图片也只能以图片的形式放入到word中进行编辑,不能对途中的文字进行编辑,对于想编辑图片中文字的来说只能在word中打字加上截图。
方法二:直接使用JPG转换成PDF转换器进行转换,jpg转换成PDF转换器 。
具体方法:首先选择您需要使用的模式,如果需要将文件转化为PDF,点击左上角的"图片转PDF"模式。
然后点击左下角的的"添加文件",把需要转换的文件添加进来,一次可添加多个文件。同时选择转换后文件需要保存的位置。
最好点击右边"开始转换"按钮,等待片刻即可。
这种方法方便快捷,可以一次批量转换多种图片,可以将图片分别转换PDF文档或是将所有图片合并成一个PDF文档,在转换时选择对应的选项即可。
方法三:使用FreePic2Pdf软件,进行批量转换;
方法四:使用虚拟打印机pdf factory即可,而且其他格式文件只要是能够打印,选择这个虚e69da5e6ba907a64338拟打印机,都可以做成PDF文件,很简单实用;用其他虚拟打印机转成PDF文件。
做好的PDF文件用文件批量命名即可
用这个工具:
Office文档自动更copy名工具 1.0┊用于批zd量更换标题到文件名
http:///soft/13353.html