Πώς να αφαιρέσετε αυτόματα όλα τα επιπλέον κενά μεταξύ των λέξεων στο email του Outlook

Κοινή χρήση τώρα:

Εάν πληκτρολογείτε συχνά επιπλέον κενά κατά λάθος κατά τη σύνταξη email του Outlook, ίσως θέλετε να κάνετε το Outlook να αφαιρεί αυτόματα όλα τα επιπλέον κενά μεταξύ των λέξεων. Τώρα, αυτό το άρθρο θα σας διδάξει μια βολική μέθοδο για να το πραγματοποιήσετε.

Κατά καιρούς, όταν συντάσσετε ένα email, ενδέχεται να εισάγετε πολλά επιπλέον κενά μεταξύ των λέξεων κατά λάθος. Θα κάνουν το περιεχόμενο του email ακατάστατο. Σε αυτό το σημείο, θα ελπίζετε να αφαιρέσετε όλους αυτούς τους επιπλέον χώρους. Για να το ολοκληρώσετε με μη αυτόματο τρόπο, μπορείτε να χρησιμοποιήσετε τη λειτουργία "Εύρεση & Αντικατάσταση" για να αντικαταστήσετε όλα τα "([ ])[ ]{1,}" με "\1" με χαρακτήρες μπαλαντέρ. Αλλά, σε σύγκριση, θα ήταν πολύ πιο βολικό και αποτελεσματικό εάν το Outlook μπορεί να το κάνει αυτό αυτόματα. Τώρα, στα ακόλουθα, θα σας παρουσιάσουμε μια μέθοδο για να ρυθμίσετε τις παραμέτρους του Outlook σας.

Εύρεση και αντικατάσταση με χρήση χαρακτήρων μπαλαντέρ

Αυτόματη κατάργηση όλων των επιπλέον διαστημάτων μεταξύ των λέξεων στο email

  1. Πρώτα απ 'όλα, αποκτήστε πρόσβαση στον επεξεργαστή VBA πατώντας "Alt + F11" στο Outlook.

Σημείωση: Εάν είστε εντελώς νέος στο VBA, μπορείτε να ανατρέξετε στο προηγούμενο άρθρο μου "Τρόπος εκτέλεσης κώδικα VBA στο Outlook" Την ίδια στιγμή.

  1. Στη συνέχεια, προσθέστε τη φράση "MS Word Object Library" σύμφωνα με το "Πώς να προσθέσετε μια αναφορά βιβλιοθήκης αντικειμένων σε VBA".
  2. Στη συνέχεια, τοποθετήστε τον κώδικα VBA στο έργο "ThisOutlookSession".
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Get current mail
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objMailDocument = objMail.GetInspector.WordEditor
 
       'Remove all extra spaces using wildcards
       With objMailDocument.Range.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "([ ])[ ]{1,}"
            .Replacement.Text = "\1"
            .Forward = True
            .MatchWildcards = True
            .Execute Replace:=wdReplaceAll
      End With
    End If
End Sub

Κώδικας VBA- Αυτόματη κατάργηση όλων των επιπλέον διαστημάτων μεταξύ των λέξεων στο email

  1. Στη συνέχεια, βγείτε από το τρέχον παράθυρο.
  2. Τέλος, ακολουθήστε τα παρακάτω βήματα για να δοκιμάσετε.
  • Αρχικά, δημιουργήστε και συντάξτε ένα email. Εδώ μπορείτε να πληκτρολογήσετε σκόπιμα αρκετά επιπλέον κενά μεταξύ των λέξεων, όπως στο παρακάτω σχήμα.Συντάξτε ένα email με επιπλέον κενά μεταξύ των λέξεων
  • Αφού συμπληρώσετε τους παραλήπτες, κάντε απευθείας κλικ στο κουμπί «Αποστολή» για να το στείλετε.
  • Τέλος, όταν σταλεί, μεταβείτε στο φάκελο "Απεσταλμένα" για να το βρείτε. Μπορείτε να δείτε ότι όλα τα επιπλέον κενά έχουν αφαιρεθεί αυτόματα.Όλα τα επιπλέον κενά μεταξύ των λέξεων έχουν αφαιρεθεί

Μην φοβάστε την καταστροφή αρχείων του Outlook

Σε περίπτωση κατάρρευσης του Outlook, οι χρήστες θα πανικοβληθούν και θα φοβηθούν ότι τα αρχεία τους στο Outlook θα είναι κατεστραμμένα. Στην πραγματικότητα, εφόσον λαμβάνετε κάποιες αποτελεσματικές προφυλάξεις, θα μπορούσατε να απαλλαγείτε εύκολα από τέτοιες ανησυχίες. Πρώτα απ 'όλα, θα πρέπει να επιμείνετε στη δημιουργία αντιγράφων ασφαλείας των αρχείων σας PST, κάτι που παίζει πολύ σημαντικό ρόλο στην προστασία των δεδομένων. Επίσης, καλό είναι να προετοιμάσετε ένα αξιόπιστο και ισχυρό εξωτερικό εργαλείο επισκευής του Outlook, όπως π.χ DataNumen Outlook Repair, καθώς το εργαλείο επισκευής εισερχομένων ομολογουμένως δεν μπορεί επιδιορθώστε το PST που διακυβεύεται σοβαρά.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com

Κοινή χρήση τώρα:

Τα σχόλια είναι κλειστά.