Kako svaki dan naučiti novi citat dodavanjem značajke "Citat dana" u svoju riječ

U današnjoj objavi želimo objasniti kako dodati značajku "Citat dana" u svoj Word kako biste svaki dan učili novi citat.

Značajka „Citat dana“ prikazuje jedan drugačiji citat svaki put kada pokrenete Word. Samo odvojite nekoliko sekundi da pročitate mudri citat prije nego što se zakopate u hrpu posla. To će vam puno koristiti.

Stoga, slijedite naše upute kako biste odmah dodali takvu značajku u svoj Word.

Stavite citate u Excel datoteku

1. Prije svega, otvorite Excel i preimenujte novi list u "Citati".
2. Zatim unesite "Broj" u ćeliju A1, "Navodnici" u ćeliju B1 i "Vremena" u ćeliju C1.
3. Zatim ispunite stupac A serijskim brojevima.
4. Dodajte jedan citat u svaku ćeliju u stupcu B.
5. I unesite broj "0" u stupac C.
6. Na kraju, Excel datoteku nazovite "Citat dana". I spremite ga u mapu. U našem slučaju, nakon što smo spremili datoteku, njezina će puna adresa izgledati ovako:

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

U skladu s tim, trebali biste zapamtiti svoje.

Možete kliknuti ovdje za preuzimanje uzorka datoteke.

Umetnite modul u VBA projekt

1. Za početak pokrenite VBA editor u Wordu pritiskom na “Alt+ F11”.
2. Na ploči "Projekt" s lijeve strane kliknite "Normalno".
3. Zatim kliknite karticu "Umetni" na traci izbornika.
4. I odaberite "Modul" na padajućem izborniku.
5. Zatim dvaput kliknite za otvaranje novog modula.
6. Sada tamo zalijepite sljedeće kodove:

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. Pritisnite gumb "Spremi".

bilješke:

U ovom retku koda:

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

Ne zaboravite zamijeniti adresu staze stvarnom.

Umetnite korisnički obrazac

Zatim ćemo izraditi korisnički obrazac za prikaz ponude.

1. Ipak, u uređivaču VBA ponovno kliknite karticu "Umetni".
2. Samo ovaj put odabirete "Korisnički obrazac".
3. Tada ćete imati korisnički obrazac. Kliknite na ručke obrasca da biste mu promijenili veličinu.
4. Zatim pritisnite “F4” da biste otvorili prozor “Svojstva”. Pojavit će se u lijevom donjem kutu zaslona.
5. Nazovite obrazac kao "frmQuoteOfTheDay" i postavite njegov naslov kao "Citat dana". Osim toga, ispravno postavite font i boju pozadine. I birajte "Lažno" za “ShowModal”.
6. Zatim kliknite naredbu "Kutija s alatima" na traci izbornika da biste prikazali okvir.
7. Upotrijebite kontrole za stvaranje tekstualnog okvira, oznake i naredbenog gumba. Poredajte ih sljedećim redoslijedom:
8. Zatim biste trebali postaviti svojstva za ove kontrole.

• Prvo kliknite na oznaku. Postavite tekst naslova kao "Citat dana". Primijenite odgovarajuću veličinu fonta i postavite pozadinu kao prozirnu.
• Drugo, kliknite na tekstualni okvir. Imenujte ga kao "txtQuoteOfTheDay".
• Treće, kliknite na naredbeni gumb. Imenujte ga kao "btnClose" i postavite naslov kao "Close". Zatim dvaput kliknite gumb "Zatvori" da biste otvorili područje kodiranja. Unesite sljedeće kodove:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Na kraju, spremite kodove.

Svaki put kada pokrenete Word, vidjet ćete korisnički obrazac kao što je prikazano ispod:

Riješite probleme s riječima

Neizbježno je naići na ovaj ili onaj problem u Wordu koji može dovesti do oštećenja dokumenta. Najvažnije je brzo i pravilno riješiti svaku krizu. Međutim, za to će biti potreban profesionalni alat. oporaviti docx.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen Excel i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com