ms-office.gr > Forum > Microsoft Word > Word - Ερωτήσεις / Απαντήσεις > αντικατάσταση κεφαλαίων με πεζά

Word - Ερωτήσεις / Απαντήσεις Γενικά θέματα γύρω από το ισχυρότατο Microsoft Word.

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 24-03-15, 22:44
Το avatar του χρήστη geotso
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 15-02-2012
Μηνύματα: 47
Προεπιλογή αντικατάσταση κεφαλαίων με πεζά

καλησπέρα,

Έχω ένα ποίημα, όπου ο κάθε στίχος αρχίζει με κεφαλαίο γράμμα. Θέλω να το αντικαταστήσω με το αντίστοιχο πεζό. Με τις προϋποθέσεις:
Του κάθε στίχου προηγούνται τέσσερα κενά διαστήματα.
Το αρχικό γράμμα μπορεί φυσικά να είναι φωνήεν, τονισμένο/άτονο, ή σύμφωνο.
Δεν με πειράζει αν μια μακροεντολή τα αντικαθιστά όλα, ακόμα κι αυτά που πιθανόν θα έπρεπε να μείνουν με κεφαλαία (π.χ. μετά από τελεία ή ένα κύριο όνομα). Αυτά θα τα διορθώσω με το χέρι μετά.

Ευχαριστώ
__________________
.:: geotso ::·
Απάντηση με παράθεση
  #2  
Παλιά 25-03-15, 12:18
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.737
Προεπιλογή

Καλημέρα

Γιώργο, ίσως εξυπηρετεί η παρακάτω μακροεντολή.

Κώδικας:
Sub ReplaceCapital()
    Dim i As Long
    Const Letters As String = "ΑΆΒΓΔΕΈΖΗΉΘΙΊΚΛΜΝΞΟΌΠΡΣΤΥΎΦΧΨΩΏ"
    For i = 1 To 31
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = "    " & Mid(Letters, i, 1)
            .Replacement.Text = LCase(.Text)
            .MatchCase = True
            .Forward = True
            .Wrap = wdFindContinue
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next

End Sub
Η μακροεντολή αντικαθιστά κάθε κεφαλαίο του οποίου προηγούνται 4 κενά με το αντίστοιχο πεζό.

Πριν τη δοκιμάσεις δημιούργησε αντίγραφο του αρχείο σου.

Φιλικά/Γιώργος

Τελευταία επεξεργασία από το χρήστη kapetang : 25-03-15 στις 19:18.
Απάντηση με παράθεση
  #3  
Παλιά 26-03-15, 00:48
Το avatar του χρήστη geotso
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 15-02-2012
Μηνύματα: 47
Προεπιλογή

Δουλεύει μια χαρά!

Ευχαριστώ πολύ.
Απάντηση με παράθεση
Απάντηση στο θέμα

Ετικέτες
αντικατάσταση

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Αντικατάσταση του σίγμα(σ) σε (ς) τελικό alex Access - Ερωτήσεις / Απαντήσεις 9 08-07-15 01:17
[VBA] Αντικατασταση Γραμματων manolis Excel - Ερωτήσεις / Απαντήσεις 3 05-06-15 22:04
Μετατροπή από κεφαλαία σε πεζά.! γιώργοςΚ Word - Ερωτήσεις / Απαντήσεις 3 25-05-14 15:44
[ Ερωτήματα ] Διάκριση πεζών-κεφαλαίων σε ερώτημα dream-garden Access - Ερωτήσεις / Απαντήσεις 2 24-10-12 09:05
Αντικατάσταση Χαρακτήρων Σπύρος Access - Ερωτήσεις / Απαντήσεις 2 21-07-10 23:40


Η ώρα είναι 12:57.