# Load constants
my %CONSTANT = (
    %{ Win32::OLE::Const->Load( "Microsoft Excel 11.0 Object Library" ) },
    %{ Win32::OLE::Const->Load( "Microsoft Office 11.0 Object Library" ) },
    %{ Win32::OLE::Const->Load( "Microsoft Word 11.0 Object Library" ) },
);


# Get the table selection
$table->{Range}->Select();
my $selection = $word->ActiveWindow->{Selection};

# Get the text from the previous paragraph
my $prev_text = $selection->Previous( $CONSTANT{wdParagraph} )->{Text};