Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Word > Word - Tips & Tricks > Επιδιόρθωση κατεστραμμένου κείμενου Word 2007

Word - Tips & Tricks Συμβουλές και κόλπα για χρήστες της Microsoft Word.
Παρακαλούμε μήν εισάγετε εδώ ερωτήσεις!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 24-11-09, 15:32
Υπηρεσία υποστήριξης
Όνομα: °°°°°°°°°°°°°°°°°°
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Αγγλική, Γερμανική, Γαλλική
 
Εγγραφή: 10-11-2009
Μηνύματα: 46
Προεπιλογή Επιδιόρθωση κατεστραμμένου κείμενου Word 2007

Παράθεση:
´, ¡, ¢, ¸, ¹, º, ¼, ¾, ¿, À, Á, Â, Ã, Ä, Å, Æ, Ç, È, É, Ê, Ë, Ì, Í, Î, Ï, Ð, Ñ, Ó, Ô, Õ, Ö, ×, Ø, Ù, Ú, Û, Ü, Ý, Þ, ß, à, á, â, ã, ä, å, æ, ç, è, é, ê, ë, ì, í, î, ï, ð, ñ, ò, ó, ô, õ, ö, ÷, ø, ù, ú, û, ü, ý, þ
Πολλοί από μας έχουν συναντήσει τους παραπάνω χαρακτήρες.
Σε παλαιότερες εκδόσεις Word, υπήρχε σχετική (και πολύ χρήσιμη) εντολή στο μενού Εργαλεία > Επιδιόρθωση κατεστραμμένου κείμενου.. που μας επανέφερε τους χαρακτήρες αυτούς στην αρχική τους μορφή δηλ.:
Παράθεση:
΄, ΅, Ά, Έ, Ή, Ί, Ό, Ύ, Ώ, ΐ, Α, Β, Γ, Δ, Ε, Ζ, Η, Θ, Ι, Κ, Λ, Μ, Ν, Ξ, Ο, Π, Ρ, Σ, Τ, Υ, Φ, Χ, Ψ, Ω, Ϊ, Ϋ, ά, έ, ή, ί, ΰ, α, β, γ, δ, ε, ζ, η, θ, ι, κ, λ, μ, ν, ξ, ο, π, ρ, ς, σ, τ, υ, φ, χ, ψ, ω, ϊ, ϋ, ό, ύ, ώ.
Δυστυχώς, για την έκδοση του 2007 δεν υποστηρίζεται πια κάτι ανάλογο επειδή η Microsoft λόγω της σπανιότητας της χρήσης του θεώρησε ότι πρέπει να αφαιρεθεί από το τότε νέο της πακέτο.
Ταυτόχρονα πρόσφερε και προσφέρει μέχρι σήμερα κάποιο Addin για όσους ενδιαφέρονται αλλά, το Addin αυτό προϋποθέτει Word 2000 (!!) για να εγκατασταθεί.

Εναλλακτική λύση λοιπόν στο πρόβλημα αναλαμβάνει ηVBA με τη χρήση του παρακάτω κώδικα:

Option Explicit

Sub FixBrokenText()
Dim arr1 As Variant, arr2 As Variant, i As Integer
arr1 = Array(180, 161, 162)
arr2 = Array(900, 901, 902)
With ActiveDocument.Range.Find
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
For i = 184 To 254
.Text = ChrW(i)
.Replacement.Text = ChrW(i + 720)
.Execute Replace:=wdReplaceAll
Next
For i = 0 To UBound(arr1)
.Text = ChrW(arr1(i))
.Replacement.Text = ChrW(arr2(i))
.Execute Replace:=wdReplaceAll
Next
End With
End Sub



Ms-Office-Team (Τάσος)

Τελευταία επεξεργασία από το χρήστη Tasos : 11-09-11 στις 01:24.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι σε λειτουργία
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
MS Word 2007 Bookmarks thanosgr Access - Ερωτήσεις / Απαντήσεις 12 19-01-17 11:00
Αντιγραφή κειμένου στο Word George R Word - Ερωτήσεις / Απαντήσεις 2 22-05-14 07:19
[VBA] Μεταφορά κειμένου από word σε excel με vba dim.konst Excel - Ερωτήσεις / Απαντήσεις 6 02-09-13 18:18
[VBA] Επιδιόρθωση κατεστραμμένου κείμενου σε Excel. Ms-Office-Development Team Excel samples - Χρήσιμα αρχεία & παραδείγματα 0 18-03-10 19:49
Access 2007 και Word Merge editolis Access - Tips & Tricks 0 15-02-10 18:54


Η ώρα είναι 18:10.