如何查询特定字符开头和结束并替换

黄海

如何在WORD中使用代码实现查找儿替换，要求查找的这符是一行中满足以“-”开头，以“号”结尾的字符。 如 ： - 4678943 号 谢谢帮助

黄海

我的思路： Dim strFind As String Dim I As Integer For I = 1 To 行集.Count Dim a, b As Integer If InStr("-", 行集(I).Text) <> 0 Then a = InStr("-", 行集(I).Text) If InStr(a,"号", 行集(I).Text) <> 0 Then b = InStr(a,"号", 行集(I).Text) strFind = Mid(行集(I).Text, a, b - a) Exit For End If End If Next I ------------------------ 请教有没有我想象中的这个“行集”呀

[此贴子已经被作者于2003-6-18 15:13:25编辑过]

黄海

Private Sub Command0_Click() Dim docApp As New Word.Application Dim doc As Word.Document Set doc = docApp.Documents.Open("E:\计量所\模板\电阻箱.doc") docApp.Visible = True Dim strFind As String strFind = doc.Range MsgBox findStr(strFind, "-", "号") End Sub Public Function findStr(ByVal str As String, ByVal str1 As String, ByVal str2 As String) Dim a, b As Integer If InStr(1, str, str1, 1) <> 0 Then a = InStr(1, str, str1, 1) If InStr(a, str, str2, 1) <> 0 Then b = InStr(a, str, str2, 1) findStr = Mid(str, a, b - a + 1) End If End If End Function

七叶一枝梅

啊！ 黄海兄高！！长见识！ 期待哪位朋友的回答！

[此贴子已经被作者于2005-1-31 11:38:47编辑过]