|
本帖最后由 第Ⅸ夜 于 2023-6-27 17:51 编辑
Sub 测试()
Dim appWord As Object
Dim 文件名 As String
Dim findText As String
Dim replaceText As String
findText = "数据001"
ReplaceDate = "测试"
文件名 = ThisWorkbook.Path & "\测试.docx"
Set appWord = CreateObject("word.application")
appWord.Documents.Open 文件名
appWord.Visible = True
With appWord.Selection.Find
.Text = findText
.Replacement.Text = replaceText
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
appWord.Documents.Save
End Sub
Sub ReplaceAll()
Dim findText As String
Dim replaceText As String
Dim myRange As Range
findText = InputBox("请输入要查找的内容:")
replaceText = InputBox("请输入要替换的内容:")
Set myRange = ActiveDocument.Content
With myRange.Find
.Text = findText
.Replacement.Text = replaceText
.Wrap = wdFindContinue
'Wrap属性
'该属性用于设置在搜索时进行的相关操作,可通过常量进行赋值,具体如下所述:
'A、wdFindAsk常量:搜索完毕后,显示是否搜索文档的其他部分的消息框。
'B、wdFindContinue常量:搜索完毕后,继续执行。
'C、wdFindStop常量:搜索完毕后,停止执行。
.Execute Replace:=wdReplaceAll
'Replace参数可以有3个取值,
'wdReplaceAll(2)表示替换全部查找到的字符串,
'wdReplaceNone(0)一个都不替换,
'wdReplaceOne(1)只替换第一个找到的字符串。
End With
End Sub
已知第二段代码在word里面是可以正确运行的,我现在想从excel里面去查找替换word里面的内容,该如修改……
|
|