my $constref = Win32::OLE::Const->Load($Word);
# and then...
$Document->SaveAs( { FileName => 'bb.htm',
     FileFormat => $constref->{wdFormatHTML}} );