Προβλημα με greek fonts σε VB Macro στο Word

[Dr.Fuzzy]

Παιδια οποιος μπορει να βοηθησει γιατι δεν βγαζω ακρη.

Λοιπον εχω φτιαξει διαφορα VB Macro Scripts στο Word για να αυτoματοποιησω το formatting ενος βιβλιου. Το Script που ακολουθει απλα δημιουργει και μορφοποιει την λεζαντα ενος σχηματος. Ενω λειτουργει μια χαρα με την εισαγωγη κειμενου μεσα στο Word στα Αγγλικα (Fig. .), στα Ελληνικα μου πεταει αλαμπουρνεζικα (Σχήμα -> Εμφανιζεται ως Ó÷Þìá . μεσα στο Word).

Στον κωδικα που ακολουθει, με σχολια ειναι τα Αγγλικα που δουλευουν και απο κατω ειναι τα Ελληνικα που εχουν το προβλημα.

 

>' FigLegend Macro
' 2/5/2009 by Dr.Fuzzy
'
   Selection.HomeKey Unit:=wdLine
   Selection.EndKey Unit:=wdLine, Extend:=wdExtend
   Selection.Font.Size = 12
   Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
   Selection.MoveLeft Unit:=wdCharacter, Count:=1
   Selection.Font.Bold = wdToggle
'   Selection.TypeText Text:="Fig. . "
   Selection.TypeText Text:="Σχήμα ."
   Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
   Selection.MoveLeft Unit:=wdCharacter, Count:=2
End Sub

 

 

 

-----Προστέθηκε 6/2/2009 στις 06 : 09 : 09-----

 

 

Τι εγινε...κανενας;