Moving MS-Word own toolbars

[ssimop]

Actually, this is a typical sample of the part of a code I use, I wonder whether there exists something more elegant :

Function MSWord_ToolbarsRear

Code:

Copy      Help

int w=act(win("- Microsoft Word" "OpusApp"))

;Line 2 - Standard Toolbar
int cb x y cx cy ct1 x1 y1 cx1 cy1 ct2 x2 y2 cx2 cy2 ct3 x3 y3 cx3 cy3 d
cb=child("Standard" "MsoCommandBar" w) ;;tool bar 'Standard'
GetWinXY cb x y cx cy
;out F"{x} {y} {cx} {cy}"

ct1=child("PDFMaker 7.0" "MsoCommandBar" w) ;;tool bar 'PDFMaker 7.0'
GetWinXY ct1 x1 y1 cx1 cy1
;out F"{x1} {y1} {cx1} {cy1}"
lef+ x1 y1-cy1 w 1 ;;tool bar 'PDFMaker 7.0'
lef- x+cx+75 y-cy+3 w 1