(vl-load-com)
(setq msw (vl-catch-all-apply 'vlax-create-object '("Word.Application") ))
(vlax-put-property msw 'visible 1)
(setq docs (vla-get-documents msw))
(setq doc (vlax-invoke-method docs 'add ))
(setq ran (vlax-invoke-method doc 'range Start:=16, End:=29))
(setq tabs (vlax-get-property doc 'tables))
(setq tabone (vlax-invoke-method tabs 'add ran 10 20))
(vlax-put-property tabone 'AllowAutoFit 1)
(vlax-put-property (vlax-get-property tabone 'borders ) 'enable 1)