So lernen Sie jeden Tag ein neues Zitat, indem Sie Ihrem Wort die Funktion "Zitat des Tages" hinzufügen

Im heutigen Beitrag möchten wir Ihnen erklären, wie Sie in Ihrem Word-Dokument eine Funktion namens „Zitat des Tages“ hinzufügen können, um jeden Tag ein neues Zitat zu lernen.

Die Funktion „Zitat des Tages“ zeigt Ihnen bei jedem Start von Word ein anderes Zitat an. Nehmen Sie sich kurz Zeit, um ein weises Zitat zu lesen, bevor Sie sich in Ihre Arbeit stürzen. Das wird Ihnen guttun.

Befolgen Sie daher unsere Hinweise, um eine solche Funktion jetzt in Ihr Word aufzunehmen.

Fügen Sie Anführungszeichen in eine Excel-Datei ein

1. Öffnen Sie zunächst Excel und benennen Sie ein neues Blatt in "Anführungszeichen" um.
2. Geben Sie als Nächstes "Nummer" in Zelle A1, "Anführungszeichen" in Zelle B1 und "Zeiten" in Zelle C1 ein.
3. Füllen Sie dann Spalte A mit Seriennummern.
4. Fügen Sie in jede Zelle in Spalte B ein Anführungszeichen ein.
5. Und geben Sie die Nummer "0" in Spalte C ein.
6. Zuletzt benennen Sie die Excel-Datei als "Zitat des Tages". Und speichern Sie es in einem Ordner. In unserem Fall sieht die vollständige Adresse nach dem Speichern der Datei wie folgt aus:

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

Dementsprechend sollten Sie sich an Ihre erinnern.

Sie können klicken werden auf dieser Seite erläutert um eine Beispieldatei herunterzuladen.

Fügen Sie ein Modul in VBA Project ein

1. Starten Sie zunächst den VBA-Editor in Word, indem Sie „Alt + F11“ drücken.
2. Klicken Sie links im Bereich „Projekt“ auf „Normal“.
3. Klicken Sie dann in der Menüleiste auf die Registerkarte „Einfügen“.
4. Und wählen Sie "Modul" im Dropdown-Menü.
5. Doppelklicken Sie anschließend, um das neue Modul zu öffnen.
6. Fügen Sie nun folgende Codes ein:

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. Klicken Sie auf die Schaltfläche "Speichern".

Hinweis:

In dieser Codezeile:

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

Denken Sie daran, die Pfadadresse durch eine tatsächliche zu ersetzen.

Fügen Sie ein Benutzerformular ein

Als nächstes erstellen wir ein Benutzerformular, um das Angebot anzuzeigen.

1. Klicken Sie im VBA-Editor erneut auf die Registerkarte „Einfügen“.
2. Nur dieses Mal wählen Sie "UserForm".
3. Dann haben Sie ein Benutzerformular. Klicken Sie auf die Formulargriffe, um die Größe zu ändern.
4. Drücken Sie anschließend "F4", um das Fenster "Eigenschaften" zu öffnen. Es wird in der linken unteren Ecke des Bildschirms angezeigt.
5. Nennen Sie das Formular "frmQuoteOfTheDay" und legen Sie die Beschriftung als "Zitat des Tages" fest. Stellen Sie außerdem Schriftart und Hintergrundfarbe richtig ein. Und wähle "Falsch" für die "ShowModal".
6. Klicken Sie dann in der Menüleiste auf den Befehl „Toolbox“, um die Box zu öffnen.
7. Verwenden Sie die Steuerelemente, um ein Textfeld, eine Beschriftung und eine Befehlsschaltfläche zu erstellen. Ordnen Sie sie in der folgenden Reihenfolge an:
8. Als Nächstes sollten Sie Eigenschaften für diese Steuerelemente festlegen.

• Klicken Sie zuerst auf Beschriftung. Stellen Sie den Beschriftungstext als "Zitat des Tages" ein. Wenden Sie die richtige Schriftgröße an und stellen Sie den Hintergrund als transparent ein.
• Zweitens klicken Sie auf das Textfeld. Nennen Sie es "txtQuoteOfTheDay".
• Drittens klicken Sie auf die Befehlsschaltfläche. Nennen Sie es "btnClose" und setzen Sie die Beschriftung auf "Close". Doppelklicken Sie dann auf die Schaltfläche "Schließen", um den Codierungsbereich zu öffnen. Geben Sie folgende Codes ein:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Speichern Sie abschließend die Codes.

Bei jedem Start von Word wird Ihnen ein Benutzerformular wie das folgende angezeigt:

Beheben Sie Word-Probleme

Es ist unvermeidlich, in Word auf das eine oder andere Problem zu stoßen, das zu einem beschädigten Dokument führen kann. Am wichtigsten ist es, jede Krise schnell und richtig zu beheben. Dazu ist jedoch ein professionelles Werkzeug erforderlich. docx wiederherstellen.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigtes Excel und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX