r_pakker

Hello 'Echonome' Since long I avoid making use of the 'symbol font'. Not everybody has this font on his/her device. For no trump I use the 'white sun' symbol. And I added 'double' and 'redouble' macro's. '.InsertAfter ""' is added because it stops continuing sometimes typing in the wrong color when you have deleted text after a coloured symbol. I coupled these macro's to free <ALT-Key>'s. Sub klaver() ' ' klaver/club ' ' With Selection .Font.Color = wdColorBlack .TypeText (ChrW(9827)) .Font.Color = wdColorAutomatic .InsertAfter "" End With End Sub Sub ruiten() ' ' ruiten/diamond ' With Selection .Font.Color = wdColorRed .TypeText (ChrW(9830)) .Font.Color = wdColorAutomatic .InsertAfter "" End With End Sub Sub harten() ' ' harten/heart ' With Selection .Font.Color = wdColorRed .TypeText (ChrW(9829)) .Font.Color = wdColorAutomatic .InsertAfter "" End With End Sub Sub schoppen() ' ' schoppen/spade ' With Selection .Font.Color = wdColorBlack .TypeText (ChrW(9824)) .Font.Color = wdColorAutomatic .InsertAfter "" End With End Sub Sub sans() ' ' sans/notrump ' With Selection .Font.Color = wdColorBrightGreen .TypeText (ChrW(9788)) .Font.Color = wdColorAutomatic .InsertAfter "" End With End Sub Sub doublet() ' ' doublet/double ' With Selection .Font.Shading.BackgroundPatternColor = wdColorRed .Font.Color = wdColorWhite .TypeText ("X") .Font.Shading.BackgroundPatternColor = wdColorAutomatic .Font.Color = wdColorAutomatic .InsertAfter "" End With End Sub Sub redoublet() ' ' redoublet/redouble ' ' With Selection .Font.Shading.BackgroundPatternColor = wdColorBlue .Font.Color = wdColorWhite .TypeText ("XX") .Font.Shading.BackgroundPatternColor = wdColorAutomatic .Font.Color = wdColorAutomatic .InsertAfter "" End With End Sub

Maybe this program by Wayne Burrows, Cascade on BBO http://www.ebridgenz.com/download.html could be helpfull?