可以用腳本來做。
1、用記事本新建一個文本文件,把它保存為「批量重命名.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」……。
② word怎麼重命名文件
有好幾種方法都可以對文檔進行重命名的:
1.用滑鼠左鍵點一下想要重命名的文件,然後稍等一下再點一下就可以直接更改文件名了!
2.用滑鼠右鍵點一下想要重命名的文件,選擇「重命名」就可以進行重命名,改好後點一下其它地方就可以了。
3.用滑鼠左鍵點一下想要重命名的文件,然後按F2也可以進行重命名。
先把你要命名的文件保存,然後進入到你保存文件的文件里,右鍵點擊選擇重命名,把你想要改的名字打里,比如名字為:我的名字.doc!後面一定要是.doc才可以,不然名字是改不了的!
你是改名的時候,把WORD的後綴名<.doc>去掉了,再文件名的最後加上去就可以了!
如果你覺得顯示後綴名比較麻煩,你可以雙擊"我的電腦"--單擊「工具」--選擇「文件夾選項」--「查看」--在「隱藏已知文件類型的擴展名」前打勾--點擊「確定」就OK了!
以後你就可以直接修改文件名,而不需要考慮文件的後綴名了!
擴展
1.建立新文檔
當啟動Word 2003 之後,可以使用下列步驟建立一個新文檔,具體操作如下:
①單擊【文件】→【新建】命令,在任務窗格中選擇「本機上的模版」,屏幕上出現「新建」對話框,如圖3-5所示;
②單擊「常用」選項卡,然後選中「空白文檔」圖標,並單擊【確定】按鈕;
③在屏幕空白區域內輸入文檔內容即可。
2.打開文檔
要為以前建立的文檔繼續錄入數據或對其內容進行修改時,可按下列步驟打開文檔:
①單擊【文件】→【打開】命令或直接單擊「常用」工具欄上的【打開】按鈕,屏幕上出現「打開」對話框,如圖3-6所示;
②在「查找范圍」下拉列表中選中要打開文檔所在驅動器和文件夾,雙擊該文件夾,要打開的文件就出現在「查找范圍」下方的列表框中;
③雙擊要打開的文檔,然後就在Word 2003窗口中打開了該文檔;
④若要同時打開多個文檔,則先選中它們(在按住【Ctrl】鍵時,逐個單擊),再單擊【打開】按鈕。
3.文本的輸入
當准備輸入漢字時,必須先切換到中文輸入法狀態下。按【Ctrl】+【Space】鍵即可在中英文輸入法之間轉換。
特殊符號的輸入操作如下:
例如,要插入符號「∑」:
① 單擊【插入】→【符號】→【字體】→【Symbol】將出現如圖3-8所示的符號對話框;
② 可以用滑鼠單擊【∑】符號,然後單擊【插入】按鈕或者雙擊【∑】符號的方法來插入符號:
③ 單擊【關閉】按鈕,「∑」符號即可插入到文檔中當前游標位置。
另外,Word還提供了插入特殊字元的方法,如版權符號、注冊符號、節符號等。
③ word文件怎麼批量改名
批量修改word文件名稱的方法:
步驟1,下載工具軟體後安裝打開,如下圖所示點擊任意一個紅框,將需要修改名稱的word文件添加到軟體中,可以從不同文件夾中添加哦!
④ 如何批量修改文件名稱
批量修改文件名的方法:
步驟1,下載上方的軟體後安裝打開使用。隨後點擊【添加文件】,批量將需要格式轉換的文件添加到軟體中,支持從不同文件夾中添加。
⑤ 如何批量修改word文檔的名字
一堆word文檔放在那裡,一個個修改名字太麻煩,其實有一款軟體---2345好壓,可以幫大家批量修改。那麼下面就由我給大家分享下批量修改word文檔名字的技巧,希望能幫助到您。
⑥ 新手求助,word怎麼重命名啊想重新改文件名。。。
你好,word命名有以下幾種辦法:
方法一:按快捷鍵CTRL+S鍵可以快速保存文件並命名。
方法二:打開word,點擊文件——另存為 ,然後輸入文件名就可以了
方法三:已有文件的命名,可以先用滑鼠單擊選中文件。然後在字巧汪上再次單擊,文件名就變成頃春可編輯狀態,輸入想改的名字雀寬耐就可以了。
方法四:點擊滑鼠右鍵,找到重命名點擊編輯就可以啦。
方法五:在文件上單擊滑鼠右鍵選擇「屬性",輸入新名稱保存就可以了。注意:此步驟改名字不可以將文件擴展名刪除,刪除以後原文件可能會打不開。
⑦ word文檔文件名怎麼改
首先你找到你要修改的文件,單擊這個文件名,並點擊滑鼠右鍵,在彈出的菜單中找到並選擇「重命名」就可以了。
再有一個方法就是單擊了這個文件名後緊接著再單擊一下,也是可以順利的修改這個文件名。