Comment apprendre une nouvelle citation chaque jour en ajoutant une fonctionnalité "Citation du jour" dans votre mot

Dans cet article, nous allons vous expliquer comment ajouter une fonctionnalité « Citation du jour » à votre document Word pour découvrir une nouvelle citation chaque jour.

La fonctionnalité « Citation du jour » affiche une citation différente à chaque ouverture de Word. Prenez quelques secondes pour lire une citation inspirante avant de vous plonger dans une montagne de travail. Cela vous sera très bénéfique.

Par conséquent, suivez nos instructions pour ajouter une telle fonctionnalité dans votre Word maintenant.

Mettre des devis dans un fichier Excel

1. Tout d'abord, ouvrez Excel et renommez une nouvelle feuille en "Devis".
2. Entrez ensuite "Number" dans la cellule A1, "Quotes" dans la cellule B1 et "Times" dans la cellule C1.
3. Remplissez ensuite la colonne A avec les numéros de série.
4. Ajoutez une citation dans chaque cellule de la colonne B.
5. Et saisissez le chiffre "0" dans la colonne C.
6. Enfin, nommez le fichier Excel "Citation du jour". Et enregistrez-le dans un dossier. Dans notre cas, après avoir enregistré le fichier, son adresse complète ressemblera à celle ci-dessous :

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

En conséquence, vous devez vous souvenir du vôtre.

Vous pouvez cliquer ici pour télécharger un exemple de fichier.

Insérer un module dans le projet VBA

1. Pour commencer, lancez l'éditeur VBA dans Word en appuyant sur "Alt + F11".
2. Dans le panneau "Projet" à gauche, cliquez sur "Normal".
3. Cliquez ensuite sur l'onglet "Insérer" dans la barre de menu.
4. Et choisissez "Module" dans le menu déroulant.
5. Double-cliquez ensuite pour ouvrir le nouveau module.
6. Maintenant, collez-y les codes suivants :

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. Cliquez sur le bouton "Enregistrer".

Note:

Dans cette ligne de code :

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

N'oubliez pas de remplacer l'adresse du chemin par une adresse réelle.

Insérer un formulaire utilisateur

Ensuite, nous allons créer un formulaire utilisateur pour afficher le devis.

1. Pourtant, dans l'éditeur VBA, cliquez à nouveau sur l'onglet "Insérer".
2. Seulement cette fois, vous choisissez "UserForm".
3. Ensuite, vous aurez un formulaire utilisateur. Cliquez sur les poignées du formulaire pour le redimensionner.
4. Appuyez ensuite sur "F4" pour ouvrir la fenêtre "Propriétés". Il apparaîtra dans le coin inférieur gauche de l'écran.
5. Nommez le formulaire « frmQuoteOfTheDay » et définissez sa légende sur « Citation du jour ». En outre, définissez correctement la police et la couleur d'arrière-plan. Et choisissez "Faux" pour "AfficherModal".
6. Cliquez ensuite sur la commande "Boîte à outils" dans la barre de menu pour faire apparaître la boîte.
7. Utilisez les contrôles pour créer une zone de texte, une étiquette et un bouton de commande. Disposez-les dans l'ordre suivant :
8. Ensuite, vous devez définir les propriétés de ces contrôles.

• Tout d'abord, cliquez sur l'étiquette. Définissez le texte de la légende sur "Citation du jour". Appliquez la taille de police appropriée et définissez l'arrière-plan comme transparent.
• Deuxièmement, cliquez sur la zone de texte. Nommez-le "txtQuoteOfTheDay".
• Troisièmement, cliquez sur le bouton de commande. Nommez-le "btnClose" et définissez la légende sur "Fermer". Double-cliquez ensuite sur le bouton "Fermer" pour ouvrir la zone de codage. Entrez les codes suivants :

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Enfin, enregistrez les codes.

Chaque fois que vous démarrerez Word, vous verrez un formulaire utilisateur comme celui ci-dessous :

Résoudre les problèmes de mots

Il est inévitable de rencontrer des problèmes dans Word pouvant entraîner la corruption de documents. L'essentiel est de gérer chaque incident rapidement et correctement. Cela nécessite toutefois un outil professionnel. récupérer docx.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris Excel endommagé et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com