Бұл жазбада біз сізге Word құжатына жасалған немесе соңғы өзгертілген күнді енгізудің 3 жылдам жолын көрсетуге назар аударамыз.
Құжатты жасаған сайын, ол жасалған күні және соңғы өзгертілген күні сияқты көптеген ақпаратты қамтиды. Бұл мәліметтер құжатты қалай өңдегенімізді жақсы қадағалап отырады. Бүгін біз құжатқа жасалған немесе соңғы өзгертілген күнді енгізуге мүмкіндік беретін әдістерді көрсетеміз.
Ескерту:
Ең алдымен, құжатты әзірлеуді аяқтағаннан кейін алдымен оны сақтаңыз. Осылайша сіз ең жаңартылған нұсқаны ала аласыз. Содан кейін келесі нұсқаулармен құжатқа тиісті күндерді енгізе аласыз.
1-әдіс: Күнді қолмен енгізу
Фонға ауыссаңыз, Word бағдарламасында жасалған және соңғы өзгертілген күндерді көре аласыз. Дегенмен, сіз бұл ақпаратты тікелей көшіре алмайсыз. Оның орнына сіз мына қадамдарды орындаңыз.
- Біріншіден, Word бағдарламасында «Файл» қойындысын басыңыз.
- Содан кейін «Ақпарат» опциясын және оң жақ бағандағы «Сипаттар» түймесін басыңыз.
- Содан кейін ашылмалы мәзірде «Қосымша сипаттарды» таңдаңыз.
- Ал ашылған терезеде «Жалпы» қойындысын басыңыз.
- Енді тиісті ақпаратты құжатқа көшіріп, қоюға болады.
2-әдіс: өрісті кірістіру
- Алдымен кірістіру көрсеткішін дұрыс қойып, «Кірістіру» қойындысын басыңыз.
- Содан кейін «Жылдам бөліктер» түймесін басып, «Өріс» таңдаңыз.
- «Өріс» жолағында санат үшін «Күні мен уақыты» таңдаңыз.
- Әрі қарай, жасалған күнді енгізу үшін «Жасау күні» өріс атауын таңдаңыз. Соңғы өзгертілген күнді енгізу үшін оның орнына «Сақтау күні» таңдаңыз.
- Содан кейін қажет болса, күн пішімін таңдаңыз.
- Соңында «OK» түймесін басыңыз. Таңдауда күнді енгізесіз.
3-әдіс: Жасалған және соңғы өзгертілген күнді енгізу үшін VBA кодтарын іске қосыңыз
- Ең алдымен, курсорды күндер орналасқан жерге қойыңыз.
- Содан кейін VBA редакторын ашу үшін «Alt + F11» пернелерін басыңыз.
- «Жоба» тақтасында «Қалыпты» түймесін басыңыз.
- Әрі қарай «Кірістіру» қойындысын нұқыңыз.
- «Модуль» таңдаңыз.
- Модульді ашу үшін екі рет басыңыз.
- Онда келесі кодтарды қойыңыз:
Function GetDocDates(strDocPath) As String
Dim objFileSystem As Object
Dim objFile As Object
Dim strDates As String
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(strDocPath)
strDates = "Created Date: " & objFile.DateCreated & vbNewLine & _
"Last Modified Date: " & objFile.DateLastModified
GetDocDates = strDates
Set objFile = Nothing
Set objFileSystem = Nothing
End Function
' Call Function GetDocDates
Sub InsertDocDates()
' Insert dates at selection point.
Selection.InsertAfter GetDocDates(ActiveDocument.FullName)
End Sub
- Курсорды «InsertDocDates» макросының ішіне қойып, оны іске қосу үшін «Орындау» түймесін басыңыз.
Сіз құжатқа келесідей күндерді енгізесіз:
Деректерді жоғалту мәселесімен күресу
Деректерді жоғалту бүгінгі күннің тақырыбына айналды. Ақпараттың барлық түрлері қазір цифрлық форматқа өтеді. Бұл деректер апатына алдын ала толық дайын болуымыз керек дегенді білдіреді. Ал Word құжатының бүлінуі - біз оңай кездесетін мәселе. Осылайша, сізге алуды ұсынамыз Сөздерді жөндеу қолындағы құрал.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xls жөндеу және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com






