TSOffice/funcext/TSOffice/word/_WordSetCurrnetRange.tsf

Function _WordSetCurrnetRange(range);
Begin
	TOfficeApi().Set('CurrentPosition', range);
End;