Υπάρχει macro Word-OfficeXP μετατροπής χαρακτήρων ENG-GR ?

[cdplus]

Γειά σας φίλοι,

ψάχνω macro για Word-OfficeXP για μετατροπή χαρακτήρων ELLHNIKA-AGGLIKA και το αντίστροφο.

Αν όχι macro τότε κάτι άλλο σε στυλ add-in, ευπρόσδεκτο.

 

cdplus

[androu]

Απ' όσο θυμάμαι αυτό υπήρχε στο office 97 μετά.. απο τις επόμενες εκδόσεις δεν το ξαναείδα..

[cdplus]

παρομοίως, κι εγώ αυτό θυμάμαι...

αλλά δεν μπορεί... κάποιο παρόμοιο θα βρεθεί...

[gv]

an den emfanistoun ellinikoi xaraktires pes mou na sou steilo tin macro san normal.dot

 

---------

 

Sub MAIN()

'ConvertSelection

 

Dim SelectionSize As Integer

Dim TranslatedSelection As String

Dim CurrentCharacter As String

 

If Documents.Count = 0 Then Exit Sub

 

StatusBar = "Please wait ..."

TranslatedSelection = ""

SelectionSize = Selection.Characters.Count

 

If Selection.Start = Selection.End Then

MsgBox "No Selection"

Exit Sub

End If

 

For i = 1 To SelectionSize

CurrentCharacter = Selection.Characters(i)

 

If (Selection.Characters(i).LanguageID = wdEnglishUS Or _

Selection.Characters(i).LanguageID = wdGreek Or _

Selection.Characters(i).LanguageID = wdEnglishUK) _

And i < SelectionSize _

And (Selection.Characters(i) = ";" Or _

Selection.Characters(i) = "¶" Or _

Selection.Characters(i) = "W" Or _

Selection.Characters(i) = ":") Then

i = i + 1

CurrentCharacter = CurrentCharacter & Selection.Characters(i)

End If

 

TranslatedSelection = TranslatedSelection & Translate(CurrentCharacter)

Next

Selection = TranslatedSelection

 

If (Selection.LanguageID = wdEnglishUS Or Selection.LanguageID = wdEnglishUK) Then

Selection.LanguageID = wdGreek

Else

Selection.LanguageID = wdEnglishUS

End If

 

StatusBar = Space(20)

 

End Sub

 

Function Translate(InputStr As String) As String

Dim OutputStr As String

 

Select Case (InputStr)

 

'SPACE remains the same (for speed added here)

Case " ": OutputStr = " "

 

'Wanted Greek but used English keyboard (lower case)

Case ";a": OutputStr = "Ü"

Case ";e": OutputStr = "Ý"

Case ";h": OutputStr = "Þ"

Case ";i": OutputStr = "ß"

Case ";o": OutputStr = "ü"

Case ";y": OutputStr = "ý"

Case ";v": OutputStr = "þ"

 

Case ":i": OutputStr = "ú"

Case ":y": OutputStr = "û"

Case "Wi": OutputStr = "À"

Case "Wy": OutputStr = "à"

 

 

Case "q": OutputStr = ";"

Case "w": OutputStr = "ò"

Case "e": OutputStr = "å"

Case "r": OutputStr = "ñ"

Case "t": OutputStr = "ô"

Case "y": OutputStr = "õ"

Case "u": OutputStr = "è"

Case "i": OutputStr = "é"

Case "o": OutputStr = "ï"

Case "p": OutputStr = "ð"

Case "a": OutputStr = "á"

Case "s": OutputStr = "ó"

Case "d": OutputStr = "ä"

Case "f": OutputStr = "ö"

Case "g": OutputStr = "ã"

Case "h": OutputStr = "ç"

Case "j": OutputStr = "î"

Case "k": OutputStr = "ê"

Case "l": OutputStr = "ë"

Case "z": OutputStr = "æ"

Case "x": OutputStr = "÷"

Case "c": OutputStr = "ø"

Case "v": OutputStr = "ù"

Case "b": OutputStr = "â"

Case "n": OutputStr = "í"

Case "m": OutputStr = "ì"

 

'Wanted English but used Greek keyboard (lower case)

Case "Ü": OutputStr = ";a"

Case "Ý": OutputStr = ";e"

Case "Þ": OutputStr = ";h"

Case "ß": OutputStr = ";i"

Case "ü": OutputStr = ";o"

Case "ý": OutputStr = ";y"

Case "þ": OutputStr = ";v"

 

Case "ú": OutputStr = ":i"

Case "û": OutputStr = ":y"

Case "À": OutputStr = "Wi"

Case "à": OutputStr = "Wy"

 

Case ";": OutputStr = "q"

Case "ò": OutputStr = "w"

Case "å": OutputStr = "e"

Case "ñ": OutputStr = "r"

Case "ô": OutputStr = "t"

Case "õ": OutputStr = "y"

Case "è": OutputStr = "u"

Case "é": OutputStr = "i"

Case "ï": OutputStr = "o"

Case "ð": OutputStr = "p"

Case "á": OutputStr = "a"

Case "ó": OutputStr = "s"

Case "ä": OutputStr = "d"

Case "ö": OutputStr = "f"

Case "ã": OutputStr = "g"

Case "ç": OutputStr = "h"

Case "î": OutputStr = "j"

Case "ê": OutputStr = "k"

Case "ë": OutputStr = "l"

Case "æ": OutputStr = "z"

Case "÷": OutputStr = "x"

Case "ø": OutputStr = "c"

Case "ù": OutputStr = "v"

Case "â": OutputStr = "b"

Case "í": OutputStr = "n"

Case "ì": OutputStr = "m"

 

'Wanted Greek but used English keyboard (upper case)

Case ";A": OutputStr = "¢"

Case ";E": OutputStr = "¸"

Case ";H": OutputStr = "¹"

Case ";I": OutputStr = "º"

Case ";O": OutputStr = "¼"

Case ";Y": OutputStr = "¾"

Case ";V": OutputStr = "¿"

 

Case ":I": OutputStr = "Ú"

Case ":Y": OutputStr = "Û"

 

Case "Q": OutputStr = ":"

'Case "W": OutputStr = "¡"

Case "E": OutputStr = "Å"

Case "R": OutputStr = "Ñ"

Case "T": OutputStr = "Ô"

Case "Y": OutputStr = "Õ"

Case "U": OutputStr = "È"

Case "I": OutputStr = "É"

Case "O": OutputStr = "Ï"

Case "P": OutputStr = "Ð"

Case "A": OutputStr = "Á"

Case "S": OutputStr = "Ó"

Case "D": OutputStr = "Ä"

Case "F": OutputStr = "Ö"

Case "G": OutputStr = "Ã"

Case "H": OutputStr = "Ç"

Case "J": OutputStr = "Î"

Case "K": OutputStr = "Ê"

Case "L": OutputStr = "Ë"

Case "Z": OutputStr = "Æ"

Case "X": OutputStr = "×"

Case "C": OutputStr = "Ø"

Case "V": OutputStr = "Ù"

Case "B": OutputStr = "Â"

Case "N": OutputStr = "Í"

Case "M": OutputStr = "Ì"

 

'Wanted English but used Greek keyboard (upper case)

Case "¢": OutputStr = ";A"

Case "¸": OutputStr = ";E"

Case "¹": OutputStr = ";H"

Case "º": OutputStr = ";I"

Case "¼": OutputStr = ";O"

Case "¾": OutputStr = ";Y"

Case "¿": OutputStr = ";V"

 

Case "Ú": OutputStr = ":I"

Case "Û": OutputStr = ":Y"

 

Case ":": OutputStr = "Q"

'Case "¡": OutputStr = "W"

Case "Å": OutputStr = "E"

Case "Ñ": OutputStr = "R"

Case "Ô": OutputStr = "T"

Case "Õ": OutputStr = "Y"

Case "È": OutputStr = "U"

Case "É": OutputStr = "I"

Case "Ï": OutputStr = "O"

Case "Ð": OutputStr = "P"

Case "Á": OutputStr = "A"

Case "Ó": OutputStr = "S"

Case "Ä": OutputStr = "D"

Case "Ö": OutputStr = "F"

Case "Ã": OutputStr = "G"

Case "Ç": OutputStr = "H"

Case "Î": OutputStr = "J"

Case "Ê": OutputStr = "K"

Case "Ë": OutputStr = "L"

Case "Æ": OutputStr = "Z"

Case "×": OutputStr = "X"

Case "Ø": OutputStr = "C"

Case "Ù": OutputStr = "V"

Case "Â": OutputStr = "B"

Case "Í": OutputStr = "N"

Case "Ì": OutputStr = "M"

 

Case Else: OutputStr = InputStr

 

End Select

 

Translate = OutputStr

 

End Function

[cdplus]

ευχαριστώ φίλε gv, έκανα δημιουργία μακρο, εκανα copy-paste τον κώδικα που μου εστειλες, το έσωσα στο νορμαλ.δοτ, και εκτελώντας την μου βγάζει compilation error-syntax error στη γραμμή

 

--εδώ---> Case "U"": OutputStr = ";a"

 

και σταματάει.

Στειλτο σε νορμαλ.δοτ καλύτερα φίλε

 

cdplus

[cdplus]

Ακυρο!

<b>μην το ξαναστείλεις.</b>

Το διόρθωσα, δηλ. έβαλα όλους τους χαρακτήρες σωστά γιατί αλλαξαν με το post, και έγινε "τσίλικο".

Σε ευχαριστώ πολύ φίλε.

 

cdplus

----