Kako se vsak dan naučiti novega citata tako, da v besedo dodate funkcijo »Citat dneva«

V današnji objavi želimo razložiti, kako v Word dodati funkcijo »Citat dneva«, da se vsak dan naučite novega citata.

Funkcija »Citat dneva« ob vsakem zagonu Worda prikaže en drugačen citat. Preden se zakopljete v kup dela, si vzemite nekaj sekund in preberite modri citat. To vam bo zelo koristilo.

Zato sledite našim navodilom, da dodate takšno funkcijo v svoj Word zdaj.

Postavite citate v datoteko Excel

1. Najprej odprite Excel in preimenujte nov list v »Citati«.
2. Nato vnesite »Številka« v celico A1, »Narekovaji« v celico B1 in »Časi« v celico C1.
3. Nato izpolnite stolpec A z zaporednimi številkami.
4. Dodajte en narekovaj v vsako celico v stolpcu B.
5. In vnesite številko "0" v stolpec C.
6. Nazadnje poimenujte datoteko Excel kot "Citat dneva". In ga shranite v mapo. V našem primeru bo po tem, ko smo datoteko shranili, njen polni naslov videti takole:

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

V skladu s tem bi se morali spomniti svojega.

Lahko kliknete tukaj za prenos vzorčne datoteke.

Vstavite modul v projekt VBA

1. Za začetek sprožite urejevalnik VBA v Wordu s pritiskom na »Alt+ F11«.
2. Na plošči »Projekt« na levi kliknite »Normalno«.
3. Nato v menijski vrstici kliknite jeziček »Vstavi«.
4. V spustnem meniju izberite »Modul«.
5. Nato dvakrat kliknite, da odprete nov modul.
6. Sedaj tja prilepite naslednje kode:

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 gumb »Shrani«.

Opombe:

V tej vrstici kode:

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

Ne pozabite zamenjati naslova poti z dejanskim.

Vstavite uporabniški obrazec

Nato bomo ustvarili uporabniški obrazec za prikaz ponudbe.

1. Kljub temu v urejevalniku VBA znova kliknite zavihek »Vstavi«.
2. Samo tokrat izberete »Uporabniški obrazec«.
3. Nato boste imeli uporabniški obrazec. Kliknite ročaje obrazca, da mu spremenite velikost.
4. Nato pritisnite »F4«, da odprete okno »Lastnosti«. Prikazal se bo v levem spodnjem kotu zaslona.
5. Poimenujte obrazec kot "frmQuoteOfTheDay" in nastavite njegov naslov kot "Citat dneva". Poleg tega pravilno nastavite pisavo in barvo ozadja. In izberite "False" za "ShowModal".
6. Nato v menijski vrstici kliknite ukaz »Orodjarna«, da prikažete polje.
7. S kontrolniki ustvarite besedilno polje, oznako in ukazni gumb. Razporedite jih po naslednjem vrstnem redu:
8. Nato bi morali nastaviti lastnosti za te kontrole.

• Najprej kliknite oznako. Besedilo napisa nastavite kot »Citat dneva«. Uporabite ustrezno velikost pisave in nastavite prozorno ozadje.
• Drugič, kliknite besedilno polje. Poimenujte ga kot "txtQuoteOfTheDay".
• Tretjič, kliknite ukazni gumb. Poimenujte ga kot "btnClose" in nastavite napis kot "Close". Nato dvakrat kliknite na gumb "Zapri", da odprete kodirno območje. Vnesite naslednje kode:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Nazadnje shranite kode.

Vsakič, ko zaženete Word, se prikaže uporabniški obrazec, kot je prikazan spodaj:

Popravite težave z besedilom

V Wordu se neizogibno srečamo s to ali ono težavo, ki lahko privede do poškodbe dokumenta. Najpomembneje je, da vsako krizo obravnavamo hitro in pravilno. Vendar pa bo za to potrebno profesionalno orodje. izterjati docx.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan Excel in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com