MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 14.06.2018, 09:26   #1
es6001
Neuer Benutzer
Neuer Benutzer
Standard VBA - Text suchen und löschen

Hallo,

ich suche in meinem Dokument nach einem bestimmten Text und möchte diesen löschen.

Mit dem Link http://www.chf-online.de/vba/vbafindreplace.htm habe ich genau das gefunden, was ich gesucht habe.

Allerdings, wenn ich

Sub SearchAndReplace()
fkt_Search "<|", "|>", False
End Sub

auf True setze, dann kommt es zum Laufzeitfehler 5904.

Kann mir hier jemand helfen?

LG
Edwin

Geändert von es6001 (14.06.2018 um 09:45 Uhr).
es6001 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.06.2018, 14:00   #2
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Edwin,

informativer als die Nummer wäre die Beschreibung des Laufzeitfehlers gewesen. Aber wie auch immer: Das müsste man sich ansehen. Lad doch bitte ein Musterdokument hoch.

Es muss nichts enthalten außer ein bisschen Blindtext und den zu löschenden Text. Falls der Text in einer Tabelle, einem Textfeld oder sonst wo Exotisches gesucht werden soll, bilde das im Musterdokument auch ab.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.06.2018, 14:16   #3
es6001
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Musterdokument

Hallo Gerhard,

hier ein Musterdokument.

Ich hoffe Du verstehst, was ich meine.

LG
Edwin
Angehängte Dateien
Dateityp: docx Mustertext.docx (10,0 KB, 2x aufgerufen)
es6001 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.06.2018, 14:24   #4
es6001
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Ergänzung zum Laufzeitfehler

Hallo Gerhard,

Meldung zum Laufzeitfehler "Bereich kann nicht bearbeitet werden"

Beim Debuggen siehe Anhang

LG
Edwin
Angehängte Grafiken
Dateityp: jpg Laufzeitfehler 5904.JPG (22,2 KB, 3x aufgerufen)
es6001 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.06.2018, 14:53   #5
es6001
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Musterdokument jetzt mit VBA

Hallo Gerhard,

sorry, hab den VBA vergessen einzufügen.

Sobald in

Sub SearchAndReplace()
fkt_Search "<|", "|>", False
End Sub

False mit True ersetzt wird, kommt die Fehlermeldung.

LG
Edwin
Angehängte Dateien
Dateityp: docx Mustertext.docx (10,0 KB, 1x aufgerufen)
es6001 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.06.2018, 15:06   #6
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Edwin,

ich hab Christians Makro in dein Dokument kopiert und als einzige Änderung bei dem abschließendem Tag noch die zweite spitze Klammer hinzugefügt (wie bei dir ersichtlich).

Das Makro funktioniert tadellos, sowohl beim Färben als auch beim Löschen. Ich kann auch an dem Code nichts erkennen, was da problematisch sein könnte. Mit welcher Word-Version arbeitest du?

Ich häng dir dein Dokument mit dem Makro drin an.

Aber du brauchst gar kein Makro. Es geht auch per normalem Suchen und Ersetzen. Schau dir das Bild an.

Nachtrag: Wenn du ein Makro mitsenden willst, benötigst du das Dokumentformat docm. Ein docx verliert sein Makro, sobald es gespeichert wird
Angehängte Grafiken
Dateityp: png platzhaltersuche.png (5,6 KB, 3x aufgerufen)
Angehängte Dateien
Dateityp: docm EdwinMustertext.docm (15,4 KB, 3x aufgerufen)

__________________

Gruß
Gerhard

Geändert von Gerhard H (14.06.2018 um 15:09 Uhr). Grund: Nachtrag wg Überschneidung
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.06.2018, 15:54   #7
es6001
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Es liegt an meinem Text

Hallo Gerhard,

es liegt an meinem Text, deshalb kommt es zum Fehler.
Jetzt stehe ich aber trotzdem auf dem Schlauch und hoffe auf Deine Hilfe.

Im Anhang der Mustertext mit dem der Fehler kommt.

LG
Edwin
Angehängte Dateien
Dateityp: docm Mustertext.docm (17,9 KB, 1x aufgerufen)
es6001 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.06.2018, 20:01   #8
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Edwin,

dein zu durchsuchender Text ist die Beschriftung eines Hyperlink-Feldes. Das Sprungziel dieses Hyperlinks ist aber eine ganz andere Adresse (guck es dir an mit Alt-F9). Und darin liegt die Crux.

Du musst also noch ein bisschen genauer werden:
Benötigst du am Ende einen funktionsfähigen Hyperlink?
Wenn ja: soll er nach Max Mustermann gehen oder an dich?

Wenn nein, hätte ich folgenden Vorschlag zu machen:
1. Auflösung des Feldes in normalen Text, sonst klappt die Suche nicht (übrig bleibt der Max Mustermann).
2. Ersetzen-Vorgang nach den spitzen Klammern.

Das geht dann doch am einfachsten per Makro. Das hab ich in das neue Musterdokument eingebaut (im Modul ThisDocument). Starte die Prozedur Sub main()

Wenn das nicht ist, was du wolltest, erkläre dein gewünschtes Ergebnis genauer.
Angehängte Dateien
Dateityp: docm EdwinMustertext.docm (23,6 KB, 3x aufgerufen)

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.06.2018, 11:16   #9
es6001
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Gerhard,

erst mal sorry für die späte Antwort.
Kam einfach nicht mehr dazu.

Hyperlink benötige ich nicht und kann entfernt werden.
Übrig soll nur der Max.Mustermann@123.de ohne Hyperlink bleiben.

Wie entferne ich den Hyperlink per VBA?

Vielen Dank!

VG
Edwin
es6001 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.06.2018, 12:23   #10
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Edwin,

leider hab ich vor lauter guten Ratschlägen vergessen, das neue Makro ins Musterdokument einzubauen. Jetzt ist es drin und lautet so:
Code:

Sub main()
FelderAufloesen
nur1AdresseUebriglassen
End Sub

Sub FelderAufloesen()
Dim i As Long

    With ActiveDocument
        For i = .Fields.Count To 1 Step -1
            If .Fields(i).Type = wdFieldHyperlink Then
                .Fields(i).Unlink
            End If
        Next i
    End With
End Sub

Sub nur1AdresseUebriglassen()

With ActiveDocument.Range.Find
    .MatchWildcards = True
    .Text = "\<*\>\>"
    .Replacement.Text = ""
    .Execute Replace:=wdReplaceAll
End With
End Sub
Starte das Makro Sub main(). Die Hyperlink-Felder werden aufgelöst und stehen bleibt jeweils nur die Beschriftung des ehemaligen Hyperlinks.
Angehängte Dateien
Dateityp: docm EdwinMustertext.docm (22,3 KB, 0x aufgerufen)

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.06.2018, 12:56   #11
es6001
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Perfekt!

Hallo Gerhard,

VBA funktioniert.

Herzlichen Dank.
Du hast mir hiermit sehr viel Mühe erspart.

Liebe Grüße
Edwin
es6001 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:37 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.