请教如何查找文件中的一个字符并返回一个bool值

yulin777

做了一个doc 。里面写了写vba，用于在文件第一次创建的时候处理一些数据。但是文件第二次打开的时候就不需要之星vba

想了半天都没想出个头绪。觉得用时间判断。在取得文件创建时间的时候和系统时间对比。如果相同就之星vba 。如果相同就不执行。

现在如何取得文件的创建时间啊。

谢谢各位

[此贴子已经被作者于2006-7-29 3:52:49编辑过]

yulin777

该问题已经解决.找个个函数调出来了.但是发现我原来想的是错的.因为虽然文件是拷贝过去的.但是创建时间并不是我想象的当前时间.而是复制前文件的创建时间.所以就没有以意义了

现在想了另一个方法.就是查找文件中显示的某一个字符.如复制前存在.复制后就不存在了(vba会自动替换掉)所以想在执行vba替换之前做个判断就是查找这个字符,如果存在就执行vbaif里面的数据.假如不存在就说明已经执行了一次代码.无需执行了

就是现在找个语句能够查找某一个字符然后返回一个bool值.

还是请各位同仁能够给个提示.这个代码该咱个写.如

dim a as bool

if find"aaa" then a=true

else a=fasle

求find语句

守柔

Sub Example()
    Dim myRange As Range, strText As String
    Set myRange = ActiveDocument.Content
    strText = "查找的关键字"
    With myRange.Find
        .ClearFormatting
        If .Execute(findtext:=strText) = True Then
            MsgBox "Word找到了该关键字！", vbInformation
            myRange.Text = "修改后的内容"
        Else
            MsgBox "Word没有发现该关键字！", vbInformation
        End If
    End With
End Sub

yulin777

谢谢你。其实我现在使用的vba是两年前在你的指导下做的。现在需要做一些修改。谢谢你