MS-Office-Forum
Google
   

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

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 12.09.2017, 14:59   #1
lakoschka
Neuer Benutzer
Neuer Benutzer
Standard VBA - Suchen und Ersetzen: Fehler bei Bezug

Hallo zusammen,

ich möchte in meinem Dokument verschiedene Ersetzungen vornehmen.
Z.B. soll ein geschützer Leerschritt (in diesem Fall für den HTML-Editor schon als "& nbsp;" (den Leerschritt nach dem & habe ich jetzt nur hier eingefügt, da der Editor automatisch den geschützten Leerschritt umwandelt) markiert) nach dem Paragraphenzeichen stehen.

Die Bedingung ist aber, dass dies nur passiert, wenn danach auch eine Zahl kommt.

Daher habe ich folgendes Makro geschrieben:

Code:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "§([0-9])"
        .Replacement.text = "§& nbsp;1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Das Problem ist, dass wenn "Änderungen nachverfolgen" aktiviert ist, kommt die Ersetzung durcheinander und aus

"§1" wird "§&nbs1p;" anstatt "§& nbsp;1"

Hat jemand eine Idee, woran das liegen könnte?

Das Problem kommt auch bei anderen Ersetzungen, bei denen mit Bezügen gearbeitet wird.


Vielen Dank schonmal!
Laura

Geändert von lakoschka (12.09.2017 um 15:02 Uhr).
lakoschka ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 07:55   #2
halweg
MOF Koryphäe
MOF Koryphäe
Standard

Für den Fall, dass das ein Bug ist, solltest du deine Word-Version dazuschreiben.
Hast du schon mal probiert, das Ganze ohne Makro zu ersetzen?

__________________

Windows 7, Windows 10, Office 2002, Office 2010

Geändert von halweg (13.09.2017 um 07:57 Uhr).
halweg ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 09:09   #3
lakoschka
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo halweg,

ich benutze Word 2010.

Ja, habe ich. Auch über die Suchen/Ersetzen-Maske tritt der Fehler auf.

Viele Grüße!
lakoschka ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 11:20   #4
halweg
MOF Koryphäe
MOF Koryphäe
Standard

Ich hab's gerade mal mit der Mustersuche versucht und komme nicht auf den Fehler. Habe also
§([0-9])
durch
§{&}nbsp;{backslash}1 (ohne die geschweiften Klammern)
ersetzt und es funktioniert wie gewünscht. Gibt es in dem Dokument Besonderheiten? Stehen die §n- Begriffe vielleicht irgendwie neben anderen §-Zeichen?

__________________

Windows 7, Windows 10, Office 2002, Office 2010
halweg ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 15:08   #5
lakoschka
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Änderungen nachverfolgen

Hattest du dabei auch "Änderungen nachverfolgen" aktiviert?

Ich habe es gerade nochmal getestet und der Fehler kommt erneut. Die §-Zeichen stehen ganz normal im Fließtext.

Hier mal mit ein Stück Blindtext getestet:

http://www.bilder-upload.eu/show.php...1505394535.jpg
lakoschka ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 15:43   #6
halweg
MOF Koryphäe
MOF Koryphäe
Standard

Also bei mir klappt's auch mit Überarbeitungsmarkierungen. Irgendwas muss bei dir anders sein.

Ersetzen-Dialog?
Word-Einstellungen?
Einstellungen zum Nachverfolgen von Änderungen?

Momentan zeigt dein Bild gerade mal den Text selbst, kein Word-Fenster geschweige denn Einstellungen.

PS: Ich seh gerade: So ganz klappt es nicht, bin am prüfen....
Angehängte Grafiken
Dateityp: jpg Ersetzen.jpg (63,7 KB, 4x aufgerufen)

__________________

Windows 7, Windows 10, Office 2002, Office 2010
halweg ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 16:29   #7
halweg
MOF Koryphäe
MOF Koryphäe
Standard

Ich habe mir das mal im Detail angeschaut. Die Ziffer wird immer um zwei Positionen zu früh links eingesetzt. Vielleicht wird hier irgendein Spezialcode interpretiert, der dieses "um zwei Positionen nach links verschieben" bewirkt.

Als Workaround könntest du z. B. Hinter dem ";" beim Ersetzen zwei ## einfügen und die dann im ganzen Dokument einfach wieder entfernen. Oder eben einfach nur das Paragrafenzeichen ersetzen, falls das geht.

Trotzdem interessiert mich diese Interpretation des Ersetz-Ausdruckes, vielleicht stecken dahinter irgendwelche undokumentierten Funktionen. Wäre mal interessant, ob das in späteren Word-Versionen auch so ist.

__________________

Windows 7, Windows 10, Office 2002, Office 2010
halweg ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.09.2017, 09:16   #8
lakoschka
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke! Das ist eine gute Idee mit den ##, so werde ich es machen.

Aber es würde mich auch interessieren, woran das liegt. Ich habe es auch mal mit "nbsp;" und "&nbsp" ausprobiert, falls es irgendwie an den Zeichen liegt, aber es kommt das gleiche Ergebnis heraus.
lakoschka 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 22:23 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 - 2017, Jelsoft Enterprises Ltd.

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