Hoe u elke dag een nieuw citaat leert door een "Citaat van de dag" -functie in uw woord toe te voegen

Word-oplossingen 28 september 2025

In dit artikel leggen we uit hoe je een 'Citaat van de dag'-functie aan Word kunt toevoegen, zodat je elke dag een nieuw citaat kunt leren.

De functie 'Citaat van de dag' toont elke keer dat je Word opstart een ander citaat. Neem even de tijd om een ​​wijs citaat te lezen voordat je jezelf in een berg werk stort. Dat zal je zeker goed doen.Een "Citaat van de dag" -functie aan uw woord toevoegen

Volg daarom onze aanwijzingen om nu een dergelijke functie in uw Word toe te voegen.

Zet offertes in een Excel-bestand

  1. Open eerst Excel en hernoem een ​​nieuw blad als "Quotes".
  2. Voer vervolgens "Getal" in cel A1, "Aanhalingstekens" in cel B1 en "Tijden" in cel C1 in.
  3. Vul vervolgens kolom A met serienummers.
  4. Voeg een citaat toe in elke cel in kolom B.
  5. En voer nummer "0" in kolom C in.Maak een Excel-blad-> Hernoem het blad
  6. Noem het Excel-bestand ten slotte "Citaat van de dag". En bewaar het in een map. In ons geval, nadat we het bestand hebben opgeslagen, ziet het volledige adres er als volgt uit:
C:\Users\Public\Documents\Sample\Quote of the Day.xlsx

Daarom moet u de uwe onthouden.

U kunt klikken op hier om een ​​voorbeeldbestand te downloaden.

Voeg een module in VBA-project in

  1. Activeer om te beginnen de VBA-editor in Word door op "Alt + F11" te drukken.
  2. Klik in het "Project" -paneel aan de linkerkant op "Normaal".
  3. Klik vervolgens op het tabblad "Invoegen" in de menubalk.
  4. En kies "Module" in het drop-down menu.Klik op "Normaal" -> Klik op "Invoegen" -> Klik op "Module"
  5. Dubbelklik vervolgens om de nieuwe module te openen.
  6. Plak daar nu de volgende codes:
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
  1. Klik op de knop "Opslaan".Plak codes-> Klik op "Opslaan"

Note:

In deze coderegel:

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

Vergeet niet om het padadres te vervangen door een echt adres.

Voeg een gebruikersformulier in

Vervolgens maken we een gebruikersformulier om de offerte te tonen.

  1. Klik nog steeds in de VBA-editor op het tabblad "Invoegen".
  2. Alleen deze keer kiest u “UserForm”.
  3. Dan heb je een gebruikersformulier. Klik op de formuliergrepen om het formaat te wijzigen.
  4. Druk vervolgens op "F4" om het venster "Eigenschappen" te openen. Het verschijnt in de linker benedenhoek van het scherm.
  5. Noem het formulier als "frmQuoteOfTheDay" en stel het bijschrift in als "Citaat van de dag". Stel bovendien het lettertype en de achtergrondkleur correct in. En kies "False" voor de "ShowModal".Noem het formulier-> Stel het bijschrift in
  6. Klik vervolgens op de opdracht "Toolbox" op de menubalk om de box te openen.
  7. Gebruik de bedieningselementen om een ​​tekstvak, een label en een opdrachtknop te maken. Schik ze in de volgende volgorde:Klik op "Toolbox" -> Voeg een label, een tekstvak en een opdrachtknop in
  8. Vervolgens moet u eigenschappen voor deze bedieningselementen instellen.
  • Klik eerst op label. Stel de bijschrifttekst in als "Citaat van de dag". Pas de juiste lettergrootte toe en stel de achtergrond in als transparant.
  • Ten tweede, klik op het tekstvak. Noem het als "txtQuoteOfTheDay".
  • Ten derde, klik op de commandoknop. Noem het als "btnClose" en stel het onderschrift in als "Sluiten". Dubbelklik vervolgens op de knop "Sluiten" om het coderingsgedeelte te openen. Voer de volgende codes in:
Private Sub btnClose_Click()
  Unload Me
End Sub
  1. Sla ten slotte codes op.

Telkens wanneer u Word opstart, ziet u een gebruikersformulier zoals hieronder:Een gebruikersformulier met de offerte

Los Word-problemen op

Het is onvermijdelijk dat je in Word wel eens een probleem tegenkomt dat tot een beschadigd document kan leiden. Het belangrijkste is om elke crisis snel en correct op te lossen. Hiervoor heb je echter een professioneel hulpmiddel nodig. herstellen docx.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde Excel en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.