Come imparare una nuova citazione ogni giorno aggiungendo una funzione "Citazione del giorno" nella tua parola

Nel post di oggi, vogliamo spiegarvi come aggiungere una funzione "Citazione del giorno" al vostro Word per scoprire una nuova citazione ogni giorno.

La funzione "Citazione del giorno" mostra una citazione diversa ogni volta che avvii Word. Bastano pochi secondi per leggere una citazione di saggezza prima di immergerti in una montagna di lavoro. Ti sarà di grande aiuto.

Pertanto, segui i nostri suggerimenti per aggiungere una tale funzionalità nella tua parola ora.

Metti le citazioni in un file Excel

1. Prima di tutto, apri Excel e rinomina un nuovo foglio come "Citazioni".
2. Quindi inserisci "Numero" nella cella A1, "Quotes" nella cella B1 e "Times" nella cella C1.
3. Quindi riempire la colonna A con i numeri di serie.
4. Aggiungi una citazione in ogni cella della colonna B.
5. E inserisci il numero "0" nella colonna C.
6. Infine, assegna al file Excel il nome "Citazione del giorno". E salvalo in una cartella. Nel nostro caso, dopo aver salvato il file, il suo indirizzo completo sarà simile al seguente:

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

Di conseguenza, dovresti ricordare il tuo.

Puoi cliccare Qui. per scaricare un file di esempio.

Inserisci un modulo nel progetto VBA

1. Per cominciare, attiva l'editor VBA in Word premendo "Alt + F11".
2. Nel pannello "Progetto" a sinistra, fai clic su "Normale".
3. Quindi fare clic sulla scheda "Inserisci" nella barra dei menu.
4. E scegli "Modulo" nel menu a discesa.
5. Avanti doppio clic per aprire il nuovo modulo.
6. Ora incolla i seguenti codici lì:

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. Fare clic sul pulsante "Salva".

Note::

In questa riga di codice:

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

Ricorda di sostituire l'indirizzo del percorso con uno effettivo.

Inserisci un modulo utente

Successivamente creeremo un modulo utente per mostrare il preventivo.

1. Tuttavia, nell'editor VBA, fai nuovamente clic sulla scheda "Inserisci".
2. Solo che questa volta scegli "UserForm".
3. Quindi avrai un modulo utente. Fare clic sulle maniglie del modulo per ridimensionarlo.
4. Quindi premere "F4" per aprire la finestra "Proprietà". Apparirà nell'angolo in basso a sinistra dello schermo.
5. Assegna al modulo il nome "frmQuoteOfTheDay" e imposta la didascalia come "Citazione del giorno". Inoltre, imposta correttamente il carattere e il colore di sfondo. E scegli "Falso" per l' "MostraModale".
6. Quindi fare clic sul comando "Casella degli strumenti" sulla barra dei menu per visualizzare la casella.
7. Utilizzare i controlli per creare una casella di testo, un'etichetta e un pulsante di comando. Disporli nel seguente ordine:
8. Successivamente dovresti impostare le proprietà per questi controlli.

• Innanzitutto, fai clic sull'etichetta. Imposta il testo della didascalia come "Citazione del giorno". Applica la dimensione del carattere corretta e imposta lo sfondo come trasparente.
• In secondo luogo, fai clic sulla casella di testo. Chiamalo come "txtQuoteOfTheDay".
• Terzo, fai clic sul pulsante di comando. Chiamalo come "btnClose" e imposta la didascalia come "Close". Quindi fare doppio clic sul pulsante "Chiudi" per aprire l'area di codifica. Inserisci i seguenti codici:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Infine, salva i codici.

Ogni volta che avvii Word, visualizzerai un modulo utente come quello riportato di seguito:

Risolvi i problemi con le parole

È inevitabile imbattersi in questo o quel problema in Word che potrebbe portare a un documento danneggiato. La cosa più importante è gestire ogni crisi in modo rapido e corretto. Questo, tuttavia, richiederà uno strumento professionale per recuperare docx.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui Excel danneggiato and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com