Discussion :

[CTotophe85]

Bonjour à tous,

J'essaye de récupérer tout le contenu texte d'un document Word toute version (.doc/.docx) via un programme .NET.
J'arrive à ouvrir mon document et à récupérer le texte d'un document basique. Par contre je n'arrive à récupérer le texte contenu dans une forme contenant du texte. On peut dans word faire insertion -> formes et mettre du texte dans la forme. J'aimerai récupérer en plus du texte contenu dans le document, le texte contenu dans ces éléments.


Merci d'avance.

[Sepia]

Salut CTotophe85,

Il faut que tu regardes dans le modèle d'un document Word et ses collections. Dans ton cas, le document est accessible par ActiveDocument et la liste des zones de texte par la collection Shapes (Attention, pas InlineShapes). Il suffit alors de trouver la syntaxe de ton langage de programmation. Par exemple en VB, tu pourrais utiliser quelque chose comme

Code :

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

1
2
3
4
 
For Each aShp In ActiveDocument.Shapes
    MsgBox "Texte de la zone = " & aShp.TextFrame.TextRange.Text
Next

@+

[CTotophe85]

Salut Sepia,

Merci pour les infos. J'utilise pour ce projet du VB.Net.
C'est super j'arrive à récupérer avec cette méthode tous les éléments

A la base je récupérais les éléments dans le presse papier. Mais je me suis rendu compte que cela ne fonctionnait pas dans tous les cas.

Code :

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

1
2
3
 
ActiveWindow.Selection.WholeStory()
ActiveWindow.Selection.Copy()

Avant de poster j'étais parti sur le fait de balayer les différents paragraphs du document sauf que pour balayer l'intérieur du paragraph c'est un peu compliqué car l'élément n'est pas fortement typé

Code :

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

1
2
 
ActiveWindow.Selection.Paragraphs.First.Range

Par contre pour la solution il est important de noté que ActiveWindow.Selection.WholeStory() est obligatoire après avoir fait le Open:

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
 
Dim lDoc As New Microsoft.Office.Interop.Word.Document
lDoc = lWord.Documents.Open(lFileName, lConfirmConversion, lReadOnly, lAddToRecentFile, lPasswordDoc, lpasswordTemplate, lRevert, lWritePasswordDoc, lWritePasswordTemplate, lFormat, lEncoding, lVisible, lOpenAndRepair, lDocumentDirection, lNoEncodingDialog, lXMLTransform)
 
'Sélection de tous les éléments de la page
lDoc.ActiveWindow.Selection.WholeStory()
 
Dim lText As New System.Text.StringBuilder
 
For Each lElement As Shape In lDoc.Application.ActiveDocument.Shapes
     Try
         lText.AppendLine(lElement.TextFrame.TextRange.Text)
      Catch
      End Try
Next

[clementmarcotte]

Bonjour,

Cela ne répond pas à la problématique pour les fichiers .doc mais bon...

Pour Word 2007 et suivants:

http://code.msdn.microsoft.com/VBOpe...nText-9f01eef4

À la condition de télécharger le SDK Open XML:

http://www.microsoft.com/en-us/downl....aspx?id=30425

et d'ajouter la référence à DocumentFormatOpenXML.dll dans le projet VB.

[Sepia]

Salut CTotophe85

Merci pour les infos. J'utilise pour ce projet du VB.Net.
C'est super j'arrive à récupérer avec cette méthode tous les éléments

:ccol:. Le conseil général (du jour) est d'essayer d'utiliser au max ce que fournit Word mais encore faut-il connaître la bonne info ou au moins où la chercher et mais là DVP.com peut t'aider