Enter in VBA programmeren

[Verwijderd]

Is het mogelijk om een enter te programmeren in een If statement in word?

Ik heb nu de volgende regel:
{IF "A" = "1" "goed" "{IF "A" = "12" "goed1" "fout1" \*MERGEFORMAT}" \* MERGEFORMAT}

Maar nu moet eigenlijk tussen de 1 en 2 een enter code geplaatst worden. Want de uitslagen staan zo weergegeven:
1
2
3

is dat mogelijk?

[teh_twisted]

Normaal bij programmeertalen is dat \n voor *nix systemen en \r\n voor Windows systemen. Geen idee hoe dit bij VBA zit. Zal eventjes Googlen...

[koekiemonster]

probeer eens gebruik te maken van vbNewLine

[Eskimootje]

Of bijvoorbeeld vbCrLf

[teh_twisted]

vbCrLf is wat ik vond maar buiten dat... mischien wat koekiemonster tikte.
Anders Googlen op: VBA newline

[RaZ]

Kan op meerdere manieren:
Chr$(10) & chr$(13)
of
crlf

Zo uit m'n hoofd..

[Verwijderd]

en hoe verwerk ik dit dan in de regel?
{IF "A" = "1" "goed" "{IF "A" = "1Chr$(10)2" "goed1" "fout1" \*MERGEFORMAT}" \* MERGEFORMAT}?

[GateKeaper]

"1"&Chr$(10)&"2"

& was 't koppelteken in VBA toch?

[pedorus]

Dit is geen vba, dit is een word field. Je kunt gewoon op enter drukken om een enter in te voegen, als in
IF "A" = "1
2"

[Verwijderd]

hm wil nog niet werken...dit is de uitkomst:
{IF "1
2" = "1
2" "goed" "fout" \* MERGEFORMAT}

en ik krijg nog steeds uitkomst fout, terwijl het goed moet zijn!

[pedorus]

Geen "update field" (rechtsklikken) of de Nederlandse vertaling gedaan?

[RobIII]

Waar hoort mijn topic?
PRG >> OFF

[RaZ]

Wat je ziet, is misschien wel niet wat het is.

Zo kan je een spatie ( een chr(32) ) zien, maar het zou een chr(160) kunnen zijn. Wellicht zoek je naar een enter, terwijl er shift-enter is gebruikt. Dan zijn ook totaal verschillende dingen om te checken.

Een file selecteren met een dialoogvenster, moet je eerst een variabele vullen, doe je meestal door een string van 255 karakters te vullen met chr(0) (althans, ik deed dat). Vervolgens kan je die file niet vinden, want de bestandsnaam is niet 255 karakters lang. Trimmen heeft geen nut, die haalt enkel chr(32) weg standaard.

Wat je zou kunnen doen, is de lengte van het veld checken, want er kan ook een chr(13) alleen gebruikt worden, en als je checkt op 10 & 13, ga je nat.

Check de lengte van het veld. Maak een for-next loop, en laat de ascii-code zien van elke positie in het veld. Dan weet je echt exact waar je op moet zoeken.

Wellicht dat je daar je probleem mee kan traceren.

[Big Womly]

Het leuke aan VBA macro's is dat je op de record-knop kan drukken, de handelingen die jej macro moet uitvoeren manueel ingeven, en vervolgens op stop klikken. Alle code staat nu in Module1. Bestudeer deze code even en haal eruit wat je nodig hebt.

[RaZ]

Ik had overigens de volgorde fout blijkbaar in m'n eerste post. Een enter is niet 10 gevolgd door 13, maar precies andersom.

Maar zorg dat je exact weet wat er in de bron staat, anders kan je gewoon niet met zulke expressies aan de slag.

Je kan namelijk 2x een carrier return hebben, gevolgd door een linefeed. Het verschil zie je niet, maar het is wel een teken meer, waarbij je if de mist in gaat.

Want als je bijvoorbeeld dit laat zien:

code:

"9" & chr(8) & "1 " & chr(13) & chr(13) & chr(10) & "2 "

Dan zie je een 1 en op de volgende regel een 2. De 9 wordt door de backspace ( chr(8) ) weggehaald. En er staat een carrier return te veel in. En de cijfers hebben een spatie op het eind. Je ziet dus veel minder, dan er daadwerkelijk is.

[F_J_K]

Verwijderd schreef op maandag 23 januari 2012 @ 14:14:
en hoe verwerk ik dit dan in de regel?
{IF "A" = "1" "goed" "{IF "A" = "1Chr$(10)2" "goed1" "fout1" \*MERGEFORMAT}" \* MERGEFORMAT}?

Heb je het nu over VBA of over velden? Je topictitel zegt het een, je replies het andere. Gebruik je alt-F11 op ctrl-F9? Erg groot verschil.

VBA is eenvoudig: zie dit topic / Google.

In een veld: [google=word field new line] -> http://en.allexperts.com/...08/5/Line-break-field.htm -> gewoon shift-enter gebruiken binnen het veld.