Word VBA: test op selectie

[reneemettrie]

Ik moet een eenvoudige macro in Word VBA uitwerken.
Nu ken ik wel Excel VBA, maar geen Word VBA.

Hoe kan elegant je testen of er iets geselecteerd is?

Ik probeer met

 If Selection.Characters.Count = 0 then exit sub

maar als helemaal niets geselecteerd is wordt die expressie als 1 geëvalueerd, zelfde als wanneer effectief 1 teken werd geselecteerd.

 

[japiepatat]

Dat klopt. Als je in Word "niets" selecteert, dan heb selecteer je impliciet het volgende karakter.

Dus als er 'bladiebla' in je tekst staat en de cursor staat voor de 'd' dan zal b.v. selection.text 'd' teruggeven. Er is dus altijd iets geselecteerd. Wellicht kun je erachter komen door de huidige selection.text te vergelijken met een het karakter dat er direct op volgt. Als dat hetzelfde is dan is er geen selectie gemaakt.

Ik hoop dat het je helpt.

Groeten,

Johan van den Brink
Nimda
http://www.nimda.nl

 

[reneemettrie]

Dat klopt. Als je in Word "niets" selecteert, dan heb selecteer je impliciet het volgende karakter.

Dus als er 'bladiebla' in je tekst staat en de cursor staat voor de 'd' dan zal b.v. selection.text 'd' teruggeven. Er is dus altijd iets geselecteerd. Wellicht kun je erachter komen door de huidige selection.text te vergelijken met een het karakter dat er direct op volgt. Als dat hetzelfde is dan is er geen selectie gemaakt.

Ik hoop dat het je helpt.

Groeten,

Johan van den Brink
Nimda
http://www.nimda.nl

OK, bedankt. Is wel eigenaardig:shocked: