[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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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