VBA Word signets

Marsh Posté le 07-07-2020 à 08:03:39

Bonjour,
Dans un document word je voudrais exécuter une série de commandes uniquement sur une portion de texte.
Pour ça j'ai cré un signet au point où je voudrais que la macro s'arrête mais... là je bloque.
J'ai pensé récupérer le numéro de paragraphe du signet et de le comparer avec le paragraphe en cours mais je n'y arrive pas.
Compter les lignes et répéter autant de fois mes commandes ne fonctionne pas non plus car il y a des lignes de titre, des lignes vides... et j'obtiens trop de répétitions.
Avez-vous une idée de comment faire?
Merci
Luca

Code :

Dim nblignes As Integer
Dim l As Integer
nblignes = ActiveDocument.ComputeStatistics(wdStatisticLines)
Selection.StartOf unit:=wdStory
Do Until l = nblignes
With Selection.Find.Font
.Bold = True
.Underline = wdUnderlineSingle
End With
With Selection.Find
.Text = "^?"
.Replacement.Text = ""
End With
Selection.Find.Execute
Selection.MoveLeft unit:=wdCharacter, Count:=1
Selection.TypeText Text:="§"
Selection.MoveDown unit:=wdLine, Count:=1
l = l + 1
Loop

Et aussi

Code :

Dim position_curseur As Long
Dim position_signet As Long
If ActiveDocument.Bookmarks.Exists("fin" ) = False Then
récupérer la position actuelle du curseur
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="fin"
Else
position_curseur = ????
position_signet = ????
end if
if position_curseur = position_signet then
GoTo terminer
else
exécuter mes commandes de remplacement
end if
terminer :
End Sub

Message édité par lucaconfortola le 07-07-2020 à 08:09:10

Marsh Posté le 07-07-2020 à 08:03:39

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *