Question

VB 怎么样在Word中查找替换特定字符

我想把下面的1，2和时间都替换成别的， 怎么操作。

1
00:00:10,140 -->00:00:12,090
Welcome to 2014.

2
00:00:12,090 -->00:00:13,890
It’s going to be a great year.

替换成
×Welcome to 2014.

×It’s going to be a great year.
谢谢。 但时间点是随机的，时间点的特性都是00：00xxx-->00:00XXX. 我还需要把时间点上一行的1和2都替换掉。 关键是怎么查找

Answer 1

需要替换的字符的字符个数是不是一样的呢？如果是的话可以尝试替换以下字符串

0^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?^?0

头尾的两个0是字符串的开头和结束，中间是26个任意字符的通配符(^?)

 

望采纳

追问

谢谢， 能把时间点上一行的数字替换掉么

追答

在最前面增加^#^p
意思是任意数字+回车

Answer 2

下面代码已做过测试，可行：

Private Sub Command1_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
With wordObj.Documents.Open(App.Path & "\1.doc") 'WORD文档路径
With .Content
If .Find.Execute("需要被替换的文字") Then
.Text = Me.Text1.Text
End If
End With
.SaveAs App.Path & "\2.doc"
End With
wordObj.quit
End Sub
满意请采纳。