请教大家如何在WORD文档中查找指定字符并返回行数

lk987655 · 发表于 2011-9-25 17:50

请教大家，如何在WORD文档中查找指定字符并返回查到的第一个所在的行数？非常谢谢大家！

413191246se · 发表于 2011-9-25 23:37

网络得来，非我原创，代码如下：
' 显示页数
Dim s As String
With Selection
      s = "第" & .Information(wdActiveEndPageNumber) & "页"
      s = s & "共" & .Information(wdNumberOfPagesInDocument) & "页"
      s = s & "(第" & .Information(wdFirstCharacterLineNumber) & "行"
      s = s & "第" & .Information(wdFirstCharacterColumnNumber) & "列)"
      MsgBox s
End With

lk987655 · 发表于 2011-9-26 08:14

413191246se 发表于 2011-9-25 23:37
网络得来，非我原创，代码如下：
' 显示页数
Dim s As String

感谢你的回答，可是你答复的是选择字符所在的行列页，我要的是查找的字符所在的行。如何得到呢？期待大家的指教。谢谢

lk987655 · 发表于 2011-9-26 08:52

试验成功了，但只能显示在某一页的第几行，而不是在全文中的第几页，代码如下：
Private Sub CommandButton2_Click()
' a = Int(Rnd * 4) + 1

a = 5
  Selection.Find.ClearFormatting
With Selection.Find
      .Text = "选第" & a & "题" '这里放进通配符
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .MatchWildcards = True
End With
Selection.Find.Execute

  Selection.Find.Execute
j = Selection.Range.Information(wdFirstCharacterLineNumber)

MsgBox "查到字符串：" & Selection.Range & j

End Sub

413191246se · 发表于 2011-9-26 09:00

本帖最后由 413191246se 于 2011-9-26 09:03 编辑

我也是刚刚入门儿！我自从6、7月才初步编辑一下宏，以前根本不懂的；以前只是会录制一下。有本论坛 tangqingfu 大侠编辑的《WORD查找与替换集成》的文档，你找找，借鉴一下。另外，你这个宏名或曰项目到底叫什么呢？——比如说，“删除段首空格”宏，“删除空行”宏，你的宏叫什么名字呢？说清楚宏名，大家就知道怎么帮你了。

sqhsqhli · 发表于 2011-9-26 10:10

Sub Example3()
Dim i As Integer
Dim yaozhaodeci As String
yaozhaodeci = "卡扎菲"
Selection.HomeKey unit:=wdStory
Selection.EndKey unit:=wdLine, Extend:=wdExtend
For i = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyLines).Value
If InStr(Selection.Range, yaozhaodeci) <> 0 Then
MsgBox yaozhaodeci & "在第" & i & "行。"
Exit Sub
Else
Selection.MoveEnd unit:=wdCharacter, Count:=1
Selection.EndKey unit:=wdLine, Extend:=wdExtend
End If
Next
End Sub

sqhsqhli · 发表于 2011-9-26 12:54

本帖最后由 sqhsqhli 于 2011-9-26 13:03 编辑

追加：如果知道每行不超过30字符。这样是不是可以加快速度？
on error resume next

If InStr(right(Selection.Range,30), yaozhaodeci) <> 0 Then

答案是肯定的，但仍不明显。

sqhsqhli · 发表于 2011-9-26 13:15

这下搞定了

Sub Example3()
On Error Resume Next
Dim i As Integer
Dim yaozhaodeci As String
Dim a
a = Timer
yaozhaodeci = "卡扎菲"
Selection.HomeKey unit:=wdStory
Selection.EndKey unit:=wdLine, Extend:=wdExtend
For i = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyLines).Value
With Selection.Find
.Text = yaozhaodeci
If .Execute = True Then
MsgBox yaozhaodeci & "在第" & i & "行。耗时" & Timer - a
Exit Sub
Else
Selection.MoveEnd unit:=wdLine, Count:=1
End If
End With
Next
Selection.HomeKey unit:=wdStory
End Sub

kqbt · 发表于 2011-9-27 10:36

真够复杂的，有时间慢慢研究。

bush77 · 发表于 2015-6-21 13:07

sqhsqhli 发表于 2011-9-26 10:10
Sub Example3()
Dim i As Integer
Dim yaozhaodeci As String

Sub Macro1()
Dim mypath$, wj$, n%, wd, i&, k%
Set wd = CreateObject("Word.Application")
w = Array("合同编号：", "出租方（以下简称甲方）:", "联系电话：", "地址：", "承租方（以下简称乙方）：", "第一条　场地基本情况", "用途", "第三条　租赁期限")
mypath = ThisWorkbook.Path & ""
wj = Dir(mypath & "*.doc")
Do While wj <> ""
on error resume next
n = n + 1
With wd.Documents.Open(mypath & wj)
x = Split(.Range, vbCr)
For i = 0 To UBound(x) - 1
For k = 0 To 4
If x(i) Like "*" & w(k) & "*" Then
Cells(n + 1, k + 1) = Split(x(i), w(k))(1)
End If
Next
If x(i) Like "*" & w(5) & "*" Then
Cells(n + 1, 6) = Split(Split(x(i + 1), "位于")(1), "；")(0)
Cells(n + 1, 7) = Split(Split(x(i + 1), "建筑面积")(1), "平方")(0)
End If
If x(i) Like "*" & w(6) & "*" Then
Cells(n + 1, 9) = x(i + 1)
End If
If x(i) Like "*" & w(7) & "*" Then
Cells(n + 1, 10) = Split(Split(x(i + 1), "租赁期限")(1), "，")(0)
Cells(n + 1, 11) = Split(Split(x(i + 1), "自")(1), "至")(0)
Cells(n + 1, 12) = Split(Split(x(i + 1), "至")(1), "止")(0)
End If
Next
.Close False
End With
wj = Dir
Loop
wd.Quit
End Sub

复制代码

老师这是个批量查找指定字符并填写到EXCEL中的代码是根据段落查找的
但是格式不是很统一能不能用什么办法修改成全文查找的吗

		自动登录	找回密码
密码			免费注册

[求助] 请教大家如何在WORD文档中查找指定字符并返回行数