Suchen und Ersetzen in falscher Reihenfolge

  • Word

    Suchen und Ersetzen in falscher Reihenfolge

    Hallo,

    ich bin gerade dabei eine 'Suchen und Ersetzen'-Funktion zu schreiben und dabei stoße ich auf ein Problem.
    Zum Hintergrund:
    Ich kopiere aus einer, oder mehreren, Word Datei(en) mehrere Zeilen und füge diese in mein Dokument ein.
    So eine Datei kann z.B. so aussehen:

    [*] a
    [*] b
    [*] c
    [*] d

    Da es nun sein kann, dass ich mehrere solcher Dateien kopieren muss, muss anschließend auch die Nummerierung korrekt sein, d.h. später soll es so aussehen:

    [1] a
    [2] b
    [3] c
    [4] d
    [5] e
    [6] f

    Ich möchte also die * durch Zahlen ersetzen.
    Dazu habe ich folgen Quellcode erstellt.

    Visual Basic-Quellcode

    1. Dim z As Integer
    2. Dim ok As Boolean
    4. z = 1
    5. ok = True
    6. Do While ok = True
    7. ActiveDocument.Sections(1).Range.Characters(1).Select
    8. Selection.Find.ClearFormatting
    9. Selection.Find.Replacement.ClearFormatting
    10. With Selection.Find
    11. .Text = "[*]"
    12. .Replacement.Text = "[" + CStr(z) + "]"
    13. .Forward = True
    14. .Wrap = wdFindContinue
    15. .Format = False
    16. .MatchCase = False
    17. .MatchWholeWord = False
    18. .MatchWildcards = False
    19. .MatchSoundsLike = False
    20. .MatchAllWordForms = False
    21. End With
    22. If Selection.Find.Execute = True Then
    23. Selection.Find.Execute
    24. With Selection
    25. If .Find.Forward = True Then
    26. .Collapse Direction:=wdCollapseStart
    27. Else
    28. .Collapse Direction:=wdCollapseEnd
    29. End If
    30. .Find.Execute Replace:=wdReplaceOne
    31. If .Find.Forward = True Then
    32. .Collapse Direction:=wdCollapseEnd
    33. Else
    34. .Collapse Direction:=wdCollapseStart
    35. End If
    36. .Find.Execute
    37. End With
    38. Else
    39. ok = False
    40. End If
    41. z = z + 1
    42. Loop



    Als Ergebnis kommt das hier raus:

    [6] a
    [1] b
    [2] c
    [3] d
    [4] e
    [5] f

    Kann mir jemand sagen, warum das Programm immer mit der zweiten Zeile beginnt?

    Gruß
    KronSii

    Edit:
    Ok hat sich erledigt. Fehler selber gefunden.

    In den Zeilen

    Visual Basic-Quellcode

    1. ...
    2. If Selection.Find.Execute = True Then
    3. Selection.Find.Execute
    4. With Selection
    5. ...


    ist die dritte Zeile natürlich überflüssig.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „KronSii“ ()

Facebook
Telefonspende