❶ 怎么在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中用公式解决