Seite 1 von 1

Text durch Absatzmarke ersetzen

BeitragVerfasst: 10. Jul 2021, 11:10
von Gast
Hallo,
in einer Markierung wird Text durch eine Absatzmarke ersetzt.
Hiermit funktioniert es. Wird aber der Text kopiert und z.B. in notepad eingefügt, werden die durch den Code eingefügten Absatzmarken nicht berücksichtigt. Es wird ein fortlaufender Text dargestellt.
Was ist der Grund dafür bzw. wie bekommt man auch im kopierten Text das Return?
Gruß Hubert
Code: Alles auswählen
  With Selection
    .Find.ClearFormatting
    .Find.Replacement.ClearFormatting
      With .Find
      .Text = "xyz"
      .Replacement.Text = "^13"'oder vbcrlf
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    .Find.Execute Replace:=wdReplaceAll

Re: Text durch Absatzmarke ersetzen

BeitragVerfasst: 10. Jul 2021, 15:59
von theoS
Vbcrlf sollte es eigentlich tun.
Da du hier die Suchen/Ersetzen Funktion verwendest, kannst du das mal mit ^p als Ersetzentext versuchen.

Re: Text durch Absatzmarke ersetzen

BeitragVerfasst: 10. Jul 2021, 16:09
von Gast
Hallo,
^p funktioniert
Danke, Gruß Hubert