Discussion :

[cooldid]

Bonjour,

J'utilise un code pour extraire le texte d'un document word y compris le texte de l'en tête.
Le problème est que quand le document ne possède pas d'en tête ca plante.
Comment puis-je faire pour tester la présence de l'en tête dans le document ?

Si quelqu'un a une idée.
Merci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
MaZon:=D.StoryRanges.Item(wdMainTextStory);
MaZone:=D.StoryRanges.Item(wdPrimaryHeaderStory);
ttl:= MaZon.Text;
header:= MaZone.Text;
ttl := Trim(ttl);
header := Trim(header);
str := str + header + ttl + ' ';

[evarisnea]

Comment puis-je faire pour tester la présence de l'en tête dans le document ?

Si quelqu'un a une idée.

à l'aide d'un code protégé par un try except peut être ?

[cooldid]

Bonjour,

Merci pour la réponse, ça fonctionne.

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
 
try
   MaZon:=D.StoryRanges.Item(wdMainTextStory);
   MaZone:=D.StoryRanges.Item(wdPrimaryHeaderStory);
   ttl:= MaZon.Text;
   header:= MaZone.Text;
   ttl := Trim(ttl);
   header := Trim(header);
   str := str + header + ttl + ' ';
except
   MaZon:=D.StoryRanges.Item(wdMainTextStory); 
   ttl:= MaZon.Text;
   ttl := Trim(ttl);
   str := str + ttl + ' ';
end;

Merci beaucoup

[exoseven]

il serait plus "propre" que tu vérifies si tes MaZon et MaZone existent bien avant de les utiliser, un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Assigned(MaZone) then header := trim(MaZone.Text);

[evarisnea]

Bonjour,

Merci pour la réponse, ça fonctionne.