[W10, office 2013] couleurs s'inscrivent pas dans les macros quand je les enregistre

sentinel166 · #1 08-23-2017, 09:32 AM

Soit une ligne contenant, sans formattage aucun, ""

Je met en route l'enregistreur de macro, pour obtenir ça: f a c ffa
le 2e f se voit appliqué la modification "Gradient Fill, Gold, Accent 4, Outline - Accent 4", le troisième f est barré, et le dernier a est en indice.
Ni l'application de couleurs, ni celle d'effets de texte/typographie un peu flashy ne sont pris en compte par l'enregistreur de macro.

Code:

Sub Macro5()
   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.Font.Bold = wdToggle
   Selection.MoveRight Unit:=wdCharacter, Count:=2
   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   If Selection.Font.Underline = wdUnderlineNone Then
       Selection.Font.Underline = wdUnderlineSingle
   Else
     Selection.Font.Underline = wdUnderlineNone
   End If
   Selection.MoveRight Unit:=wdCharacter, Count:=2
   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.MoveRight Unit:=wdCharacter, Count:=2
   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.MoveRight Unit:=wdCharacter, Count:=1
   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.Font.StrikeThrough = wdToggle
   Selection.MoveRight Unit:=wdCharacter, Count:=1
   Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   Selection.Font.Subscript = wdToggle
   Selection.MoveLeft Unit:=wdWord, Count:=4
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using Macros in Microsoft Word 2013	Jacqui.Spinks	Word VBA	0	03-02-2017 07:43 AM
When I create a new macro in Word 2013, it overwrites my previously saved macros.	lilihildreth	Word VBA	3	02-05-2015 03:27 PM
Edit button grayed out in macros dialog box (word 2013)	diesel94	Word VBA	2	07-18-2014 04:13 PM
Word 2013 problems with the Macros	boki_s78	Word VBA	3	04-23-2014 03:30 AM
Macros on Office 2011 for Mac	kemsonj	Word	6	10-25-2012 11:58 AM