Discussion :

[Philou67430]

Bonjour,

Je précise immédiatement que je ne connais pas grand chose à la programmation avec Word, et encore moins à VBA.

Cependant, je programme l'analyse d'un document Word en perl à partir des automatismes OLE (module Perl Win32::OLE). On retrouve grosso-modo dans l'interface perl de ce module, le modèle objet de MS-Word (j'utilise la doc en ligne du support Microsoft, mais ce n'est pas simple de trouver des réponses quand on n'a pas de formation sur les concepts de base).

Je parcours mon document et pour chaque paragraphe, je récupère bien le texte (Paragraph.Range.Text). Mais certains des paragraphes contiennent des objets OLE (des tableaux Excel) et l'extraction du texte du paragraphe n'est alors pas pertinente. Quelle méthode ou propriété de quel objet Word pourrait m'aider à récupérer ce ou ces objet(s) embarqués dans mes paragraphes ?

Merci d'avance.

[Philou67430]

En fait, en analysant plus finement ce que mon programme extrait, je m'aperçois que le contenu des cellules de mes objets Excel contenus dans mes paragraphes Word sont récupéré sous forme de texte (avec un caractère non imprimable à la fin, mais que je peux facilement filtrer).

Donc je en fait, l'extraction fonctionne correctement.
Pour information, un extrait de mon programme perl d'extraction :

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
 
use strict;
use warnings;
use feature qw(:5.14);
 
use Data::Dumper;
use Win32::OLE;
use Win32::OLE::Enum;
 
my $document = Win32::OLE -> GetObject($ARGV[0])
  or die "can't open: ".($! // $@)."\n";
my $paragraphs = $document->Paragraphs();
say "Nb of paragraphs: ", $paragraphs->{Count};
my $enumerate = new Win32::OLE::Enum($paragraphs);
while(defined(my $paragraph = $enumerate->Next())) {
  my $text = $paragraph->{Range}->{Text};
  my $style = $paragraph->{Style}->{NameLocal};
  my $list_text = $paragraph->{Range}->{ListFormat}->{ListString};
  # traitement
  # ...
}