Cum să înveți un citat nou în fiecare zi adăugând o funcție „Citatul zilei” în Cuvântul tău

În p. de astăziost, vrem să explicăm modul în care puteți adăuga o funcție „Citatul zilei” în Cuvântul dvs. pentru a afla un citat nou în fiecare zi.

Caracteristica „Citatul zilei” arată un citat diferit de fiecare dată când start Cuvânt. Luați câteva secunde pentru a citi un citat de înțelepciune înainte de a vă îngropa în tone de muncă. Acest lucru vă va face mult bine.

Prin urmare, urmați indicațiile noastre pentru a adăuga o astfel de caracteristică în Cuvântul dvs. acum.

Pune ghilimele într-un fișier Excel

1. Mai întâi de toate, deschideți Excel și redenumiți o foaie nouă ca „Citate”.
2. Apoi introduceți „Număr” în celula A1, „Citate” în celula B1 și „Ori” în celula C1.
3. Apoi completați coloana A cu numere de serie.
4. Adăugați câte un citat în fiecare celulă din coloana B.
5. Și introduceți numărul „0” în coloana C.
6. În cele din urmă, denumește fișierul Excel drept „Citatul zilei”. Și salvați-l într-un folder. În cazul nostru, după ce am salvat fișierul, adresa sa completă va arăta ca mai jos:

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

În consecință, ar trebui să-ți amintești de al tău.

Puteți face clic pe aici pentru a descărca un fișier exemplu.

Inserați un modul în proiectul VBA

1. Pentru început, declanșați editorul VBA în Word apăsând „Alt+ F11”.
2. În panoul „Proiect” din stânga, faceți clic pe „Normal”.
3. Apoi faceți clic pe fila „Inserare” din bara de meniu.
4. Și alegeți „Modul” din meniul derulant.
5. Apoi faceți dublu clic pentru a deschide noul modul.
6. Acum lipiți următoarele coduri acolo:

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. Faceți clic pe butonul „Salvare”.

notițe:

În această linie de cod:

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

Nu uitați să înlocuiți adresa căii cu una reală.

Introduceți un formular de utilizator

În continuare, vom crea un formular de utilizator pentru a afișa oferta.

1. Totuși, în editorul VBA, faceți clic din nou pe fila „Inserați”.
2. Numai de această dată, alegeți „UserForm”.
3. Apoi veți avea un formular de utilizator. Faceți clic pe mânerele formularului pentru a-l redimensiona.
4. Apoi apăsați „F4” pentru a deschide fereastra „Proprietăți”. Va apărea în colțul din stânga-jos al ecranului.
5. Denumiți formularul ca „frmQuoteOfTheDay” și setați-i legenda ca „Citatul zilei”. În plus, setați corect fontul și culoarea de fundal. Și alegeți "Fals" pentru „ShowModal”.
6. Apoi faceți clic pe comanda „Toolbox” din bara de meniu pentru a scoate caseta.
7. Utilizați controalele pentru a crea o casetă de text, o etichetă și un buton de comandă. Aranjați-le în următoarea ordine:
8. În continuare, ar trebui să setați proprietăți pentru aceste controale.

• Mai întâi, faceți clic pe etichetă. Setați textul legendei ca „Citatul zilei”. Aplicați dimensiunea adecvată a fontului și setați fundalul ca transparent.
• În al doilea rând, faceți clic pe caseta de text. Numiți-o „txtQuoteOfTheDay”.
• În al treilea rând, faceți clic pe butonul de comandă. Numiți-l ca „btnClose” și setați legenda ca „Închidere”. Apoi faceți dublu clic pe butonul „Închidere” pentru a deschide zona de codare. Introdu următoarele coduri:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. În sfârșit, salvați codurile.

De fiecare dată când start Word, veți vedea un formular de utilizator, cum ar fi mai jos:

Remediați problemele Word

Este inevitabil să întâmpinați cutare sau cutare problemă în Word, care ar putea duce la un document corupt. Lorost lucru important este să gestionăm fiecare criză rapid și corect. Acest lucru, totuși, va necesita un instrument profesional recupera docx.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Excel deteriorat și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com