Read MS Word table data row wise using win32:ole perl -


I am new to Perl to Win32: Oll module at the command prompt, I am trying to print MS Word table data row I am But I'm able to print the last line of the table. Can you help me solve this problem? thank you in advanced.

Below is my code: 

  #! Use / usr / bin / perl strict; Use warnings; File :: spec :: functions use qw (catfile); Use Win32 :: OLE qw (in); Use Win32 :: OLE :: Conte 'Microsoft Word'; $ Win32 :: OLE :: Alert = 3; My $ word = get_word (); $ Word- & gt; {DisplayAlerts} = wdAlertsNone; $ Word- & gt; {Visible} = 1; My $ Doctor = $ word- & gt; {Document} - & gt; Open ('C: \\ PerlScripts \\ myTest.docx'); My $ tables = $ word- & gt; Active document- & gt; {'Tables'}; For my $ table (in $ tables) {my $ tableText = $ table- & gt; ConvertText ({separator = & gt; wdSeparateByTabs}); Print "table:" $ TableText-> Text (). "\ N"; } $ Doc- & gt; Close (0); Sub get_word {my $ word; Eval {$ word = Win32 :: OLE- & gt; GetActiveObject ('Word.Application');}; Die "$ @ \ n" if $ @; Unless (defined $ word) {$ word = win32 :: OLE- & gt; New ('Word.Application', sub {$ _ [0] - & gt; quit}) or die "Oh, can not start Word:", Win32 :: OLE- & gt; Last errer, "\ n"; } Return word; }    
 
 
 The perfect solution by any means, but is an improvement on this issue . / P> 
 I use a string separator "\ n \ n" which produces the following output ...  
 After this, the need is: Hacking ( 
  C: \ StackOverflow & gt; Pearl word.pl meTest.docx table: Headerl Header2 Header3 Header4 ROWl-CELLl ROWl-CELL2 ROWl-CELL3 ROWl-Cell4 ROW2-CELLl ROW2-CELL2 ROW2-CELL3 ROW2-Cell4 ROW2- Cell5  . 
 here is the code I have table loop that I have some other code commented out used to hack on the data $ tableRange- & gt ,. {text} comment Delete For Further Experiment  
  # / Usr / bin / perl use strict; use warnings; use File :: Spec :: Functions qw (catfile), Win32 :: OLE qw) in ( Use Win32: :: OLE :: CONST 'Microsoft Word'; $ Win32 :: OLE :: Warning = 3, my $ word = get_word (); $ word-> {DisplayAlerts} = wdAlertsNone; $ word- & gt; {city} = 1; my $ doc = $ word- & gt; {document} - & gt; Open ( "Mitst Daokks'); my $ tables = $ wo rd- & gt; ActiveDocument-> {'Table'}; For my $ table (in $ tables) {my $ tableRange = $ table- & gt; Convertto Text ({separator = & gt; "\ n \ n"}); Print "Table: \ n". $ TableRange-> {Text}. "\ N"; # Foreign currency $ word (partition / \ n /, $ tableRange- & gt; {text}) {# print $ word "\ N"; # # $ Userinput = & lt; STDIN & gt; #}} $ Doc- & gt; Close (0); Sub get_word {my $ word; Eval {$ word = Win32 :: OLE- & gt; GetActiveObject ('Word.Application');}; Die "$ @ \ n" if $ @; Unless (defined $ word) {$ word = Win32 :: OLE- & gt; New ('Word.Application', sub {$ _ [0] - & gt; quit}) or die "Oh, can not start Word:", Win32 :: OLE- & gt; Last errer, "\ n"; } Return word; }   
 Sorry, I can not help more

Comments

Post a Comment

Popular posts from this blog

Python SQLAlchemy：AttributeError: Neither 'Column' object nor 'Comparator' object has an attribute 'schema' -

I tried to create a new database in my project, but when I run the script, I get this error, I have another project, this type of definition worked before, but now it gets a single error. I am using Python 2.7.8 and the version of SQLAlchemy module is 0.9.8. By the way, using a project flask- SQLAlchemy, it works well, I'm confused. Traceback information is as follows: Traceback (most recent call final): File "D: / Projects / IOM / db_create.py", line 4, & lt; Module & gt; From the models the base file "D: \ Projects \ OO-IM \ models.py", in line 15, in the & lt; Module & gt; Column ( 'followed_id', int (), ForeignKey ( 'user.id')) file "C: \ Python27 \ lib \ site-packages \ SQLAlchemy \ SQL \ schema.py", line 369, __new__ schema = metadata. Schema file "C: \ Python27 \ lib \ site-packages \ SQLAlchemy \ SQL \ elements.py", line 662, AttributeError in __getattr__ key): Neither 'column' object nor ...
Read more

java - How not to audit a join table and related entities using Hibernate Envers? -

I use Eners to be hibernate to audit my institutions. I have an audit entity, Foo , which includes a list & lt; Bars & gt; However, I do not want to audit the bar institutions, in the form of properties, I have written that: @inti @edicated public class Foo {@JoinTable (name = "T_FOO_BAR", joinColumns = @JoinColumn (name = "FOO_ID"), inverseJoinColumns = @JoinColumn (Name = "BAR_ID")) @ManyToMany (Cascade = Persist) @ Indited (targetAuditMode = RelationTargetAuditMode.NOT_AUDITED ) Public listing & lt; Bars & gt; GetBars () {Return bars; }} Now, I want to retrieve an amendment of foo : AuditReader reader = AuditReaderFactory.get (GetEntityManager ()); FU modification = (FU) reader.CreativeTeA () .entensEtrevision (Foo Class, 42) .getSingleResult (); Unfortunately, when I want to retrieve all the data (i.e. when it loads lazy times ), error me ORA-00942: table or view is not present , because Tried to query this: Sel...
Read more

mongodb - CakePHP paginator ignoring order, but only for certain values -

While pagging my user model in kppp, I can sort with some values, but not others. For example, I can order results from created or email , for example, but username or reputation seems to come back order by arbitrary command for example with a list of users: $ this-> paginate = array ('condition' => array ( 'User.is_active' = & gt; true), 'border' => 24, 'order' => array ('User.created' => DESC)); Works as expected, but $ this - & gt; Paged = array ('conditions' = & gt; array (' user.isIactive '= & gt; true),' border '= & gt; 24,' command '= & gt; array (' user repeats' = ' & Gt; DESC ')); No, no. I first thought that this could be a database issue, but when I search the database directly, sorted as expected. Note: I am using Mangodebi with the Mongo DB plugin of Ichikawa for the KPPHP; Pagnetizing users are used to work properl...
Read more