Πώς να μαθαίνετε νέα προσφορά κάθε μέρα προσθέτοντας μια λειτουργία "Απόσπασμα της ημέρας" στο Word σας

Στο σημερινό σost, θέλουμε να εξηγήσουμε τον τρόπο με τον οποίο μπορείτε να προσθέσετε μια λειτουργία "Απόσπασμα της ημέρας" στο Word σας για να μαθαίνετε νέα προσφορά κάθε μέρα.

Η λειτουργία "Απόσπασμα της Ημέρας" εμφανίζει ένα διαφορετικό απόσπασμα κάθε φορά που κάνετεtart Word. Απλώς αφιερώστε λίγα δευτερόλεπτα για να διαβάσετε ένα απόσπασμα σοφίας προτού θάψετε τον εαυτό σας σε τόνους δουλειάς. Αυτό θα σας κάνει πολύ καλό.

Επομένως, ακολουθήστε τους οδηγούς μας για να προσθέσετε μια τέτοια δυνατότητα στο Word σας τώρα.

Βάλτε εισαγωγικά σε ένα αρχείο Excel

1. Πρώτα απ 'όλα, ανοίξτε το Excel και μετονομάστε ένα νέο φύλλο σε "Προσπάσματα".
2. Στη συνέχεια πληκτρολογήστε "Αριθμός" στο κελί A1, "Προσπάσματα" στο κελί B1 και "Ώρες" στο κελί C1.
3. Στη συνέχεια, συμπληρώστε τη στήλη Α με αύξοντες αριθμούς.
4. Προσθέστε ένα εισαγωγικό σε κάθε κελί στη στήλη Β.
5. Και εισάγετε τον αριθμό «0» στη στήλη Γ.
6. Τέλος, ονομάστε το αρχείο Excel ως "Απόσπασμα της ημέρας". Και αποθηκεύστε το σε ένα φάκελο. Στην περίπτωσή μας, αφού αποθηκεύσουμε το αρχείο, η πλήρης διεύθυνσή του θα μοιάζει όπως παρακάτω:

C:\Users\Public\Documents\Sample\Quote of the Day.xlsx

Κατά συνέπεια, θα πρέπει να θυμάστε το δικό σας.

Μπορείτε να κάνετε κλικ εδώ για λήψη ενός δείγματος αρχείου.

Εισαγάγετε μια ενότητα στο έργο VBA

1. Αρχικά, ενεργοποιήστε τον επεξεργαστή VBA στο Word πατώντας "Alt+ F11".
2. Στον πίνακα "Έργο" στα αριστερά, κάντε κλικ στο "Κανονικό".
3. Στη συνέχεια, κάντε κλικ στην καρτέλα "Εισαγωγή" στη γραμμή μενού.
4. Και επιλέξτε "Module" στο αναπτυσσόμενο μενού.
5. Επόμενο διπλό κλικ για να ανοίξετε τη νέα ενότητα.
6. Τώρα επικολλήστε τους παρακάτω κωδικούς εκεί:

Sub AutoExec()
  Dim objExcel As Excel.Application
  Dim objWorkbook As Excel.Workbook
  Dim objWorksheet As Excel.Worksheet
  Dim nRowIndex As Integer
  Dim nMinValue As Integer
  Dim nMinRowIndex As Integer
 
  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Public\Documents\Sample\Quote of the Day.xlsx")
  Set objWorksheet = objWorkbook.Sheets("Quotes")
 
  ' Initialization
  nMinValue = 0
  nMinRowIndex = -1
 
  For nRowIndex = 2 To objWorksheet.UsedRange.Rows.Count
    If (nMinRowIndex = -1) Then
      nMinValue = objWorksheet.Cells(nRowIndex, 3).Value
      nMinRowIndex = nRowIndex
    Else
      If (objWorksheet.Cells(nRowIndex, 3).Value < nMinValue) Then
        nMinValue = objWorksheet.Cells(nRowIndex, 3).Value
        nMinRowIndex = nRowIndex
      End If
    End If
  Next nRowIndex
 
  frmQuoteOfTheDay.txtQuoteOfTheDay.text = objWorksheet.Cells(nMinRowIndex, 2).Value
  frmQuoteOfTheDay.Show Modal
 
  objWorksheet.Cells(nMinRowIndex, 3).Value = objWorksheet.Cells(nMinRowIndex, 3).Value + 1
 
  objWorkbook.Close SaveChanges:=True
  ' Close Excel using Quit method on the Application object.
  objExcel.Application.Quit
  '  Release the object variable.
  Set objExcel = Nothing
End Sub

7. Κάντε κλικ στο κουμπί "Αποθήκευση".

Σημείωση:

Σε αυτή τη γραμμή κώδικα:

Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Public\Documents\Sample\Quote of the Day.xlsx")

Θυμηθείτε να αντικαταστήσετε τη διεύθυνση διαδρομής με μια πραγματική.

Εισαγάγετε μια φόρμα χρήστη

Στη συνέχεια θα δημιουργήσουμε μια φόρμα χρήστη για να εμφανίσουμε την προσφορά.

1. Ακόμα, στο πρόγραμμα επεξεργασίας VBA, κάντε ξανά κλικ στην καρτέλα "Εισαγωγή".
2. Μόνο αυτή τη φορά, επιλέγετε "UserForm".
3. Στη συνέχεια, θα έχετε μια φόρμα χρήστη. Κάντε κλικ στις λαβές της φόρμας για να αλλάξετε το μέγεθός της.
4. Στη συνέχεια, πατήστε "F4" για να ανοίξετε το παράθυρο "Ιδιότητες". Θα εμφανιστεί στην αριστερή κάτω γωνία της οθόνης.
5. Ονομάστε τη φόρμα ως "frmQuoteOfTheDay" και ορίστε τη λεζάντα της ως "Απόσπασμα της ημέρας". Επιπλέον, ορίστε σωστά τη γραμματοσειρά και το χρώμα του φόντου. Και επιλέξτε "Ψευδής" των "ShowModal".
6. Στη συνέχεια, κάντε κλικ στην εντολή "Εργαλειοθήκη" στη γραμμή μενού για να εμφανιστεί το πλαίσιο.
7. Χρησιμοποιήστε τα στοιχεία ελέγχου για να δημιουργήσετε ένα πλαίσιο κειμένου, μια ετικέτα και ένα κουμπί εντολής. Τακτοποιήστε τα με την εξής σειρά:
8. Στη συνέχεια, θα πρέπει να ορίσετε ιδιότητες για αυτά τα στοιχεία ελέγχου.

• Πρώτα, κάντε κλικ στην ετικέτα. Ορίστε το κείμενο της λεζάντας ως "Απόσπασμα της ημέρας". Εφαρμόστε το σωστό μέγεθος γραμματοσειράς και ορίστε το φόντο ως διαφανές.
• Δεύτερον, κάντε κλικ στο πλαίσιο κειμένου. Ονομάστε το ως "txtQuoteOfTheDay".
• Τρίτον, κάντε κλικ στο κουμπί εντολής. Ονομάστε το ως "btnClose" και ορίστε τη λεζάντα ως "Κλείσιμο". Στη συνέχεια, κάντε διπλό κλικ στο κουμπί "Κλείσιμο" για να ανοίξετε την περιοχή κωδικοποίησης. Εισαγάγετε τους παρακάτω κωδικούς:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Τέλος, αποθηκεύστε τους κωδικούς.

Κάθε φορά που start Word, θα δείτε μια φόρμα χρήστη όπως παρακάτω:

Διορθώστε προβλήματα με το Word

Είναι αναπόφευκτο να αντιμετωπίσετε αυτό ή εκείνο το ζήτημα στο Word που μπορεί να οδηγήσει σε ένα κατεστραμμένο έγγραφο. Το most Το σημαντικό είναι να χειριζόμαστε κάθε κρίση γρήγορα και σωστά. Αυτό, ωστόσο, θα απαιτήσει ένα επαγγελματικό εργαλείο για να ανάκτηση docx.

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

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