Hvordan lære nytt sitat hver dag ved å legge til en "dagens sitat"-funksjon i Word

Word-løsninger September 28, 2025

I dagens innlegg vil vi forklare hvordan du legger til en «Dagens sitat»-funksjon i Word for å lære nye sitater hver dag.

Funksjonen «Dagens sitat» viser ett nytt sitat hver gang du starter Word. Bare ta deg noen sekunder til å lese et visdomssitat før du begraver deg i massevis av arbeid. Dette vil gjøre deg mye godt.Legge til en "Dagens sitat"-funksjon i Word

Følg derfor våre ledetråder for å legge til en slik funksjon i Word nå.

Sett anførselstegn i en Excel-fil

  1. Først av alt, åpne Excel og gi nytt navn til et nytt ark som "Sitater".
  2. Neste skriv inn "Tall" i celle A1, "Sitat" i celle B1 og "Tider" i celle C1.
  3. Fyll deretter kolonne A med serienummer.
  4. Legg til ett anførselstegn i hver celle i kolonne B.
  5. Og skriv inn nummeret "0" i kolonne C.Lag et Excel-ark -> Gi nytt navn til arket
  6. Til slutt, navngi Excel-filen som "Dagens sitat". Og lagre det i en mappe. I vårt tilfelle, etter at vi har lagret filen, skal dens fullstendige adresse se ut som nedenfor:
C:\Users\Public\Documents\Sample\Quote of the Day.xlsx

Følgelig bør du huske din.

Du kan klikke her. for å laste ned en eksempelfil.

Sett inn en modul i VBA Project

  1. Til å begynne med, utløs VBA-editor i Word ved å trykke "Alt + F11".
  2. På "Prosjekt"-panelet til venstre klikker du på "Normal".
  3. Klikk deretter på "Sett inn"-fanen på menylinjen.
  4. Og velg "Modul" på rullegardinmenyen.Klikk "Normal" -> Klikk "Sett inn" -> Klikk "Modul"
  5. Neste dobbeltklikk for å åpne den nye modulen.
  6. Lim inn følgende koder der:
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. Klikk på "Lagre"-knappen.Lim inn koder-> Klikk "Lagre"

Merknader:

I denne kodelinjen:

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

Husk å erstatte stiadressen med en faktisk.

Sett inn et brukerskjema

Deretter oppretter vi et brukerskjema for å vise tilbudet.

  1. Likevel, i VBA-redigering, klikk på "Sett inn"-fanen igjen.
  2. Bare denne gangen velger du "UserForm".
  3. Da vil du ha et brukerskjema. Klikk på skjemahåndtakene for å endre størrelsen på det.
  4. Trykk deretter "F4" for å åpne "Egenskaper"-vinduet. Den vises i venstre nede hjørne av skjermen.
  5. Gi skjemaet navnet "frmQuoteOfTheDay" og angi bildeteksten som "Dagens sitat". Dessuten, angi font og bakgrunnsfarge riktig. Og velg "Falsk" for "ShowModal".Gi skjemaet et navn->Sett bildeteksten
  6. Klikk deretter på "Verktøykasse"-kommandoen på menylinjen for å få frem boksen.
  7. Bruk kontrollene til å lage en tekstboks, en etikett og en kommandoknapp. Ordne dem i følgende rekkefølge:Klikk "Verktøykasse"->Sett inn en etikett, en tekstboks og en kommandoknapp
  8. Deretter bør du angi egenskaper for disse kontrollene.
  • Først klikker du på etiketten. Sett bildeteksten som «Dagens sitat». Bruk riktig skriftstørrelse og sett bakgrunnen som gjennomsiktig.
  • For det andre, klikk på tekstboksen. Gi det navnet "txtQuoteOfTheDay".
  • For det tredje, klikk på kommandoknappen. Navngi den som "btnClose" og angi bildeteksten som "Close". Dobbeltklikk deretter på "Lukk"-knappen for å åpne kodeområdet. Skriv inn følgende koder:
Private Sub btnClose_Click()
  Unload Me
End Sub
  1. Til slutt, lagre koder.

Hver gang du starter Word, vil du se et brukerskjema som ligner på dette:Et brukerskjema som viser tilbudet

Løs Word-problemer

Det er uunngåelig å støte på det ene eller det andre problemet i Word, noe som kan føre til et ødelagt dokument. Det viktigste er å håndtere hver krise raskt og riktig. Dette vil imidlertid kreve et profesjonelt verktøy for å gjenopprette docx.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert skadet Excel og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.