--- description: In today’s post, we want to explain the way to add a “Quote of the Day” feature in your Word to learn new quote every day. title: How to Learn New Quote Every Day by Adding a "Quote of the Day" Feature in Your Word image: https://www.datanumen.com/blogs/wp-content/uploads/2017/06/Adding-a-Quote-of-the-Day-Feature-in-Your-Word.jpg --- - - - [Home](https://www.datanumen.com/blogs/) > [Solutions](https://www.datanumen.com/blogs/category/solutions/) > [Office Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/) > [Word Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/word-solutions/) > How to Learn New Quote Every Day by Adding a “Quote of the Day” Feature in Your Word # How to Learn New Quote Every Day by Adding a “Quote of the Day” Feature in Your Word [Word Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/word-solutions/) September 28, 2025 Share Now: - - - - - - - - *In today’s post, we want to explain the way to add a “Quote of the Day” feature in your Word to learn new quote every day.* The feature “Quote of the Day” shows one different quote each time you start Word. Just take seconds to read a quote of wisdom before you burying yourself in tons of work. This shall do you much good.![Adding a "Quote of the Day" Feature in Your Word](https://www.datanumen.com/blogs/wp-content/uploads/2017/06/Adding-a-Quote-of-the-Day-Feature-in-Your-Word.jpg "Adding a \"Quote of the Day\" Feature in Your Word") Therefore, follow our leads to add such a feature in your Word now. ## Put Quotes in an Excel File 1. First of all, open Excel and rename a new sheet as “Quotes”. 2. Next input “Number” in cell A1, “Quotes” in cell B1, and “Times” in cell C1. 3. Then fill column A with serial numbers. 4. Add one quote in each cell in column B. 5. And input number “0” in column C.![Create an Excel Sheet->Rename the Sheet]( "Create an Excel Sheet->Rename the Sheet") 6. Lastly, name the Excel file as “Quote of the Day”. And save it in a folder. In our case, after we saved the file, its full address shall look like as below: ``` C:\Users\Public\Documents\Sample\Quote of the Day.xlsx ``` Accordingly, you should remember yours. You can click [here](https://www.datanumen.com/blogs/wp-content/uploads/2017/06/Quote-of-the-Day.xlsx) to download a sample file. ## Insert a Module in VBA Project 1. To begin with, trigger VBA editor in Word by pressing “Alt+ F11”. 2. On the “Project” panel on the left, click “Normal”. 3. Then click “Insert” tab on the menu bar. 4. And choose “Module” on the drop-down menu.![Click "Normal"->Click "Insert"->Click "Module"]( "Click \"Normal\"->Click \"Insert\"->Click \"Module\"") 5. Next double click to open the new module. 6. Now paste following codes there: ``` 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. Click “Save” button.![Paste Codes->Click "Save"]( "Paste Codes->Click \"Save\"") **Note**: In this code line: ``` Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Public\Documents\Sample\Quote of the Day.xlsx") ``` Remember to replace the path address with an actual one. ## Insert a User Form Next we will create a user form to show the quote. 1. Still, in VBA editor, click “Insert” tab again. 2. Only this time, you choose “UserForm”. 3. Then you will have a user form. Click on the form handles to resize it. 4. Next press “F4” to open “Properties” window. It will appear on the left-down corner of the screen. 5. **Name the form as “frmQuoteOfTheDay” and set its caption as “Quote of the Day”.** Besides, set font and background color properly. And choose **“False”** for the **“ShowModal”.![Name the Form->Set the Caption]( "Name the Form->Set the Caption")** 6. Then click “Toolbox” command on menu bar to bring out the box. 7. Use the controls to create a text box, a label, and a command button. Arrange them in following order:![Click "Toolbox"->Insert a Label, a Text Box and a Command Button]( "Click \"Toolbox\"->Insert a Label, a Text Box and a Command Button") 8. Next you ought to set properties for these controls. - First, click on label. **Set the caption text as “Quote of the Day”.** Apply proper font size and set the background as transparent. - Second, click on text box.** Name it as “txtQuoteOfTheDay”.** - Third, click on command button. **Name it as “btnClose” and set caption as “Close”.** Then double click on the “Close” button to open coding area. Enter following codes: ``` Private Sub btnClose_Click() Unload Me End Sub ``` 9. Finally, save codes. Each time you start Word, you will see a user form such as below:![A User Form Showing the Quote]( "A User Form Showing the Quote") ## Fix Word Problems It’s inevitably to encounter with this or that issue in Word which might lead to a corrupted document. The most important thing is to handle each crisis quickly and properly. This, however, will require a professional tool to [recover docx](https://www.datanumen.com/word-repair/). ## Author Introduction: Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including [damaged Excel](https://www.datanumen.com/excel-repair/) and pdf repair software products. For more information visit [www.datanumen.com](https://www.datanumen.com/) Share Now: - - - - - - - - [← Previous post](https://www.datanumen.com/blogs/export-access-report-pdf-file-via-vba/) [Next post →](https://www.datanumen.com/blogs/quickly-run-specific-rule-mail-folders-outlook-vba/) Comments are closed. ![Data Recovery Blog]() Follow or like us on Facebook, LinkedIn and Twitter to get all promotions, latest news and updates on our products and company. - - - ### Featured Products - [DataNumen Outlook Repair](https://www.datanumen.com/outlook-repair/) - [DataNumen SQL Recovery](https://www.datanumen.com/sql-recovery/) - [DataNumen Exchange Recovery](https://www.datanumen.com/exchange-recovery/) - [DataNumen Access Repair](https://www.datanumen.com/access-repair/) - [DataNumen Excel Repair](https://www.datanumen.com/excel-repair/) - [DataNumen PDF Repair](https://www.datanumen.com/pdf-repair/) - [DataNumen Word Repair](https://www.datanumen.com/word-repair/) - [DataNumen Zip Repair](https://www.datanumen.com/zip-repair/) ### Popular posts ```json {"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/#article","isPartOf":{"@id":"https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/"},"author":{"name":"AuthorCCW","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/person\/33ded6c47c77587f9158d99f05e23957"},"headline":"How to Learn New Quote Every Day by Adding a “Quote of the Day” Feature in Your Word","datePublished":"2017-06-15T07:45:49+00:00","dateModified":"2025-09-28T15:08:20+00:00","mainEntityOfPage":{"@id":"https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/"},"wordCount":555,"commentCount":0,"publisher":{"@id":"https:\/\/www.datanumen.com\/blogs\/#organization"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/#primaryimage"},"thumbnailUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/06\/Adding-a-Quote-of-the-Day-Feature-in-Your-Word.jpg","articleSection":["Word Solutions"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/","url":"https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/","name":"How to Learn New Quote Every Day by Adding a \"Quote of the Day\" Feature in Your Word","isPartOf":{"@id":"https:\/\/www.datanumen.com\/blogs\/#website"},"primaryImageOfPage":{"@id":"https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/#primaryimage"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/#primaryimage"},"thumbnailUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/06\/Adding-a-Quote-of-the-Day-Feature-in-Your-Word.jpg","datePublished":"2017-06-15T07:45:49+00:00","dateModified":"2025-09-28T15:08:20+00:00","description":"In today’s post, we want to explain the way to add a “Quote of the Day” feature in your Word to learn new quote every day.","inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/"]}]},{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.datanumen.com\/blogs\/learn-new-quote-every-day-adding-quote-day-feature-word\/#primaryimage","url":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/06\/Adding-a-Quote-of-the-Day-Feature-in-Your-Word.jpg","contentUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/06\/Adding-a-Quote-of-the-Day-Feature-in-Your-Word.jpg","width":729,"height":800,"caption":"Adding a \"Quote of the Day\" Feature in Your Word"},{"@type":"WebSite","@id":"https:\/\/www.datanumen.com\/blogs\/#website","url":"https:\/\/www.datanumen.com\/blogs\/","name":"Data Recovery Blog","description":"Discuss every aspect of data recovery","publisher":{"@id":"https:\/\/www.datanumen.com\/blogs\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.datanumen.com\/blogs\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/www.datanumen.com\/blogs\/#organization","name":"Data Recovery Blog","url":"https:\/\/www.datanumen.com\/blogs\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/logo\/image\/","url":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2019\/02\/logowithouttext.jpg","contentUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2019\/02\/logowithouttext.jpg","width":296,"height":397,"caption":"Data Recovery Blog"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/logo\/image\/"},"sameAs":["https:\/\/www.facebook.com\/DataNumen","https:\/\/x.com\/DataNumen","http:\/\/www.linkedin.com\/company\/datanumen","https:\/\/myspace.com\/datanumen\/","http:\/\/www.pinterest.com\/datanumen\/","https:\/\/www.youtube.com\/channel\/UCVIIuuKfUBHSJauUaVP13tw"]},{"@type":"Person","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/person\/33ded6c47c77587f9158d99f05e23957","name":"AuthorCCW","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","caption":"AuthorCCW"},"sameAs":["https:\/\/www.datanumen.com\/"]}]} ```