Beste tweakers,
Ik zit met een probleem waarbij ik een margetekst wil aanbrengen in msword.
de margetekst wordt geplaatst in een tekstvak. Dit tekstvak wordt aangemaakt door het opgeven van de absolute x en y positie op de pagina en de hoogte en breedte.
Nu zijn de x-positie , hoogte en breedte continue gelijk, echter de y-positie moet gelijk zijn aan de y positie van de eerste regel in een paragraaf.
Nu geeft word in de statusbalk aan wat de absolute cursorpositie op de pagina is. Ik kan eenvoudig op de eerste regel in een paragraaf komen met mijn cursor, dus ik zou van deze waarde gebruik kunnen maken.
Heeft iemand een idee hoe ik de absolute cursorpositie in VBA kan uitlezen?
Bedankt,
Wzard
Ik zit met een probleem waarbij ik een margetekst wil aanbrengen in msword.
de margetekst wordt geplaatst in een tekstvak. Dit tekstvak wordt aangemaakt door het opgeven van de absolute x en y positie op de pagina en de hoogte en breedte.
Nu zijn de x-positie , hoogte en breedte continue gelijk, echter de y-positie moet gelijk zijn aan de y positie van de eerste regel in een paragraaf.
Nu geeft word in de statusbalk aan wat de absolute cursorpositie op de pagina is. Ik kan eenvoudig op de eerste regel in een paragraaf komen met mijn cursor, dus ik zou van deze waarde gebruik kunnen maken.
code:
1
2
3
4
| dim myShape as Shape dim posTop as integer 'posTop=absolute cursorpositie? set myShape=ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, posTop, 75, 20) |
Heeft iemand een idee hoe ik de absolute cursorpositie in VBA kan uitlezen?
Bedankt,
Wzard