Kako naučiti novi citat svaki dan dodavanjem funkcije "Citat dana" u vašu riječ

U današnjoj strost, želimo da objasnimo način dodavanja funkcije „Citat dana“ u vaš Word kako biste svaki dan naučili novi citat.

Funkcija “Citat dana” prikazuje jedan drugačiji citat svaki put kada start Word. Samo odvojite nekoliko sekundi da pročitate citat mudrosti prije nego što se zakopate u tone posla. Ovo će ti mnogo pomoći.

Stoga, slijedite naše savjete da sada dodate takvu značajku u svoj Word.

Stavite citate u Excel datoteku

1. Prije svega, otvorite Excel i preimenujte novi list u "Quotes".
2. Zatim unesite "Broj" u ćeliju A1, "Citate" u ćeliju B1 i "Vremena" u ćeliju C1.
3. Zatim popunite kolonu A serijskim brojevima.
4. Dodajte po jedan citat u svaku ćeliju u koloni B.
5. I unesite broj "0" u kolonu C.
6. Na kraju, nazovite Excel datoteku kao “Citat dana”. I sačuvajte ga u folderu. U našem slučaju, nakon što sačuvamo fajl, njegova puna adresa će izgledati ovako:

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

Shodno tome, trebali biste zapamtiti svoje.

Možete kliknuti OVDJE da preuzmete uzorak datoteke.

Umetnite modul u VBA projekat

1. Za početak, pokrenite VBA editor u Wordu pritiskom na “Alt+ F11”.
2. Na panelu “Projekt” na lijevoj strani kliknite na “Normalno”.
3. Zatim kliknite na karticu "Insert" na traci menija.
4. I odaberite “Module” na padajućem izborniku.
5. Zatim dvaput kliknite da otvorite novi modul.
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. Kliknite na dugme „Sačuvaj“.

Bilješka:

U ovoj liniji koda:

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

Ne zaboravite zamijeniti adresu putanje stvarnom.

Umetnite korisnički obrazac

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

1. Ipak, u VBA editoru, ponovo kliknite na karticu „Umetni“.
2. Samo ovaj put birate “UserForm”.
3. Tada ćete imati korisnički obrazac. Kliknite na ručke obrasca da mu promijenite veličinu.
4. Zatim pritisnite “F4” da otvorite prozor “Svojstva”. Pojavit će se u lijevom donjem uglu ekrana.
5. Imenujte obrazac kao “frmQuoteOfTheDay” i postavite njegov naslov kao “Citat dana”. Osim toga, pravilno postavite font i boju pozadine. I biraj "Lažno" za “ShowModal”.
6. Zatim kliknite na komandu “Toolbox” na traci menija da biste otvorili okvir.
7. Koristite kontrole da kreirate okvir za tekst, oznaku i komandno dugme. Poređajte ih sljedećim redoslijedom:
8. Zatim biste trebali postaviti svojstva za ove kontrole.

• Prvo kliknite na etiketu. Postavite tekst naslova kao "Citat dana". Primijenite odgovarajuću veličinu fonta i postavite pozadinu kao prozirnu.
• Drugo, kliknite na okvir za tekst. Imenujte ga kao “txtQuoteOfTheDay”.
• Treće, kliknite na komandno dugme. Imenujte ga kao “btnClose” i postavite naslov kao “Close”. Zatim dvaput kliknite na dugme „Zatvori“ da otvorite oblast kodiranja. Unesite sljedeće kodove:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Konačno, sačuvajte kodove.

Svaki put kada start Word, vidjet ćete korisnički obrazac kao što je dolje:

Popravite probleme sa Wordom

Neizbježno je naići na ovaj ili onaj problem u Wordu koji može dovesti do oštećenog dokumenta. The most važno je da se sa svakom krizom rešite brzo i pravilno. Za to će, međutim, biti potreban profesionalni alat oporavi docx.

Uvod za autora:

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