Discussion :

[a_centaure]

bonjour,


Depuis excel, je scanne un document word en reperant les paragraphes de niveau 2 et 3 dont je copie ensuite les titres dans une feuille exel.
Je voudrais aussi pouvoir reperer leur localisation (n° de ligne dans le doc) et la je seche, impossible de trouver la commande qui me renvoie le n° de ligne..

pouvez vous m'aider?

merci

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
Sub Identifie_Paragraphe()
Dim WordApp As Word.Application
Dim WordDoc As Word.document
Dim cible As Paragraph
 
Set WordApp = New Word.Application
WordApp.Visible = False
 
Set WordDoc = WordApp.Documents.Open("D:\Doc_Export_para2.Docx")
WordDoc.Bookmarks("\StartOfDoc").Select
 
i = 1
ligne = 1
For Each cible In WordDoc.Paragraphs
 
    largeur = cible.LineSpacing
    If cible.OutlineLevel = wdOutlineLevel2 Then
    Cells(i, 1).Value = Trim(cible.Range)
    'Cells(i, 3) = numero de ligne du paragraphe
 
     i = i + 1
    End If
    If cible.OutlineLevel = wdOutlineLevel3 Then
    Stop
    Cells(i, 2).Value = Trim(cible.Range)
    'Cells(i, 3) = numero de ligne du paragraphe
     i = i + 1
    End If
    ligne = ligne + 1
Next cible
 
WordApp.Visible = True
End Sub

[clementmarcotte]

Bonjour,

Il n'y a aucun moyen se déterminer une ligne dans un document Word. C'est un élément extrêmement variable qui dépend de trop nombreux facteurs. Entre autres de l'imprimante et de sa zone imprimable, du pilote d'imprimante, de la police de caractères utilisée, de la taille de la police, des tableaux, des images, des marges, de la justification, des coupures de mots etc.

[Heureux-oli]

Salut,

Le seul moyen que je connaisse pour y parvenir est de passer par un objet Selection.

Il faut placer la Selection sur la ligne et on peut alors récupérer le numéro de la ligne.

Code :

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

selection.Information(wdFirstCharacterLineNumber)

Le seul problème, c'est que le numéro de ligne est donné par rapport à la page et pas pour la totalité du texte.

[Sepia]

Salut a_centaure,

En fait Heureux-Oli a raison (comme d'habitude, il n'est pas responsable pour rien) et clementmarcotte aussi. Mais il a une ruse pour calculer la position d'une ligne dans un texte. Mais attention, il s'agit d'une ruse et comme le dit clementmarcotte ça dépend de tous les facteurs qu'il t'a donné (l'imprimante et de sa zone imprimable, du pilote d'imprimante, de la police de caractères utilisée, de la taille de la police, des tableaux, des images, des marges, de la justification, des coupures de mots etc.).
Voici la ruse, il faut une fois de plus demander à Word de résoudre le problème tout seul : dans Word, il y a dans la boite de propriétés, un onglet "Statistiques" qui donne la dernière valeur calculée du nombre de paragraphe, de mots et... de lignes. Voilà le code

Code :

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

NbLignes = Selection.Range.ComputeStatistics(Statistic:=wdStatisticLines)

Attention, tu dois d'abord faire une sauvegarde complète de ton document (avec les mises à jour des champs) puis te positionner sur le paragraphe dont le n° t'intéresse.

Evidemment tu peux adapter le code en te basant la position du paragraphe concerné mais tu devras faire la sauvegarde complète auparavant (1 seule fois suffit depuis la dernière modification).

@+

[Heureux-oli]

Salut,

Dans le code que tu viens de donner, il faut étendre la sélection jusqu'au début du document pour avoir le nombre de lignes.

[Sepia]

Oui, en effet, j'ai oublié de préciser.

[a_centaure]

bonjour,

merci de vos astuces.. ca m'a l'air bien compliqué !!!
Je pense qu'il est plus simple que je fasse directement une recherche du paragraphe dans mon texte word où je veux me placer (je veux transférer des tableaux d'excel vers word), faire un décalage d'un certain nombre de lignes et insérer mes données !!

[Sepia]

Salut a_centaure,

C'est comme tu veux mais la méthode n'est pas trop compliquée, c'est juste qu'elle dépend d'énormément de paramètres liés essentiellement à l'imprimante.

@+