VBA 替换整个WORD中的关键词？ vba word替换
- VB批量替换Word中的部分关键字
- 急！怎么用VBA批量修改多个word文档里多个关键词的格式？？？
- word vba问题 如何批量替换文件夹内所有的WORD文档内相同的词组？
- vba中将变量代替关键字的替换方法
VB批量替换Word中的部分关键字
你好坤坤428，Private Sub Command1_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
With wordObj.Documents.Open("c:\1.doc")
With .Content
.Find.Execute "#text1", , , , , , , , , Text1, 2
.Find.Execute "#text2", , , , , , , , , Text2, 2
.Find.Execute "#text3", , , , , , , , , Text3, 2
End With
.Save
End With
wordObj.quit
End Sub
可简化为：62616964757a686964616fe4b893e5b19e31333363373161
Private Sub Command2_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
With wordObj.Documents.Open("c:\1.doc")
For i = 1 To 3
.Content.Find.Execute "#text" & i, , , , , , , , , Me("Text" & i), 2
Next
.Save
End With
wordObj.quit
End Sub
急！怎么用VBA批量修改多个word文档里多个关键词的格式？？？
使用Dir函数，把你的文件夹中的word文档名全部找出来。然后用documents.open方法，逐个打开文档改字体颜色。
参考：
Dim MyDoc$
MyDoc = Dir("C:\Documents and Settings\user\My Documents\*.doc")
Debug.Print MyDoc
Do While MyDoc <> ""
MyDoc = Dir
Debug.Print MyDoc
Loopopen方法是这样：
Documents.Open FileName:=ThisDocument.Path & "\" & MyDoc
你自己整合一起吧，这就不多说了。
你的那些关键字，没必要用字典保存啊，用Array函数更方便了。
Dim KeyWords as Variant
KeyWords=Array("关键词1",“关键词2”,……)
word vba问题 如何批量替换文件夹内所有的WORD文档内相同的词组？
Sub 批量修改()
'On Error Resume Next
Dim FileOpen
Dim X As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="选择工作薄")
X = 1
While X <= UBound(FileOpen)
Set wb = Workbooks.Open(FileOpen(X))
wb.Sheets(1).[a1] = "456"
wb.Sheets(1).[D4] = "王月"
wb.Close True
X = X + 1
Wend
End Sub
这个宏 会把 你选中的文件 批量替换 sheet1 ：A1的内容 改为 456 D4 的内容改为 王月， 你可以根据你的实际情况修改代码就可以了， 如果单元格不固定就 用FIND 方法找到再修改
vba中将变量代替关键字的替换方法
对不起 没有
只有做一个判断：
dim d as integer
select case d
case 1
Sheets("sheet1").PageSetup.LeftHeader = i
case 2
Sheets("sheet1").PageSetup.RightHeader = i
case …………
……
case else
'都不符合 在这里写
end select