Voici mon script
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl
 
#--------------------------- *Concat_sequences.pl 
 
use strict;
use warnings;
 
use FileHandle;
 
use Win32::OLE;
use Win32::OLE::Enum;
 
 
 
my $gene = 'HLC';
 
my $dir = 'P:/Theorie/ELODIE/dendrogramme_purA_pts_HLC/Sequences';
my $fh = FileHandle->new(">$dir/${gene}/${gene}.doc");
close $fh;
 
 
 
# glob retourne le chemin complet vers le fichier
my @files = grep { !/^\.\.?$/ } glob($dir."/${gene}/*.doc");
 
 
foreach my $input_file (@files){
 
	my $document = Win32::OLE -> GetObject($input_file);
 
	my $paragraphs = $document->Paragraphs();
	my $enumerate = new Win32::OLE::Enum($paragraphs);
	while(defined(my $paragraph = $enumerate->Next())){
		# my $style = $paragraph->{Style}->{NameLocal};
		# print "+$style\n";
		my $text = $paragraph->{Range}->{Text};
		if ($text =~ m/^\w+$/){
			print "$text\n";
		}
	}
}
J'obtiens de MS Word l'erreur :
Impossible de démarrer le convertisseur mswrd632
Je suis obligée d'annuler ce message et mon script indique
Win32::OLE(0.1707) error 0x80004004: "Opération abandonnée" at Concat_sequences.pl line 29
eval {...} called at Concat_sequences.pl line 29
Can't call method "Paragraphs" on an undefined value at Concat_sequences.pl line 31.
Avez-vous une idée de ce que je dois faire?

Merci,