673 Aufrufe
Gefragt in Textverarbeitung von
Hallo lieber SUpporter,

Ich lösche mit VBA in WORD Absätze wenn dieses Wort vorkommt.

[BEZEICHNUNG]

Das klappt auch sehr gut.


Nur habe ich ein Problem wenn eine Aufzählung zum Wort angehängt wird.

[BEZEICHNUNG#1]
[BEZEICHNUNG#2]...
...
..

[BEZEICHNUNG#100]

Wie kann ich die Raute und die Zahlen als Platzhalter hinterlegen

Könnt Ihr mir helfen.

LG, RedCat

3 Antworten

0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo RedCat,

schau dir mal die InStr-Funktion an ([url=http://www.visualbasicworld.de/funktion-instr.html]Beispiel[/url]).
Dann müsstest du als Suchstring [BEZEICHNUNG benutzen.

Gruß

M.O.
0 Punkte
Beantwortet von
Hallo M.O.

lieben dank für die deine Hilfe.
Ich habe versuche es nach dem Beispiel es Umzusetzen.  Was mache ich falsch ??

LG, RedCat

Sub loeschen()

Dim SuchString As String
Dim SuchZeichenfolge As String

SuchString = "[BEZEICHNUNG]"
SuchZeichenfolge = "#"
Dim Test As Integer

Test = InStr(1, SuchString, SuchZeichenfolge)

On Error Resume Next
Dim i As Integer
For i = 1 To ActiveDocument.Paragraphs.Count
  If InStr(ActiveDocument.Paragraphs(i), Test) Then
    ActiveDocument.Paragraphs(i).Range.Delete
 End If
Next
End Sub
0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo RedCat,

versuch es mal so:

[code]Sub loeschen()

Dim SuchString As String
Dim i As Integer

SuchString = "[BEZEICHNUNG"

On Error Resume Next

For i = 1 To ActiveDocument.Paragraphs.Count
 If InStr(1, ActiveDocument.Paragraphs(i), SuchString) Then
  ActiveDocument.Paragraphs(i).Range.Delete
  End If
Next
End Sub[/code]

Gruß

M.O.
...