setmyrange 怎么在特定的区域查找

kerry786032

我只想在参考文献这块区域进行查找，我应该怎么去setmyrange，我看了网上的教程Sub settmyrange()
Dim p As Paragraph, d As Document

    Set myrange = ActiveDocument.Paragraphs(K).Range
myrange.SetRange Start:=myrange.Start, _
    End:=ActiveDocument.Range.End
With myrange

End Sub

但是我怎么去获取到reference这一段是文章中的第几段呢，也就是K的值。可以用什么函数去获取呢？
求教各位老师。

duquancai

查找"References"进行定位

duquancai

Sub 查找定位()
    Dim myRange As Range, d As Document
    Set d = ActiveDocument: Set myRange = d.Content
    If myRange.Find.Execute("References") Then
        With d.Range(myRange.Start, d.Content.End)
'            写你的代码。。。。。。。。
        End With
    Else
        MsgBox "找不到关键词，定位失败！"
    End If
End Sub

kerry786032

duquancai 发表于 2017-10-26 21:18
Sub 查找定位()
    Dim myRange As Range, d As Document
    Set d = ActiveDocument: Set myRange = d ...

谢谢老师的指导，我再研究研究。