Как да вмъкнете бъдеща или минала дата във вашия Word документ чрез VBA кодове

В тази статия ще ви покажем интересен трик за вмъкване на бъдеща или минала дата във вашия документ на Word чрез кодове на VBA.

Като цяло нямаме затруднения при вмъкването на текуща дата в нашия документ на Word. И все пак от време на време бихме могли да се подготвим за документа, необходим през следващата седмица или месец или дори по-късно. Тогава тук е проблемът, който не можете да заобиколите. Как можете да вмъкнете бъдеща дата във файл на Word? А понякога какво ще кажете за минало дори?

Ето защо смятаме, че трябва да разберете този полезен метод, за да изпълнявате по-добре работните си задачи.

Използвайте VBA кодове, за да вмъкнете бъдеща или поставена дата

1. Като начало отворете документа на Word.
2. След това щракнете върху раздела „Програмист“.
3. След това щракнете върху „Visual Basic“, за да отворите редактора на VBA. Ако раздела „Разработчик“ не е наличен във вашата лента на Word, можете да натиснете „Alt + F11“, за да отворите редактора.
4. Сега в редактора кликнете върху „Нормално“ отляво.
5. След това щракнете върху „Вмъкване“ в лентата с инструменти.
6. След това изберете „Модул“ от списъчното меню.
7. Сега щракнете двукратно върху нововмъкнатия модул и областта за редактиране ще бъде достъпна от дясната страна.
8. Просто поставете следните кодове там:

Sub InsertFutureOrPastDate()
  Dim strNumberOfDays As String

  ' Input the number of days you want to insert from today to the future or past date.
  strNumberOfDays = InputBox("Please input the number of days you want to insert", "future or past date", "Input here.For exemple,input 1 to insert the date of tomorrow")
  ' Insert the future or past date according to the inputed number of days
  If strNumberOfDays <> "" Then
    Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")
  End If       
End Sub

9. След това щракнете върху бутона „Запазване“ и затворете редактора на VBA.
10. Сега се върнете към екрана на Word документ и поставете курсора на мястото, където отива бъдещата или миналата дата.
11. След това щракнете отново върху раздела „Програмист“.
12. И щракнете върху „Макроси“ в група „Код“, за да отворите прозореца „Макроси“. Отново, ако раздел „Разработчик“ не се показва, просто трябва да натиснете „Alt + F8“.
13. Сега в прозореца „Макроси“ намерете и изберете макроса „InsertFutureOrPastDate“.
14. След това кликнете върху „Run“.
15. Тогава ще бъдете посрещнати от кутия за съобщения. Можете да въведете число в текстовото поле в долната част на полето, за да представите дните, останали до бъдещата дата. Например, ако искате да въведете утрешната дата, трябва да въведете там „1“. По същия начин, ако имате нужда от минала дата, просто добавете знак минус преди стойността, като „-1“ за вчера.
16. Не забравяйте да щракнете върху „OK“.

Забележка: В кодовете „Selection.TypeText Text: = Format (Date + strNumberOfDays,„ dddd, MMMM dd, yyyy “),„ dddd, MMMM dd, yyyy “представляват формата на датата, където„ M “означава„ месец “ , „D“ за „ден“, „y“ за „година“ и „dddd“ за „седмица“, така че можете да го промените, както искате.

Възстановете своите ценни файлове

Word е податлив на колапси, което излага нашите Word файлове в опасност. От време на време някои от безценните ни данни просто ги няма. Но това, което е изчезнало, не е напълно отминало. Можете да седнете, за да оплаквате загубата на критичните си файлове или да изберете специалист повреден инструмент за възстановяване на Word да ги извлече.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително Възстановяване на проблем с файл на Excel xls и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com