Gennemgå et dokument

Mangler du ikke at initialisere lngCount til 0 inden løkken går i gang?

Det er fordi standard property på et document er dets navn, så du finder faktisk antal gange teksten optræder i dokument navnet.


Function CountOccurrences(strText As Document, strFind As String, Optional lngCompare As VbCompareMethod) As Long
  Dim lngPos      As Long
  Dim lngTemp      As Long
  Dim lngCount    As Long
  Dim strText As String
  TheDocument.Select
  strText = Selection.Text
  lngPos = 1
  Do
      lngPos = InStr(lngPos, strText, strFind, lngCompare)
      lngTemp = lngPos
      If lngPos > 0 Then
        lngCount = lngCount + 1
        lngPos = lngPos + Len(strFind)
      End If
  Loop Until lngPos = 0
  CountOccurrences = lngCount
End Function

Eller lidt kortere:

Function CountOccurrences(TheDocument As Document, strFind As String, Optional lngCompare As VbCompareMethod) As Long
  Dim strText As String, strNewText As String
  TheDocument.Select
  strText = Selection.Text
  If strFind <> "" Then
    strNewText = Replace(strText, strFind, "", 1, -1, lngCompare)
    CountOccurrences = (Len(strText) - Len(strNewText)) / Len(strFind)
  Else
    CountOccurrences = 0
  End If
End Function

Her har du en meget enkelt, men den virker fortræffelig, hvis jeg har forstået dig korrekt!


Function FAF(strLook As String, strFind As String) As Integer
  Dim tmpCount As Integer, start As Integer
 
  start = 1
  Do While InStr(start, strLook, strFind) > 0
        start = InStr(start, strLook, strFind) + 1
        tmpCount = tmpCount + 1
  Loop
 
  FAF = tmpCount
End Function

strLook er den streng du vil lede i og strFind den du vil finde, og så retunerer funktionen de antal forekomster der er!!

Mortrr kommer tættest på, takker for hjælpen

Selv tak.

Kan se at jeg glemte at ændre en parameter i første funktion, men du fandt åbenbart ud af det alligevel.

ikke det der ligner!!

Så skal du da brokke dig.

Har du brug for mere hjælp til den?