%
% open and position word if not already
%
_Word.Started
"wrdsted" log)(
{
 _Word.Opener
 {
 }
 {
"loafa" log#
%
% position word
%
  *wordarea *wordszer
"loafb" log#
%
% make sure word has the focus
%
  _Word.Handle Win.Focus
"loafc" log#
%
% register main word document events
%
  @^wdocEvents
"loafd" log#
  true !Word.Opener
 } ifelse
 *(+
}
{
 *(=
} ifelse