Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1393 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Word signets

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA Word signets

n°2357567
lucaconfor​tola
Posté le 07-07-2020 à 08:03:39  profilanswer
 

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 :
  1. Dim nblignes As Integer
  2. Dim l As Integer
  3.     nblignes = ActiveDocument.ComputeStatistics(wdStatisticLines)
  4.     Selection.StartOf unit:=wdStory
  5.     Do Until l = nblignes
  6.     With Selection.Find.Font
  7.         .Bold = True
  8.         .Underline = wdUnderlineSingle
  9.     End With
  10.     With Selection.Find
  11.         .Text = "^?"
  12.         .Replacement.Text = ""
  13.     End With
  14.     Selection.Find.Execute
  15.     Selection.MoveLeft unit:=wdCharacter, Count:=1
  16.     Selection.TypeText Text:="§"
  17.     Selection.MoveDown unit:=wdLine, Count:=1
  18.     l = l + 1
  19.    
  20.     Loop


 
Et aussi
 

Code :
  1. Dim position_curseur As Long
  2. Dim position_signet As Long
  3. If ActiveDocument.Bookmarks.Exists("fin" ) = False Then
  4. récupérer la position actuelle du curseur
  5. ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="fin"
  6. Else
  7. position_curseur = ????
  8. position_signet = ????
  9. end if
  10. if position_curseur = position_signet then
  11. GoTo terminer
  12. else
  13. exécuter mes commandes de remplacement
  14. end if
  15. terminer :
  16. End Sub


Message édité par lucaconfortola le 07-07-2020 à 08:09:10
mood
Publicité
Posté le 07-07-2020 à 08:03:39  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Word signets

 

Sujets relatifs
VBA PPT - Sélectionner plusieurs Shape pour appliquer une animationVBA TCD supprimer une année
[VBA] UPnP : « Lire sur l’appareil » : comment pousser un fichier?[VBA] Modification d'un Excel depuis Access
[VBA] Datediff avec prise en compte des WE et/ou des jours ouvrés ?Macro pour copier un tableau avec mot cle de word vers excel et dispat
Excel VBA : fonction indiquant #value au démarrageVBA Word et Sendkeys
VBA Excel, TextBox qui ne fonctionne pas.[VBA] Renseigner des signets Word dans une boucle For.
Plus de sujets relatifs à : VBA Word signets


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR