Pour ceux qui sont au fait des manipulation de macros dans Word (à l'époque XP et Word97, quelques routines.
Si problème, on voit en MP.
Sub Polonais()
WordBasic.ViewToolbars ColorButtons:=1, LargeButtons:=0, ToolTips:=1
WordBasic.ViewToolbars Toolbar:="Caractères polonais", Show:=1
End Sub
Sub A()
Selection.TypeText Text:=ChrW(260)
End Sub
Sub aq()
Selection.TypeText Text:=ChrW(261)
End Sub
Sub C()
Selection.TypeText Text:=ChrW(262)
End Sub
Sub Cq()
Selection.TypeText Text:=ChrW(263)
End Sub
Sub E()
Selection.TypeText Text:=ChrW(280)
End Sub
Sub eq()
Selection.TypeText Text:=ChrW(281)
End Sub
Sub L()
Selection.TypeText Text:=ChrW(321)
End Sub
Sub lq()
Selection.TypeText Text:=ChrW(322)
End Sub
Sub N()
Selection.TypeText Text:=ChrW(323)
End Sub
Sub nq()
Selection.TypeText Text:=ChrW(324)
End Sub
Sub O()
Selection.TypeText Text:="Ó"
End Sub
Sub oq()
Selection.InsertSymbol CharacterNumber:=211, Unicode:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Range.Case = wdLowerCase
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Sub S()
Selection.TypeText Text:=ChrW(346)
End Sub
Sub sq()
Selection.TypeText Text:=ChrW(347)
End Sub
Sub Z()
Selection.TypeText Text:=ChrW(377)
End Sub
Sub zq()
Selection.TypeText Text:=ChrW(378)
End Sub
Sub ZJ()
Selection.TypeText Text:=ChrW(379)
End Sub
Sub zjq()
Selection.InsertSymbol CharacterNumber:=380, Unicode:=True
End Sub
On rêve comme des anges ; on vit comme des porcs
[
chezalcide.wordpress.com]