如何通过在 Word 中添加“今日名言”功能来每天学习新名言

词解法 2025 年 9 月 28 日

在今天的ost，我们想说明如何在您的 Word 中添加“每日名言”功能以每天学习新名言。

“今日名言”功能会在您每次访问时显示不同的名言tar字。在您埋头于大量工作之前，只需花几秒钟阅读一句名言。这对你有好处。

因此，现在请按照我们的指示在您的 Word 中添加这样的功能。

将引号放入 Excel 文件中

首先，打开 Excel 并将新工作表重命名为“报价单”。
接下来在单元格 A1 中输入“数字”，在单元格 B1 中输入“报价”，在单元格 C1 中输入“次数”。
然后用序列号填充列 A。
在 B 列的每个单元格中添加一个引号。
并在 C 列中输入数字“0”。
最后，将 Excel 文件命名为“每日报价”。并将其保存在文件夹中。在我们的例子中，保存文件后，其完整地址如下所示：

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

因此，你应该记住你的。

你可以点击开始下载示例文件。

在 VBA 项目中插入模块

首先，通过按“Alt+F11”在 Word 中触发 VBA 编辑器。
在左侧的“项目”面板上，单击“正常”。
然后单击菜单栏上的“插入”选项卡。
然后在下拉菜单中选择“模块”。
接下来双击打开新模块。
现在将以下代码粘贴到那里：

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

单击“保存”按钮。

注意：:

在此代码行中：

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

请记住将路径地址替换为实际地址。

插入用户表单

接下来我们将创建一个用户表单来显示报价。

尽管如此，在 VBA 编辑器中，再次单击“插入”选项卡。
只有这一次，您选择“UserForm”。
然后你将有一个用户表单。单击表单句柄以调整其大小。
接下来按“F4”打开“属性”窗口。它会出现在屏幕的左下角。
将表单命名为“frmQuoteOfTheDay”并将其标题设置为“每日报价”。 此外，正确设置字体和背景颜色。并选择 “假” 等加工。为 “显示模态”。
然后单击菜单栏上的“工具箱”命令，弹出该框。
使用控件创建文本框、标签和命令按钮。按以下顺序排列它们：
接下来您应该为这些控件设置属性。

首先，点击标签。 将标题文本设置为“今日名言”。 应用适当的字体大小并将背景设置为透明。
其次，点击文本框。 将其命名为“txtQuoteOfTheDay”。
第三，单击命令按钮。 将其命名为“btnClose”并将标题设置为“Close”。 然后双击“关闭”按钮打开编码区。输入以下代码：

Private Sub btnClose_Click()
  Unload Me
End Sub

最后，保存代码。

每次你tart Word，你会看到如下的用户表单：

修复单词问题

在 Word 中不可避免地会遇到这样或那样的问题，这可能会导致文档损坏。他们ost 重要的是迅速妥善处理每一次危机。然而，这将需要一个专业的工具来恢复 docx.

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括损坏的Excel 和 pdf 修复软件产品。欲了解更多信息，请访问 datanumen.com