word宏批量處理多個打開的文件

㈠ word中如何批量執行宏命令

Sub 批量操作WORD()
Dim path As String
Dim FileName As String
Dim worddoc As Document
Dim MyDir As String
MyDir = "C:\Users\123456\Downloads" '文件夾路徑根據需要自己修改，需要處理的文件都放該文件夾內
FileName = Dir(MyDir & "\*.doc*", vbNormal)
Do Until FileName = ""
If FileName <> ThisDocument.Name Then
Set worddoc = Documents.Open(MyDir & "\" & FileName)
worddoc.Activate
Call Word文件改名 '調用宏,換成你自己宏的名字
worddoc.Close True
FileName = Dir()
End If
Loop
Set worddoc = Nothing
End Sub
'======================下面的宏換成你自己的宏=================================
Sub Word文件改名()
Dim myS, myP As String
myP = ActiveDocument.path
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=13
Selection.EndKey wdLine
Selection.HomeKey wdLine, wdExtend
myS = Selection.Range.Text
ActiveDocument.SaveAs FileName:=myP & "\" & myS & ".doc"
End Sub

㈡ 如何用宏批量處理多個word文檔

請問前10行都是相同的內容嗎?

如果是我只知道用Dreamweaver建一個站點(400文檔所在的文件夾),然後替換成空格.

如果不是相同的內容,我就幫不了你.

㈢ 批量更改多個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

㈣ 文件夾下Word批量處理

在日常學習和工作中，我們每天都可能需要處理很多文檔，使用快捷鍵是我們常用的高效辦法之一，但其實還有很多批量處理方法也能快速解決問題，下面分享5個好玩的批量處理技巧。

一、批量Word中的提取圖片

1、在Word文檔處右擊選擇「重命名」，將.docx格式更改為.rar壓縮包格式；


2、之後將更換格式後的文件解壓，在解壓後的文件夾找到「word」再打開「Media」文件就能看到所有圖片。


二、批量拆分Word中的文本和數字

1、選中Word中需要拆分的內容區域後，按Ctrl+H打開替換設置窗口；


2、在查找中輸入([0-9]{5,6})，在替換為輸入^&^t，並且勾選使用通配符；


3、設置完成後點擊「全部替換」即可看到文檔中的數字和文本中間自動出現空格被分開。


說明：

[0-9]：表示0到9之間的任意數字

{5,6}：表示出現的5個或6個數字

()：是一個表達式，在這里我們將其看做一個整體

^&：要查找的內容

^t：製表位

^&^t：表示在所查找內容後面添加製表位。

三、批量生成新的文件夾

1、新建一個txt文本，在記事本中輸入數據MD+空格+文件夾名稱，然後保存一下。


2、然後將記事本的擴展名更改為bat格式；


3、最後雙擊文件即可批量創建以記事本輸入名稱的文件夾。1、批量生成文件夾

在記事本中輸入數據MD+空格+文件夾名稱，保存，然後將記事本的擴展名更改為bat格式，雙擊文件即可批量創建文件夾。


2、批量提取圖片

將Word文檔的docx格式更改為rar格式，之後解壓文件，找到相應的Media文件即可看到所有圖片。


3、批量對文件重命名

長按Shift鍵不放，右擊選擇復制路徑，先將文件名提取出來，粘貼到Excel表格中，並利用Excel中的數據分列，將相應的原文件名提取出來。

然後將需要重新命名的內容輸入表格中，利用公式="ren "&A2&" "&B2，連接內容，再復制到記事本中保存，最後將記事本擴展名更改為bat格式，雙擊即可。



PS：注意中間的空格和重命名末尾的擴展名需要與原擴展名一致。

4、文本批量快速排版

先將文本內容按等級進行縮進，不同的層級，等級縮進方式有所不同，具體如下圖所示：


之後點擊插入——插圖——SmartArt，選擇一個層級結構，隨後將相應的內容復制到SmartArt圖形中，把不需要的內容刪除即可。


5、批量拆分文本和數字

選中需要拆分的內容區域，按Ctrl+H打開查找和替換，在查找中輸入([0-9]{5,6})，在替換為輸入^&^t，並且勾選使用通配符，隨後點擊全部替換即可操作。

說明：

[0-9]：表示0到9之間的任意數字

{5,6}：表示出現的5個或6個數字

()：是一個表達式，在這里我們將其看做一個整體

^&：要查找的內容

^t：製表位

^&^t：表示在所查找內容後面添加製表位。

㈤ 如何同時批量修改多個word文檔內容

使用word文檔批量處理大師

1、把要批量修改的文檔都放在同一個文件夾中
2、在修改前，先確定多個word文檔文件要被修改的內容，如小小要修改的內容是多個word文檔中的「西平縣」，
3、雙擊「word文檔批量處理大師」
4、點擊「選擇目錄」
5、在彈出的窗口中選擇點擊要批量修改的多個word文檔文件所在的文件夾，然後點擊「確定」按鈕
6、此時，系統會自動添加該文件中的所有文檔文件
7、點擊「保存列表」
8、在彈出窗口輸入框隨便輸入一個名字，然後點擊「保存」按鈕
9、在word文檔批量處理選項中點擊選擇「1、內容批量替換」
10、在右邊彈出'批量替換文檔內容'框體中，在」把文字：「標簽下輸入要被修改的內容，如「西平縣」，在「替換為：」標簽下輸入要改成的內容，如「我在這」。然後點擊「添加為待處理任務」按鈕
11、如果，要被批量修改的內容還有其他的，則先點擊「添加到列表」按鈕，然後再在」把文字：「標簽下輸入下一個要被修改的內容，如「啊」，在「替換為：」標簽下輸入下一個要改成的內容，如「哈「，然後點擊「添加到列表」按鈕。如此反復把所有要修改的文檔內容全部添加到列表後再點擊「添加為待處理任務」按鈕
12、在彈出窗口點擊」確定「按鈕
13、在彈出窗口點擊」是「按鈕
14、在彈出窗口點擊」確定「按鈕
15、系統處理完後，會顯示「任務完成！」
16、打開文件查看結果多個word文檔文件全部批量完成

注意這里是批量修改多個word文檔文件內容，沒有修改文檔標題。

㈥ word 批量處理 宏

這個用宏比較麻煩的。我給你一個方法。
替換B.為^pB.
替換D.為^pD.
不過至於那個正確的答案不可能通過VBA達到，除非答案都一樣。機器不知道答案。如果有答案的文件的話，代碼比較難寫

㈦ 如何做到「多個WORD文件批量進行同一操作」

1.下載一個漢化版的WinHex，然後WinHex打開你需要替換內容的所有DOC文檔（100多個打開也得要相當時間）;

2.點擊「選項」菜單，選擇「字元集」->「UNICODE」（方便你查看替換內容與UNICODE編碼之間的關系，免得弄錯。如你上邊所給出的「[一-龥]*^13」的UNICODE編碼應為「」，而替換內容UniCode編碼應為「5E0031003300」）。

3.點擊「搜索」菜單，選「替換16進制數值」(或者按快捷鍵「Ctrl+Alt+H」），在出現的替換對話框的「搜索」欄目中，填入你需要替換內容的十六值（如：），在「替換」欄中填入新的替換內容的十六值（如：5E0031003300）。

下邊的各選項分別勾選「全部替換」、「全部」搜索、以及「在所有打開文件中替換」。

4.點「確定」。

5.保存全部更改後的文件。

注意：1.特別得認准你需要替換內容的UniCode編碼；

2.沒把握之前，最好別勾選「全部替換」以及「在所有打開文件中替換」。先用某一個文檔做做實驗。

3.如果替換錯了，別保存更改後的文檔！！！以免大批量文檔的破壞。

4.此方法僅對OFFICE2003之前的DOC文檔有效。OFFICE2007以後的文檔結構不同於此，不得用此方法。

5.如果對替換內容的UniCode編碼不確定，可將替換的內容追加提問，我會給出相關內容正確的UniCode編碼。