tekens uit selectie halen (2)

[ReilingJ]

Enige tijd geleden vroeg ik hulp bij het weghalen van tekens.

Aanvulend hierop heb ik het volgende, ik maak een kopie uit een selectie, simpel:

Selection.Copy

Nu wil ik uit deze selectie de laatste 2 tekens weghalen en terugplaatsen.

het terugplaatsen gaat als volgt:

ActiveDocument.Tables(5).cell(2, 3).Range.Text = Selection.Text

Wie kan mij helpen aan het stukje code om die twee tekens weg te halen?

Jan.

 

[leofact]

Jan,
HTML code in een vbatopic is wat verwarrend
Uitgaande van Word, het volgende:
- Zet de tekst in een string variabele met (= .value)
- Haal daar een string met de laaste twee tekens uit met:

strings.right(STRINGvariabele, 2)

- Zet nu deze tekst uit de variabele op de door jou gewenste plek.
Zo heb je alleen de laatste twee tekens
mvg leo

 

[ReilingJ]

Leo,

die HTML code komt door mijn verkeerd gebruik van de tag in het formulier om vragen te stellen.

Jammer genoeg lukt het me nog niet ik kom tot (met foutmelding):

Selection.Copy

STRINGvariabele.Value = Selection.tekst

ActiveDocument.Tables(5).cell(2, 3).Range.Text = Strings.Right(STRINGvariabele, 2)

 

[leofact]

StringVariabele isbedoeld als voorbeeld naam
sTemp of iets dergelijks is beter in gebruik.
Declareer de variabele expliciet ; Dim sTemp as String

STRINGvariabele.Value = Selection.tekst

moet zijn:

sTemp = Selection.te[COLOR="Red"]x[/COLOR]t

Nog even over de tags, want nu staat de VBA als citaat, dat moet zijn

Enne de .value had ik niet moeten noemen , daar heb je niets aan hier, sorry
mvg leo

 

[ReilingJ]

Leo,
bedankt voor je snelle reactie, ik laat nog weten of het is gelukt. (Ik wil eerst nog een nieuwe vraag stellen)

Jan.

 

[ReilingJ]

Leo,

na enig gepuzzel gelukt,

bedankt, Jan.