Hallo!
Ich möchte ein Skript schreiben, das ein Word-Dokument nach bestimmten Formatvorlagen durchsucht und diese nacheinander markiert, so dass eine neue Absatzmarkierung zugewiesen werden kann.
Erklärung zum Skript:
txtSuchen: Textfeld, in welchem die gesuchte Formatvorlage steht.
Hier das Skript, funktioniert leider in Zeile xxx nicht:
Private Sub ButSuchen_Click()
Dim absatz As Variant
Dim i As Integer
Dim j As Integer
i = 1
j = 0
Do Until i > ActiveDocument.Paragraphs.Count
If ActiveDocument.Paragraphs(i).Style = txtSuchen.Value Then
(xxx) Selection.Paragraphs(i).Range.Select
j = j + 1
End If
i = i + 1
Loop
MsgBox „Das Absatzformat " & txtSuchen.Value & " kommt im Textbereich " & j & " mal vor.“
End Sub
- Wie markiere ich einen Absatz in Word?
- Gibt es eine gut verständliche Einführung in VBA mit typischen Beispielen zu den zahlreichen Objekten und Methoden? Ich benutze zur Zeit „Das Einsteigerseminar“ (Helma Spona)und auch die Microsoft-Online-Hilfe (viel zu sehr auf Programmierer abgestellt).
Danke für alle Antworten, Martin.