VBA --> Paragraaf teken vervangen door Enter

[a3konijn]

Stel ik heb onderstaande tesktblokken

Aanhef Naam
Adres
Postcode Woonplaats

Nu wil ik met een macro (VBA) het document doorlopen en ieder paragraafteken (omgekeerde P met dubbele streep) vervangen door een spatie. Zodanig dat dit onstaat:

Aanhef Naam Adres Postcode Woonplaats

Ik heb de volgende code, maar deze werkt niet met paragraaftekens:

code:

Sub VervangParagraafTeken()
    Dim rngA As Word.range
    Dim LastPar As Boolean
    For X = 1 To ActiveDocument.Words.Count
        Set rngA = ActiveDocument.Words(X)
        LastPar = IsLastCharParagraph(rngA, True)
    Next X
End Sub

Function IsLastCharParagraph(ByRef rngTextRange As Word.range, Optional blnTrimParaMark As Boolean) As Boolean
    Dim strLastAChar As String
    
    strLastChar = Right$(rngTextRange.Text, 1)

    If InStr(strLastChar, Chr$(13)) = 0 Then
      IsLastCharParagraph = False
      Exit Function
    Else
      IsLastCharParagraph = True
      If Not blnTrimParaMark = True Then
        Exit Function
      Else
        Do
            rngTextRange.SetRange rngTextRange.Start, rngTextRange.Start + rngTextRange.Characters.Count - 1
            Call IsLastCharParagraph(rngTextRange, True)
        Loop While InStr(rngTextRange.Text, Chr$(13)) <> 0
      End If
    End If
End Function

Wie weet wat ik fout doe?

[mOrPhie]

dit kan makkelijker volgens mij moet dit werken:

code:

Function FromClrfToSpace(strBuffer as string) as string
    FromClrfToSpace = replace(strbuffer,chr(13)+chr(10)," ")
End Function

of

code:

Function FromClrfToSpace(strBuffer as string) as string
    FromClrfToSpace = replace(strbuffer,vbCrlf," ")
End Function

werkt ook waarschijnlijk. je moet het zelf ff inbouwen in jou vba app. Houdt er rekening dat die p met dubbele streep die jij bedoeld, niet in de doc zelf zit, maar een instelling is in wordt om de "commands return" visueel weer te geven. En harde enter bestaat namelijk uit een Command Return en een Line Feed. En dat is dus Crlf