Discussion :

[PFloeur]

Bonjour,
Je suis prof de maths et j'ai besoin d'utiliser le symbole d'un arc orienté, qui semble ne pas exister dans l'éditeur d'équations d'office word (j'ai la version 2016).
Pour un arc de cercle allant d'un point A vers un point B, le symbole est un petit arc de cercle qui surmonte les lettres AB, avec une flèche côté droit.

Je ne sais pas utiliser VBA, donc si vous avez une macro toute prête à me proposer (avec les lettres paramétrables, car évidemment j'aurai besoin de pouvoir parler d'autres arcs orientés qu'un arc AB), je suis preneuse.
Je remercie la communauté !

[Invité]

Bonjour,

Le code suivant duplique et colle un groupement de formes contenu en bas du document joint après le paragraphe en cours.

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
 
Sub DupliquerLeSymboleArcGroupe()
 
Dim NumeroParagraphe As Long
 
    With ActiveDocument
 
         Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
         NumeroParagraphe = Selection.Paragraphs.Count
 
         .Shapes("ArcGroupe").Select
         Selection.Copy
 
         With .Paragraphs(NumeroParagraphe).Range
            .Collapse Direction:=wdCollapseEnd
            .MoveEnd Unit:=wdCharacter, Count:=-1
            .PasteSpecial Link:=False, DataType:=8, Placement:=wdInLine, DisplayAsIcon:=False
            .Select
         End With
 
    End With
 
End Sub

Pièce jointe 354431

Il ne vous reste plus qu'à déplacer la forme et à modifier son contenu après avoir sélectionné la forme correspondant au texte du groupement.

[PFloeur]

Merci beaucoup !! Un outil prêt à l'emploi et facile à "régler". Quelle efficacité !