宏命令word批量更改文件名

『壹』 怎麼批量修改word文檔名字怎麼批量修改word文檔名字和內容

你可以按照以下步驟進行操作：
1. 打開文件所在的擾虛文件夾：在文件資源管理器(Windows)或Finder(Mac)中，導航到包含要修改文件名的 Word 文檔的文件夾。
2. 選擇要修改的文件：按住 Ctrl 鍵(Windows)或 Command 鍵(Mac)，同時點擊要修改的多個 Word 文檔，以選擇它們。
3. 批量重命名文件：右鍵單擊選中的文件，然後選擇「重命名」或類似選項。你也可以使用快捷鍵 F2(Windows)或回車鍵(Mac)來重命名文件。
4. 輸入新的文件名：輸入你想要用於重命名的新文件名。你可以保留原始的文件名部分，並在後面添加一個共同的前綴或後綴，以便區分這些文件。
5. 應用重命名：按下回車鍵，或點擊文件資源管理器或 Finder 窗口的其他位置，以應用新的文件名。系統將會將選中的所有文件按照你指定的命名規則進行批量重命名。
介紹一個使用Excel宏表函數，實現查找文件名的方法：
1.新建一個excel表格;
2. 組合鍵Ctrl+F3，召喚名稱管理器點擊新建，創建一個files宏表函數星號(*)前面是你的word文件存放的位置;
3.現在這個名為「doc」的函數就建好了，接下來就是通過隨便什麼方法(index，offset)把所需的文件名調出來就OK了，例如=INDEX(doc,ROW())然後往下拉……效果如緩兆燃下：
4. 所有文件名字都出來了，猜猜之後的篩選我相信樓主你行的!
5.這個是測試文件夾內容

『貳』 關於WORD文件作者名如何一次性全部修改

第1步，打開Word 2013窗口，依次單擊「文件」→「選項」命令，如圖所示。

『叄』 批量更改多個word文件中的數據

用宏命令可以解決，大概的步驟如下：
（1）先打開一個文檔，單擊「工具」→「宏」→「錄制新宏」命令，出現宏的對話框，單擊「確定」按鈕。
（2）單擊「文件」→「打開」，選擇要修改數據的文件，將其打開。
（3）單擊「編輯」→ 「替換」命令，在查找替換框中將所有的日期、數量替換為0000。
（4）然後單擊「文件」→「另存為」命令，將文件另存到另外一個文件夾中，最後關閉文件。
（5）單擊「工具」→「宏」→「停止錄制」命令，完成上述步驟
（6）對新錄制的宏命令進行一定的修改，使它能對多個文件進行批量修改和保存。方法是：
單擊「工具」→「宏」→「宏」命令，選擇剛才錄制的宏的名稱，單擊「編輯」按鈕。打開Visual Basic編輯器，對宏進行一些修改。主要的修改地方有以下幾個方面：
① 將剛才錄制的宏的文件打開路徑修改為你的文件夾的路徑，例如「E:\123\old」，修改替換數據後的文件保存的路徑，如「E:\123\new」
② 給宏命令添加一個for循環，例如，for i=6300，6300是你的文件數量，這是告訴宏修改6300個文件就結束
③ 其他的地方酌情修改，例如是否忽略報錯，是否忽略數字的格式等
（7）最後一步就是在Visual Baisic編輯器中按F5鍵執行宏，六千多個文件一會兒就可以修改完畢。
注意，這樣的操作需要懂一些簡單的VB中有關邏輯循環執行的知識，如果邏輯循環修改正確的話，你只要按一次F5鍵執行就可以了。。。不然的話就要將六千多個文件逐個打開，逐個執行這樣的宏命令操作，相當於按六千多次的F5

『肆』 VBA怎樣實現 批量選擇word文檔讀取其文件名並填表 的功能

SubTest()
Dimf,n,x,wb,fName

OnErrorResumeNext

Cells.Clear

'打開文件(可多選)
f=Application.GetOpenFilename("Word文件,*.docm,",1,"選擇文件",MultiSelect:=True)

'遍歷每個選擇的文件
Forx=1ToUBound(f)
sFile=f(x)

'取文件名,並賦值給單元格
n=Len(sFile)-InStrRev(sFile,"")
fName=Right(sFile,n)
Cells(x,1)=Left(fName,InStr(fName,"")-1)'取1到空格前的字元
'Cells(x,1)=Left(fname,9)'取文件名的前9個字元
Cells(x,2)=Mid(fName,InStr(fName,"")+1,Len(fName)-InStr(fName,".")+1)'取空格後到點之前的字元
'Cells(x,2)=Mid(fName,10,Len(fName)-InStr(fName,".")+1)'從10開始取到點之前的字元
Nextx

EndSub

