To answer your question with perl:
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
$Win32::OLE::Warn = 2;
my $Word = Win32::OLE->GetActiveObject('Word.Application')
|| Win32::OLE->new('Word.Application', 'Quit');
$Word->{'Visible'} = 1;
my $Doc = $Word->Documents->Add();
$Word->Selection->WholeStory;
$Word->Selection->InlineShapes->AddOLEControl({ClassType=>'Forms.Ch
+eckBox.1'});
You'll probably have to read the class documentation to get the names for the ClassTypes for OLEControls, but that's a good exercise for the reader.
C-.
---
Flex the Geek |