Discussion :

[causek]

Bonjour,

Mon problème est le suivant:
Je souhaite initialiser une variable "Text2Previous" à "Table 0" (-> c'est fait).
Ensuite de section en section (-> c'est fait), je souhaite rentrer le texte de la 2ème ligne dans une variable "Text2Current" et ensuite comparer le texte de ces deux variables (Text2Previous et Text2Current). Si ces deux variables sont différentes alors on change le style de la ligne 2 courante "Text2Current". Si ces deux variables sont identiques alors la ligne courante devient previous et on boucle sur la section suivante jusqu'à la fin du document.
Je vous envoie ce que j'ai déjà (ne vous moquez pas!!):

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 SelectdeuxMLigne()
'
'affectation de la page courante
Sectnr = InputBox("Indiquez le numéro de SECTION pour le début de l'exécution de la macro (Prise en compte Page de garde + TOC)" & vbCrLf & vbCrLf & _
"Entrez un nombre entier", "forum Access")
 
'affectation du nombre de pages du document
TotSections = ActiveDocument.Sections.Count
 
'initialisation de la ligne previous à 'Table 0' par exemple
TextL2Previous = "Table 0"
 
' boucle de section en section
For inti = Sectnr To Sectnr Step 1
    Debug.Print inti
       Dim TextL2Current As String
       ' position sur la ligne n°2
       Selection.MoveDown wdLine, 1
       Selection.HomeKey wdLine
       Selection.EndKey wdLine, wdExtend
       TextL2Current = Selection.Text
       MsgBox TextL2Current
 
       ' Comparaison des deux variables (Retourne 0 si identiques)
       TextComp = StrComp(TextL2Current, TextL2Previous, CompareMethod.Text)
       ' Si différentes alors sélectionner et changer le style en Heading 1 pour la ligne courante
       If TextComp <> 0 Then
       Selection.Style = ActiveDocument.Styles("Heading 1")
 
Next inti
TextL2Previous = TextL2Current
 
End Sub

Voilà j'espère avoir été suffisamment claire et merci pour les éventuelles réponses

[marot_r]

Bonjour.

Il me semble que c'est un problème Word et non Access.

Si c'est le cas, je t'invite à poster cette question dans le forum correspondant.

A+