my $word  = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{Visible} = 1;

my $document = $word->Documents->Open('C:/temp/doctest.doc');

my $table = $word->ActiveDocument->Tables(2);

my $selection = $table->Select;

$selection->MoveUp(wdLine,1);

my $str = $selection->Range(0,10)->{Text};

$table->Range->Copy;

print qq{$str\n};
[download]

It looks as if $selection did not get set. Are you sure $selection = $table->Select returns a "selection" object on which you can call the MoveUp(wdLine,1) method?

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

To get the selection you do the following:

$table->Select;
my $selection = $word->ActiveWindow->Selection;
[download]


- John

    # This was inside a wrapper hence the Excel object was stored as b
+elow
    my $book = $self->{Excel}->Workbooks->Add;

    # I also had previously stored all the tables in the object
    my $table = $self->{Tables}->[$i];   

    # Copy the table range
    $table->{Range}->Copy();

    # Add a new worksheet
    my $sheet = $Book->Worksheets->Add;
    $sheet->Paste;

       
    $self->{Excel}->{DisplayAlerts} = False;

    $sheet->Delete();


    # Close the excel book
    $book->Close( { SaveChanges => False } );

    # Empty clip board
    Win32::Clipboard->Empty();
[download]

- Merged cells: 'Only an issue if you actually want to extract the dat
+a when saved as txt tables (which I was)'
- Wraped cells in word: Wrapped cells will copy to excel to the number
+ of rows their text covers.
[download]

|----------------|
| A Heading      |
| that is wraped |
|----------------|

becomes

|----------------|
| A Heading      |
|----------------|
| that is wraped |
|----------------|

in excel
[download]

my $word  = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{Visible} = 1;

my $document = $word->Documents->Open('C:/temp/doctest.doc');

my $table = $word->ActiveDocument->Tables(2);
$table->Range->Copy;

... pasted into excel...
[download]

my $word  = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{Visible} = 1;

my $document = $word->Documents->Open('C:/temp/doctest.doc');

my $table = $word->ActiveDocument->Tables(2);

$table->Range->Copy;

my $selection = $table->Select;

$word->Selection->MoveUp(wdLine,1);
[download]

Just a guess as I don't have time to test this yet.. But you should probably be using 'wdParagraph' to move up.. A think a 'line' is not what you think it is, A paragraph will be terminated by the new line where as the line is just terminated by a 'wrap'.


For example in a multiline title:

Table 1: blah blah blah blah blah blah b
lah blah blah.
<br>
[download]

Moving up 1 line would only get to "lah blah blah." where as up 1 paragraph would be "Table 1: blah blah blah blah blah blah blah blah blah." You could then surely just select it as follows:

my $text = $selection->{Range}{Paragraph}{Text};
[download]

- John

# 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}
+;
[download]

# Example title regex
my $title_regex = qr/ Table \s ( \d+ ) :  /xms;

# Check only the five previous matches ( Could also keep checking unti
+l you find a match with a while )
for ( 0 .. 5 ) {
       # Get previous paragraph
       # Get Text

       # Exit or do somthing else if the title is found.
       last if $text =~ $title_regex;
}
[download]

Could you please show the code you use to find the table?

Hi, Can you please tell me how can I write a table (like row col as in excel) in a word doc. I have all the values with me. Table will be like below: ------------ Param|value ----------- ID |abc name |xyz Job |lmn ---------- Thanks Sanjoy

  while ($tablefound == 0){
    $word->Selection->MoveUp(wdLine,1);
    $word->Selection->HomeKey(wdLine);
    $word->Selection->EndKey(wdLine, wdExtend);

    my $str = $word->Selection->{Text};

    if ($str =~ m/Table (\d+)/){
      $tableID = $1;
      $tablefound = 1;
    }
  }
[download]

I Am using your method to get the Data from MSWROD Table. But am facing same problem, Excel cells are merged for WrapText if i export MSWORD Table into an Excel file. I think you have done some thing to get it as UnMerged. Could you please post that part of Code. If possible can you give your mail Id also. Mine Kowshik.S@KPITCummins.com