Как узнавать новую цитату каждый день, добавляя функцию «Цитата дня» в Word

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.

Поэтому следуйте нашим указаниям, чтобы добавить такую ​​функцию в свой Word прямо сейчас.

Поместите кавычки в файл Excel

1. Прежде всего, откройте Excel и переименуйте новый лист в «Цитаты».
2. Затем введите «Число» в ячейку A1, «Цитаты» в ячейку B1 и «Время» в ячейку C1.
3. Затем заполните столбец A серийными номерами.
4. Добавьте по одной цитате в каждую ячейку столбца B.
5. И введите число «0» в столбце C.
6. Наконец, назовите файл Excel «Цитата дня». И сохранить в папку. В нашем случае, после того как мы сохранили файл, его полный адрес будет выглядеть следующим образом:

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

Соответственно, вы должны помнить о своем.

Вы можете щелкнуть здесь скачать образец файла.

Вставить модуль в проект VBA

1. Для начала запустите редактор VBA в Word, нажав «Alt+F11».
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» и установите заголовок «Цитата дня». Кроме того, правильно установите шрифт и цвет фона. И выберите "Ложь" для «ШоуМодал».
6. Затем нажмите команду «Панель инструментов» в строке меню, чтобы открыть окно.
7. Используйте элементы управления для создания текстового поля, метки и командной кнопки. Расположите их в следующем порядке:
8. Затем вы должны установить свойства для этих элементов управления.

• Сначала нажмите на ярлык. Установите текст подписи как «Цитата дня». Примените правильный размер шрифта и установите фон как прозрачный.
• Во-вторых, нажмите на текстовое поле. Назовите его «txtQuoteOfTheDay».
• В-третьих, нажмите на командную кнопку. Назовите его «btnClose» и установите заголовок «Close». Затем дважды щелкните кнопку «Закрыть», чтобы открыть область кодирования. Введите следующие коды:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Наконец, сохраните коды.

Each time you start Word, you will see a user form such as below:

Устранение проблем со словами

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 восстановить документ.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный Excel и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com