『伍』 使用word怎麼批量修改txt小說章節名稱

ctrl+H打開替換對話框，單擊高級，勾選使用通配符，在查找框中原樣輸入：第[一二三四五六七八九十]@章
在替換為框中輸入：究極武裝^&
單擊全部替換即可。熟悉word的通配符替換，可以實現很多你意向不到的功能。
第二個問題要採用VBA編程才能實現！
在工具=宏-宏...中，打開對話框，新建一個宏，創建，打開VBA編輯器，將裡面的內容清空，然後將如下代碼粘貼進去後按F5鍵運行即可。（只適用於<1000的情形下）
Sub MyReplace()
Selection.HomeKey
Selection.WholeStory
WholeText = Selection.Text
Debug.Print WholeText
WholeTextTmp = ""
Do Until WholeText = ""
MyChTmp = Left(WholeText, 1)
If InStr("一二三是五六七八九十百", MyChTmp) Then
MyCh = MyCh + MyChTmp
Else
If Len(MyCh) = 1 Then
Select Case MyCh
Case "一": MyCh = "001"
Case "二": MyCh = "002"
Case "三": MyCh = "003"
Case "四": MyCh = "004"
Case "五": MyCh = "005"
Case "六": MyCh = "006"
Case "七": MyCh = "007"
Case "八": MyCh = "008"
Case "九": MyCh = "009"
Case "十": MyCh = "010"
End Select
ElseIf Len(MyCh) = 2 Then
Select Case MyCh
Case "二十": MyCh = "020"
Case "三十": MyCh = "030"
Case "四十": MyCh = "040"
Case "五十": MyCh = "050"
Case "六十": MyCh = "060"
Case "七十": MyCh = "070"
Case "八十": MyCh = "080"
Case "九十": MyCh = "090"
Case "一百": MyCh = "100"
Case "十一": MyCh = "011"
Case "十二": MyCh = "012"
Case "十三": MyCh = "013"
Case "十四": MyCh = "014"
Case "十五": MyCh = "015"
Case "十六": MyCh = "016"
Case "十七": MyCh = "017"
Case "十八": MyCh = "018"
Case "十九": MyCh = "019"
End Select
ElseIf Len(MyCh) = 3 Then
Select Case Left(MyCh, 1)
Case "二": a = "2"
Case "三": a = "3"
Case "四": a = "4"
Case "五": a = "5"
Case "六": a = "6"
Case "七": a = "7"
Case "八": a = "8"
Case "九": a = "9"
End Select
Select Case Right(MyCh, 1)
Case "一": b = "1"
Case "二": b = "2"
Case "三": b = "3"
Case "四": b = "4"
Case "五": b = "5"
Case "六": b = "6"
Case "七": b = "7"
Case "八": b = "8"
Case "九": b = "9"
End Select
MyCh = "0" + a + b
ElseIf Len(MyCh) = 4 Then
Select Case Left(MyCh, 1)
Case "一": a = "1"
Case "二": a = "2"
Case "三": a = "3"
Case "四": a = "4"
Case "五": a = "5"
Case "六": a = "6"
Case "七": a = "7"
Case "八": a = "8"
Case "九": a = "9"
End Select
Select Case Right(MyCh, 1)
Case "一": b = "1"
Case "二": b = "2"
Case "三": b = "3"
Case "四": b = "4"
Case "五": b = "5"
Case "六": b = "6"
Case "七": b = "7"
Case "八": b = "8"
Case "九": b = "9"
End Select
MyCh = a + "0" + b

ElseIf Len(MyCh) = 5 Then
Select Case Left(MyCh, 1)
Case "一": a = "1"
Case "二": a = "2"
Case "三": a = "3"
Case "四": a = "4"
Case "五": a = "5"
Case "六": a = "6"
Case "七": a = "7"
Case "八": a = "8"
Case "九": a = "9"
End Select
Select Case Mid(MyCh, 3, 1)
Case "一": b = "1"
Case "二": b = "2"
Case "三": b = "3"
Case "四": b = "4"
Case "五": b = "5"
Case "六": b = "6"
Case "七": b = "7"
Case "八": b = "8"
Case "九": b = "9"
End Select
Select Case Right(MyCh, 1)
Case "一": c = "1"
Case "二": c = "2"
Case "三": c = "3"
Case "四": c = "4"
Case "五": c = "5"
Case "六": c = "6"
Case "七": c = "7"
Case "八": c = "8"
Case "九": c = "9"
End Select
MyCh = a + b + c
End If
WholeTextTmp = WholeTextTmp + MyCh + MyChTmp
MyCh = ""
End If
WholeText = Mid(WholeText, 2)
Loop
Selection.WholeStory
Selection.Text = WholeTextTmp
MsgBox "查找替換完畢!"
End Sub