如何通過在您的單詞中添加“每日報價”功能來每天學習新報價

在今天的文章中，我們將解釋如何在 Word 中添加「每日名言」功能，以便每天學習新的名言。

「每日名言」功能會在每次啟動 Word 時顯示一條不同的名言。在您埋頭苦乾之前，只需花幾秒鐘閱讀一句充滿智慧的名言，這對您大有裨益。

因此，請立即按照我們的指導在您的Word中添加這樣的功能。

將引號放在Excel文件中

1. 首先，打開Excel並將新工作表重命名為“ Quotes”。
2. 接下來，在單元格A1中輸入“數字”，在單元格B1中輸入“報價”，在單元格C1中輸入“時間”。
3. 然後在A列中填充序列號。
4. 在B列的每個單元格中添加一個引號。
5. 然後在C列中輸入數字“ 0”。
6. 最後，將Excel文件命名為“每日報價”。 並將其保存在文件夾中。 對於我們來說，保存文件後，其完整地址應如下所示：

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

因此，您應該記住自己的。

你可以點擊 此處 下載示例文件。

在VBA項目中插入模塊

1. 首先，通過按“ Alt + F11”在Word中觸發VBA編輯器。
2. 在左側的“項目”面板上，單擊“常規”。
3. 然後單擊菜單欄上的“插入”選項卡。
4. 然後在下拉菜單中選擇“模塊”。
5. 接下來雙擊打開新模塊。
6. 現在在其中粘貼以下代碼：

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. 點擊“保存”按鈕。

備註:

在此代碼行中：

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

切記用實際地址替換路徑地址。

插入用戶表格

接下來，我們將創建一個用戶表單以顯示報價。

1. 不過，在VBA編輯器中，再次單擊“插入”選項卡。
2. 僅這次，您選擇“ UserForm”。
3. 然後，您將獲得一個用戶表單。 單擊窗體句柄以調整其大小。
4. 接下來按“ F4”打開“屬性”窗口。 它將出現在屏幕的左下角。
5. 將表單命名為“ frmQuoteOfTheDay”，並將其標題設置為“每日行情”。 此外，正確設置字體和背景顏色。 然後選擇 “錯誤的” 為了 “ ShowModal”。
6. 然後單擊菜單欄上的“工具箱”命令以顯示該框。
7. 使用控件創建文本框，標籤和命令按鈕。 按以下順序排列它們：
8. 接下來，您應該為這些控件設置屬性。

• 首先，單擊標籤。 將標題文本設置為“每日行情”。 應用適當的字體大小並將背景設置為透明。
• 其次，單擊文本框。 將其命名為“ txtQuoteOfTheDay”。
• 第三，點擊命令按鈕。 將其命名為“ btnClose”，並將標題設置為“ Close”。 然後雙擊“關閉”按鈕以打開編碼區域。 輸入以下代碼：

Private Sub btnClose_Click()
  Unload Me
End Sub

9. 最後，保存代碼。

每次啟動 Word 時，您都會看到如下所示的使用者窗體：

解決字詞問題

使用 Word 時，難免會遇到各種各樣的問題，這些問題可能會導致文件損壞。最重要的是快速妥善地處理每一個問題。然而，這需要藉助專業的工具。 恢復docx.

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的Excel 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM