Thema Datum  Von Nutzer Rating
Antwort
Rot Gezielt Text ersetzen
 11.04.2025 12:27:30 Xaiorn
NotSolved
11.04.2025 13:00:05 Gast35454
Solved
11.04.2025 13:58:05 Xaiorn
NotSolved

Ansicht des Beitrags:
Von:
Xaiorn		 Datum:
11.04.2025 12:27:30		 Views:
52		 Rating:
     
Antwort:
  Ja
Thema:
Gezielt Text ersetzen

Hallo zusammen.

ich möchte mir einige Klicks sparen, die in Summe echt Zeit (und Geduld) kosten. Es geht um QS-Dokumente, die freigegeben werden sollen per Makro. Dabei soll das (erste) Wort "Gesperrt" ersetzt werden durch "Freigegeben am "+aktuelles (unveränderliches) Datum. Soweit habe ich das mit folgendem Code:

'' Set myRange = ActiveDocument.Content
With myRange.Find
 .ClearFormatting
 .Replacement.ClearFormatting
 .Text = "Gesperrt"
 .Replacement.Text = "Freigegeben am"
 .Execute Replace:=wdReplaceOne
 With Selection.Find
 .ClearFormatting
 .Text = "Freigegeben am"
 .Execute Forward:=False
End With
 Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", _
InsertAsField:=False
  End With''

Problem ist, dass das Datum nicht so will, wie ich. Ich hatte es vorher soweit, dass es immer da eingesetzt wird wo der Cursor gerade ist, was aber nicht der Sinn ist; es soll Cursor-unabhängig hinter dem eingefügten Text stehen. Mit dem aktuellen bekomme ich einen Fehler.

Ja, es ist vermutlich einfach, aber ich steh auf'm Schlauch und finde es auch nicht in Hilfeforen...

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Gezielt Text ersetzen
 11.04.2025 12:27:30 Xaiorn
NotSolved
11.04.2025 13:00:05 Gast35454
Solved
11.04.2025 13:58:05 Xaiorn
NotSolved