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 34 35 36 37 38 39
|
Sub presntation_du_doc()
'
'
Dim LVL_1 As String, LVL_2 As String, LVL_3 As String, un As Integer, deux As Integer, trois As Integer, nbligne As Integer, fin As Integer, lecture As String, nouvellevaleur As Integer, paragraphe As Paragraph, numeroduparagraphe As Integer 'je suis débutant en VBA, excusez moi de mettre autant de variables...
Selection.HomeKey Unit:=wdStory 'aller au debut du doc
While fin <> 1 'pour que le programme ne s'arrête qu'a la fin du document.
objdoc.Paragraphs(numeroduparagrraphe).Range.Select 'permet de selectionner tout les paragraphe du document 1 par 1
set lecture = (0,6) 'la est mon probleme: lecture dois copier le contenu de des 6 premiers caracteres du paragraphe, et pour etre plus precis, de ma selection.
lecture = LVL_1' LVL_1=1.
lecture = LVL_2' LVL_2=1.1.
lecture = LVL_3' LVL_3=1.1.1.
' ces 3 dernières étapes sont inutiles, les valeurs LVL_1,LVL_2 et LVL_3 ne me serve que de repère le temps de la création du programme
If LVL_1 = un & "." Then 'permet d'alleger le code, pour éviter qu'il ne s'execute a chaque paragraphe
If LVL_3 = un & "." & deux & "." & trois & "." Then 'si 1.1.1. alors
LVL_3 = Replace(LVL_3, un & "." & deux & "." & trois & ".", " " & un & "." & deux & "." & trois & ".") 'pour mettre un alinéa
trois = trois + 1
' sélectionner 6 caractères (ou + pour que le programme soit fonctionnel si alinéas?)
' mise en forme, pas encore préparé
ElseIf LVL_2 = un & "." & deux & "." Then 'la meme chose pour 1.1
LVL_2 = Replace(LVL_2, un & "." & deux & ".", " " & un & "." & nouvellevaleur & ".") 'pour remplacer la ligne
trois = 1 'réinitialisation de trois car quand on passe de 1.1.9 a 1.2.1, le dernier chiffre est remis a 0
deux = deux + 1
ElseIf LVL_1 = un & "." Then 'la meme chose qu'au dessus
nouvellevaleur = un + 1
LVL_1 = Replace(LVL_1, un & ".", " " & un & "." & nouvellevaleur & ".") 'pour remplacer la ligne
trois = 1
deux = 1
un = un + 1
End If
End If
numeroduparagrraphe=numeroduparagraphe+1
Loop
End Sub |
Partager