24
VBA-Makro in Word funktioniert nicht
Guten Tag,
ich habe ein VBA-Makro in Word geschrieben (Office 365).
Darin will ich einfach nur 1,5 Zeilen in einem Text markieren und dann löschen lassen.
Ich habe schon viele Makros erstellt, aber dieses funktioniert nicht.
So habe ich es gemacht:
Ich habe in Word also "Makro aufzeichnen" gewählt, dann diese 1,5 Zeilen Text markiert und dann per Entf.-Taste gelöscht. Dann die Makro-Aufzeichnung beendet.
Ergebnis ist das hier:
Kann mir jemand von Euch weiterhelfen?
Grüße,
BN
ich habe ein VBA-Makro in Word geschrieben (Office 365).
Darin will ich einfach nur 1,5 Zeilen in einem Text markieren und dann löschen lassen.
Ich habe schon viele Makros erstellt, aber dieses funktioniert nicht.
So habe ich es gemacht:
Ich habe in Word also "Makro aufzeichnen" gewählt, dann diese 1,5 Zeilen Text markiert und dann per Entf.-Taste gelöscht. Dann die Makro-Aufzeichnung beendet.
Ergebnis ist das hier:
Sub txt()
'
' txt Makro
'
'
Selection.Delete Unit:=wdCharacter, Count:=1
End SubKann mir jemand von Euch weiterhelfen?
Grüße,
BN
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 71366169766
Url: https://administrator.de/forum/vba-makro-in-word-funktioniert-nicht-71366169766.html
Ausgedruckt am: 21.12.2024 um 17:12 Uhr
24 Kommentare
Neuester Kommentar
Hallo,
wo ist jetzt dein Problem? In der Anwendung des Markos oder in der Ausführung?
grüße
wo ist jetzt dein Problem? In der Anwendung des Markos oder in der Ausführung?
grüße
Danke für die schnelle Antwort.
Nun... wenn ich dieses Makro nun ausführe, passiert einfach nichts!
Der Text steht weiterhin dort.
Grüße,
BN
Nun... wenn ich dieses Makro nun ausführe, passiert einfach nichts!
Der Text steht weiterhin dort.
Grüße,
BN
Der Text muss ausgewählt werden, damit etwas ersetzt wird, dass Makro wird nur auf den ausgewählten Text angewendet
Da steht "Selection.Delete"
Was wurde denn ausgewählt?
Was wurde denn ausgewählt?
Hmmm... vielleicht mache ich ja auch einen Denkfehler.
Ich hatte bei Erstellung des Makros ja den Text markiert und dann gelöscht.
Nun dachte ich, dass sich das Makro quasi diesen Text auch merkt.
Ansonsten könnte ich es ja mit "Selection.Find.Replacement.ClearFormatting" machen.
Aber der Inhalt dieser 1,5 Zeilen Text ändert sich immer wieder in jedem neuen Dokument. Er steht halt immer nur an der gleichen Stelle und soll halt gelöscht werden.
Wie kann ich das denn ansonsten umsetzen... bzw. geht das überhaupt?
Grüße,
BN
Ich hatte bei Erstellung des Makros ja den Text markiert und dann gelöscht.
Nun dachte ich, dass sich das Makro quasi diesen Text auch merkt.
Ansonsten könnte ich es ja mit "Selection.Find.Replacement.ClearFormatting" machen.
Aber der Inhalt dieser 1,5 Zeilen Text ändert sich immer wieder in jedem neuen Dokument. Er steht halt immer nur an der gleichen Stelle und soll halt gelöscht werden.
Wie kann ich das denn ansonsten umsetzen... bzw. geht das überhaupt?
Grüße,
BN
Ich gebe mal ein Beispiel:
Im Worddokument steht...
Die Überweisung erfolgt ab Mitte November auf das Konto:
Max Mustermann:
- Sonderzuwendung, 60,00 € auf DE123123456456789 bei der SPARKASSE FULDA
Und gelöscht werden soll alles nach dem Doppelpunkt nach "Konto" bis einschließlich des Wortes "auf" for der IBAN.
Vielleicht wird es jetzt besser verständlich
Grüße,
BN
Im Worddokument steht...
Die Überweisung erfolgt ab Mitte November auf das Konto:
Max Mustermann:
- Sonderzuwendung, 60,00 € auf DE123123456456789 bei der SPARKASSE FULDA
Und gelöscht werden soll alles nach dem Doppelpunkt nach "Konto" bis einschließlich des Wortes "auf" for der IBAN.
Vielleicht wird es jetzt besser verständlich
Grüße,
BN
Was genau verstehst du übrigens unter "1,5 Zeilen Text"?
Tipp Makrorekorder:
Tipp Makrorekorder:
Selection.Find.Execute FindText:="Text", ReplaceWith:="", Forward:=True, Wrap:=wdFindContinue, Replace:=wdReplaceAll 
Mit Replace so
Oder zu Fuß so
🖖
Gruß sid.
ActiveDocument.Content.Find.Execute FindText:=":*auf", Forward:=True, ReplaceWith:="", Replace:=wdReplaceOne, MatchWildcards:=True Dim rngSearch As Range, intStart As Integer, intEnd As Integer
Set rngSearch = ActiveDocument.Content
rngSearch.Find.Execute FindText:="Konto:", Forward:=True
If rngSearch.Find.Found Then
intStart = rngSearch.End - 1
Set rngSearch = ActiveDocument.Content
rngSearch.Find.Execute FindText:="auf DE"
If rngSearch.Find.Found Then
intEnd = rngSearch.Start + 4
ActiveDocument.Range(intStart, intEnd).Delete
End If
End IfGruß sid.
Danke Dir @7907292512 für den Code.
Er funktioniert zu 98% auch...
Nur wird bei der Umsetzung
1) der Doppelpunkt hinter "Konto" mit entfernt
2) vor dem DE von der IBAN wird eine zusätzliche Leerstelle eingefügt.
Sieht jetzt so aus:
Hast Du noch einen Tipp, wie ich das anpassen kann?
Danke und Grüße,
BN
Er funktioniert zu 98% auch...
Nur wird bei der Umsetzung
1) der Doppelpunkt hinter "Konto" mit entfernt
2) vor dem DE von der IBAN wird eine zusätzliche Leerstelle eingefügt.
Sieht jetzt so aus:
Die Überweisung erfolgt ab Mitte November auf das Konto
DE123123456456789 bei der SPARKASSE FULDAHast Du noch einen Tipp, wie ich das anpassen kann?
Danke und Grüße,
BN
Ja code einmal lesen und verstehen und Start und Endindex anpassen 😁
wird zu
Nr. 2 ist deine Hausaufgabe aber genauso schnell erledigt😁. Tipp: Variable "intEnd"
intStart = rngSearch.End - 1intStart = rngSearch.EndNr. 2 ist deine Hausaufgabe aber genauso schnell erledigt😁. Tipp: Variable "intEnd"
Hallo @7907292512 und danke für die Tipps.
Ich habe es jetzt bei der Variable "intEnd" versucht mit:
...aber Alles ist noch keine Lösung für die eine Leerstelle vor "DE........."
Bräuchte vielleicht noch nen kleinen Tipp
Grüße,
BN
Ich habe es jetzt bei der Variable "intEnd" versucht mit:
+ 5
+ 3
+ 2
+ 4 - 1...aber Alles ist noch keine Lösung für die eine Leerstelle vor "DE........."
Bräuchte vielleicht noch nen kleinen Tipp
Grüße,
BN
Ausprobieren ist nicht Sinn der Übung, sondern das Verständnis des Codes ... sobald du ihn verstehst weist du auch genau was zu tun ist . Also nicht dumm in der Gegend rum probieren sondern die grauen Zellen in Wallung bringen.
Mein Testergebnis mitdem was du uns hier "leider ohne Codetags" geliefert hast:
mit
Works as designed!
I'm out. 🖖
. Also nicht dumm in der Gegend rum probieren sondern die grauen Zellen in Wallung bringen.Mein Testergebnis mitdem was du uns hier "leider ohne Codetags" geliefert hast:
mit
Sub RemoveText()
Dim rngSearch As Range, intStart As Integer, intEnd As Integer
Set rngSearch = ActiveDocument.Content
rngSearch.Find.Execute FindText:="Konto:", Forward:=True
If rngSearch.Find.Found Then
intStart = rngSearch.End
Set rngSearch = ActiveDocument.Content
rngSearch.Find.Execute FindText:="auf DE"
If rngSearch.Find.Found Then
intEnd = rngSearch.Start + 3
ActiveDocument.Range(intStart, intEnd).Delete
End If
End If
End SubWorks as designed!
I'm out. 🖖
Danke Dir... aber ich muss zu meiner Entschuldigung sagen, dass ich mich mit Code so überhaupt nicht auskenne. Daher wußte ich auch nicht wirklich, was ich sonst noch probieren sollte.
Das mit + 3 hatte ich ja auch schon versucht...
Es soll halt so sein, dass hinter "Konto:" in die nächste Zeile umgebrochen wird.
Diese soll dann direkt vorne mit "DE" beginnen.
Ich teste jetzt nochmal mit Deinem kompletten Code, den Du eben gepostet hast.
Danke bis dahin.
Grüße,
BN
Das mit + 3 hatte ich ja auch schon versucht...
Es soll halt so sein, dass hinter "Konto:" in die nächste Zeile umgebrochen wird.
Diese soll dann direkt vorne mit "DE" beginnen.
Ich teste jetzt nochmal mit Deinem kompletten Code, den Du eben gepostet hast.
Danke bis dahin.
Grüße,
BN
Zitat von @BN2023:
Es soll halt so sein, dass hinter "Konto:" in die nächste Zeile umgebrochen wird.
Diese soll dann direkt vorne mit "DE" beginnen.
Das stand bisher nirgendwo...Es soll halt so sein, dass hinter "Konto:" in die nächste Zeile umgebrochen wird.
Diese soll dann direkt vorne mit "DE" beginnen.
Ich zitiere:
Und gelöscht werden soll alles nach dem Doppelpunkt nach "Konto" bis einschließlich des Wortes "auf" for der IBAN.
Lässt sich aber leicht einfügen.https://learn.microsoft.com/de-de/office/vba/api/word.range.insertafter
UPDATE:
Das Leerzeichen ist leider noch immer vor dem "DE" in der neuen Zeile.
Umgebrochen wird die Zeile jedoch!!
Grüße,
BN
Das Leerzeichen ist leider noch immer vor dem "DE" in der neuen Zeile.
Umgebrochen wird die Zeile jedoch!!
Grüße,
BN
Tja es gilt das was ich oben schon geschrieben habe wir haben hier nur das was du uns lieferst
Mein Testergebnis mitdem was du uns hier "leider ohne Codetags" geliefert hast:
Sub RemoveText()
Dim rngSearch As Range, intStart As Integer, intEnd As Integer
Set rngSearch = ActiveDocument.Content
rngSearch.Find.Execute FindText:="Konto:", Forward:=True
If rngSearch.Find.Found Then
intStart = rngSearch.End + 1
Set rngSearch = ActiveDocument.Content
rngSearch.Find.Execute FindText:="auf DE"
If rngSearch.Find.Found Then
intEnd = rngSearch.Start + 3
ActiveDocument.Range(intStart, intEnd).Delete
End If
End If
End SubVorher:
Nachher:
1
...ok, danke, werde ich gleich mal testen.
Grüße,
BN
Grüße,
BN
s. Mein Ergebnis im letzten Kommentar!
Im Moment ist das der vollständige Code:
Du verstehst nicht, ich meine nicht den Code sondern den Original Text in Codetags wegen Sonderzeichen etc.!
yessssssssss, das hat funktioniert
Danke Dir.
Es lag also nur an dem + 1 hinter dem "rngSearch.End". Also eine Leerstelle, die am Anfang der neuen Zeile gelöscht werden soll? Verstehe ich das so richtig?
Grüße,
BN
"Original Text in Codetags" hätte ich jetzt auch nicht wirklich gewußt, was Du damit meinst. Aber funktioniert ja jetzt!!
Danke Dir.
Es lag also nur an dem + 1 hinter dem "rngSearch.End". Also eine Leerstelle, die am Anfang der neuen Zeile gelöscht werden soll? Verstehe ich das so richtig?
Grüße,
BN
"Original Text in Codetags" hätte ich jetzt auch nicht wirklich gewußt, was Du damit meinst. Aber funktioniert ja jetzt!!
Also eine Leerstelle, die am Anfang der neuen Zeile gelöscht werden soll? Verstehe ich das so richtig?
Nein, Zeilenumbrüche zählen auch als Zeichen., somit wird der Zeilenumbruch nicht gelöscht und bleibt erhalten.
ah ok, das verstehe ich.
Grüße,
BN
Grüße,
BN
"Original Text in Codetags" hätte ich jetzt auch nicht wirklich gewußt, was Du damit meinst.
Damit meinte ich den Teil hier, da beim pasten als normaler Forums-Text eventuelle Sonderzeichen (Tabs, etc.)verloren gehen, wenn man ihn dagegen in Code-Tags einbettet bleiben diese erhalten. Das ist essentiell wenn man auf sämtliche Zeichen im Original als Programmierer angewiesen ist.
Die Überweisung erfolgt ab Mitte November auf das Konto:
Max Mustermann:
- Sonderzuwendung, 60,00 € auf DE123123456456789 bei der SPARKASSE FULDA
OK und danke für den weiteren Hinweis.
Werde ich in Zukunft bei ähnlichen Fragen so machen!
Danke für die Hilfe und Grüße,
BN
Werde ich in Zukunft bei ähnlichen Fragen so machen!
Danke für die Hilfe und Grüße,
BN
