希望给出一个完整的测试用例,忘记了,找到目标文本以后要把该文本取出赋到一个string变量中,然后继续findnext
拜托了各位

解决方案 »

  1.   

    我想你最好看一下,Word的帮助,里面对Word的接口做了说明。
      

  2.   

    我的程序:(VB的,C#也差不多,问题不出在语言,而是方法)
    Private Sub Command1_Click()
    Dim obj As New Word.Application
    Dim x As Integer
    Dim y As Booleanobj.Documents.Open "C:\test.doc"
    obj.Documents("test.doc").ActivateSelection.Find.ClearFormatting
        With Selection.Find
            .Text = "中国*公司"
            .Forward = True
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchFuzzy = False        .MatchWildcards = True
        End With
        
        Selection.Find.Executey = Selection.Find.FoundDim str As Stringstr = Selection.TextMsgBox CStr(y)
    MsgBox strSet obj = NothingEnd Sub可以找到,但是,关闭程序后,再打开就找不到了,也就是说,查找后指针没有复位到文件头
    假如test.doc中有3个符合的text,查找到3次后,关闭程序,再次打开,也找不到了。
    请问如何才能使得指针复位到文件头呢?
      

  3.   

    使用 Collapse 方法可以将 Selection 或 Range 折叠到开始或结束位置。将某一区域或所选内容折叠到起始位置或结束位置。折叠之后起始位置和结束位置相同。expression.Collapse(Direction)expression   必需。该表达式返回一个 Range 或 Selection 对象。Direction   Variant 类型,可选。指折叠某区域或所选内容的方向。可以是下列 WdCollapseDirection 常量之一:wdCollapseEnd 或 wdCollapseStart。默认值为 wdCollapseStart。