❶ 怎麼在word里批量修改表格和圖片用VBA 的形式。
只知道要用 宏 來編輯 和命令以。其餘不懂。
❷ word vba問題 如何批量替換文件夾內所有的WORD文檔內相同的片語
Sub批量修改()
'OnErrorResumeNext
DimFileOpen
DimXAsInteger
DimwbAsWorkbook
Application.ScreenUpdating=False
FileOpen=Application.GetOpenFilename(FileFilter:="MicrosoftExcel文件(*.xls),*.xls",MultiSelect:=True,Title:="選擇工作薄")
X=1
WhileX<=UBound(FileOpen)
Setwb=Workbooks.Open(FileOpen(X))
wb.Sheets(1).[a1]="456"
wb.Sheets(1).[D4]="王月"
wb.CloseTrue
X=X+1
Wend
EndSub
這個宏會把你選中的文件批量替換sheet1：A1的內容改為456D4的內容改為王月，你可以根據你的實際情況修改代碼就可以了，如果單元格不固定就用FIND方法找到再修改
❸ word vba 批量替換（標記）
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="2", ReplaceWith:="1", Replace:=wdReplaceAll
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="2", ReplaceWith:="1", Replace:=wdReplaceAll
Execute 方法（Find 對象）
運行指定的查找操作。如果查找成功，則返回 True。(這說明其是同步執行)
語法
expression.Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl)
expression 必需。該表達式返回 Find 對象。
FindText Variant 類型，可選。指定需查找的文本。可用空字元串 ("") 查找格式。也可通過指定適當的字元代碼查找特殊字元。例如，「^p」對應段落標記，「^t」對應製表符。如果需要使用特殊字元列表，請參閱查找替換特殊字元和文檔元素示例。
如果 MatchWildcards 為 True，則可以指定通配符及其他高級搜索條件。例如，「*(ing)」 將查找以「ing」結尾的所有單詞。詳細內容，請參閱通配符搜索示例。
若要搜索符號字元，可鍵入 (^) 字元，零（0），然後鍵入符號字元的代碼。例如，「^0151」對應一條長劃線（—）。
MatchCase Variant 類型，可選。如果是 True，則查找文本需區分大小寫。相當於「編輯」菜單「查找和替換」對話框中的「區分大小寫」復選框。
MatchWholeWord Variant 類型，可選。如果為 True，則只查找匹配的完整單詞，而並非作為一個長單詞的一部分的文字。相當於「編輯」菜單「查找和替換」對話框中的「全字匹配」復選框。
MatchWildcards Variant 類型，可選。如果為 True，則查找的文字包含特殊搜索操作符。相當於「編輯」菜單「查找和替換」對話框中的「使用通配符」復選框。
MatchSoundsLike Variant 類型，可選。如果為 True，則查找與待查找文字發音相近的單詞。相當於「編輯」菜單「查找和替換」對話框中的「同音」復選框。
MatchAllWordForms Variant 類型，可選。如果為 True，則查找文字的所有形式（例如，「 sit」 將包含「sitting」和「sat」）。相當於「編輯」菜單「查找和替換」對話框中的「查找單詞的各種形式」復選框。
Forward Variant 類型，可選。如果為 True，則向下（向文檔尾部）搜索。
Wrap Variant 類型，可選。如果搜索從不是文檔開頭的位置開始，並到達文檔末尾（如 Forward 設置為 False，則相反），用本參數控制接下來的操作。當在選定內容或區域中沒有找到搜索文字時，本參數也控制接下來的操作。可以是下列 WdFindWrap 常量之一：
常量 描述
wdFindAsk 搜索完所選內容或者區域後，Microsoft Word 會顯示一條消息，詢問是否搜索文檔的其他部分。
wdFindContinue 到達搜索區域的開始或者結尾時，繼續執行查找操作。
wdFindStop 到達搜索范圍的開始或者結尾時，停止執行查找操作。
Format Variant 類型，可選。 如果為 True，則查找格式而非文字。
ReplaceWith Variant 類型，可選。替換文字。要刪除由 Find 參數指定的文字，可使用空字元串 ("")。與 Find 參數相似，本參數也可以指定特殊的字元和高級搜索條件。要將圖形對象或者其他非文本項指定為替換內容，可將這些項目置於「剪貼板」上，然後將 ReplaceWith 指定為「 ^c」。
Replace Variant 類型，可選。指定執行替換的個數：一個、全部或者不替換。可為下列 WdReplace 常量之一：wdReplaceAll、wdReplaceNone 或 wdReplaceOne。
MatchKashida Variant 類型，可選。如果為 True，則查找結果應與阿拉伯語文檔中區分 kashidas 的文本相匹配。由於選擇或安裝的語言支持不同（例如，美國英語），此參數可能不可用。
MatchDiacritics Variant 類型，可選。如果為 True，則查找結果應與區分音調符號的語言文本相匹配。由於選擇或安裝的語言支持不同（例如，美國英語），此參數可能不可用。
MatchAlefHamza Variant 類型，可選。如果為 True，則在阿拉伯語文檔中，查找內容應與區分 Alef Hamzas 的文本相匹配。由於選擇或安裝的語言支持不同（例如，美國英語），此參數可能不可用。
MatchControl Variant 類型，可選。如果為 True，則在從右到左運用語言的文檔中，查找內容應區分雙向控制字元。由於選擇或安裝的語言支持不同（例如，美國英語），此參數可能不可用。
說明
除非另外指定，否則替換文本將沿用文檔中被替換文本的格式。例如，如果用「xyz」替換「abc」，那麼粗體「abc」將被粗體字元串「xyz」所替換。
同樣，如果 MatchCase 為 False，那麼查找到的大寫文本將被大寫的替換文本替換，而無論搜索文本和替換文本是否大小寫。上例中，「ABC」將被「XYZ」替換。
❹ word 批量 替換 VBA
Sub宏1()
mypath=ThisDocument.Path&""'
mydoc=Dir(mypath&"*.doc")
myname=ThisDocument.Name
DoWhileLen(mydoc)
Ifmydoc<>mynameThen
SetcurDoc=Documents.Open(mypath&myname)
Selection.EndKeyUnit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text="52[0-9]{4}.[0-9]{3}"
.Replacement.Text="38^&"
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=False
.MatchAllWordForms=False
.MatchSoundsLike=False
.MatchWildcards=True
EndWith
Selection.Find.ExecuteReplace:=wdReplaceAll
curDoc.CloseTrue
EndIf
mydoc=Dir
Loop
MsgBox"Duang的一下，完成了!"
EndSub
❺ word中使用vba按照現在圖片的順序，用新的圖片把舊圖片全部替換，圖片名稱統一由規定的
解題思路很重要，下面給出替換圖片的關鍵代碼：
Sub替換活動文檔中的第一張圖片()
ActiveDocument.InlineShapes(1).Select
Selection.InlineShapes.AddPicture"[要替換的圖片的完整路徑]"
EndSub
PS：實際使用中可以將要替換的新圖片按照 Word 文檔中的圖片出現的順序進行編號（如1.jpg、2.jpg、3.jpg...）並放入一個文件夾中，然後將上述代碼放入循環語句中並稍作修改，通過遍歷 Word 文檔中的 InlineShapes 對象同時傳遞圖片的完整路徑即可實現全部替換！
❻ 求WORD VBA代碼。。批量多個替換word的頁眉圖片logo，最好頁眉能同時加圖片加文字。
問題是你知道如何運行代碼嗎？如果會運行代碼，我可以幫你寫一個，而且替換頁眉圖片，你需要把替換的圖片路徑說清楚，如果不懂怎麼運行，你最好把你的文件網路雲共享，然後我把代碼寫好之後，發你郵箱，這樣你只需要在你的文檔當中點擊一下按鈕即可
❼ word 批量替換圖片
選將所需的圖片都插入進WORD。將插入的圖片版式改成除嵌入型以外其它任意形式都可以比如[四周型]，然後按住Ctrl鍵一個一個選中，或者利用[繪圖工具欄]里的[選擇工具]框選所有的圖片，然後右擊，[設置圖片格式] \[大小]\按照需要統一設置就可以了。祝你成功~呵呵
❽ 求大佬，Word VBA 批量替換
查找替換的時候，查找值僅限定為不加粗，便可。
或者拿到excel中用公式解決