[vb] Word en Enters doorgeven

[egev]

Ik heb een probleempje met word...
Ik doe via VB een SEARCH & REPLACE in Word.. nu moet ik een aantal Rijen aanmaken vanuit 1 string..

dat kan bv met

code:

Selection.TypeParagraph
Selection.TypeText Text:="nog een enter dan"
Selection.TypeParagraph

Maar dat wil ik niet, want het moet vanuit 1 string kunnen. Maar word accepteert dan totaal geen Enters...

code:

strReplace="3432" & vbCrLf & "343" & vbEnter & "3433432" & chr(10) & chr(13) & "234"

wat ik ook gebruik als enter optie... word maakt zeg maar van elke enter een
[][] teken (blokje blokje) van onbekend karakter...

Wat kan ik hieraan doen? Is er een andere enter code die ik moet meesturen?

Bedankt alvast..

[Verwijderd]

Ik weet niet hoe word werkt maar waarschijnlijk wordt een enter doorgegeven doormiddel van 1 de ascci waarden:
http://www.asscii.com/pages/ascii.php
En dan een van de ascci waarden die geen letter of cijfer vertegenwoordigd, ik weet zo niet percies uit mn hoofd welke nou een enter is maar dat zal wel op te zoeken zijn.

[Verwijderd]

Verwijderd schreef op 09 March 2003 @ 11:58:
Ik weet niet hoe word werkt maar waarschijnlijk wordt een enter doorgegeven doormiddel van 1 de ascci waarden:
http://www.asscii.com/pages/ascii.php
En dan een van de ascci waarden die geen letter of cijfer vertegenwoordigd, ik weet zo niet percies uit mn hoofd welke nou een enter is maar dat zal wel op te zoeken zijn.

13, en die gebruikt hij al met Chr(13)

[Dommel]

Werkt het wel als je eerst een enter geeft en dan pas een linefeed, chr(13) en chr(10) dus omdraaien, of werkt het dan nog steeds niet zoals de bedoeling is

[.oisyn]

de vbCrLf constante staat voor de string "\r\n", hij doet het dus gewoon goed

[egev]

Ik heb het op weten te lossen via een "bagger" manier... maar het werkt tenminste

code:

        Words.Selection.Find.ClearFormatting
        With Words.Selection.Find
            .Text = "|"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Words.Selection.Find.Execute
        Words.Selection.TypeParagraph

De enters vervangen door een pipe | en die daarna opzoeken en vervangen door een harde typeParagraph.. Alle andere manieren en linebreak aanroepen etc werken gewoon niet