Word-та құжат атауын өзгертудің 2 ақылды әдісі

Бұл жазбада біз сізге Word бағдарламасында құжаттың атын тез өзгертудің 2 ақылды әдісін ұсынуға назар аударамыз.

Енді және одан кейін Word-та жобаны жасау кезінде біз файл атауын үнемі өзгертеміз. Әр жолы, біз оның атын өзгерте алмас бұрын оны жабуымыз керек. Бұл мүлдем ыңғайлы емес. Әдепкі бойынша, біз ашық файлдың атын өзгерте алмаймыз. Бірақ макростың көмегімен мүмкін болады.

Төменде осындай мәселені шешуге болатын 2 макростар келтірілген.

1-әдіс: Құжаттың атын Word-та өзгерту

1. Ең алдымен, Word VBA редакторын ашу үшін «Әзірлеуші» қойындысын, содан кейін «Visual Basic» түймесін басыңыз.
2. Әрі қарай «Қалыпты» жобасын басыңыз.
3. Содан кейін «Кірістіру» батырмасын басыңыз және «Модуль» таңдаңыз.
4. Кодтау аймағын ашу үшін жаңа модульді екі рет шертіп, келесі кодтарды қойыңыз:

Sub RenameDocument()
  Dim strDocName As String, strDocPath As String
  Dim strNewDocName As String
  Dim KillFile As String

  '  Get the current doc name.
  strDocName = ActiveDocument.FullName
  strDocPath = ActiveDocument.Path
  If strDocPath = "" Then
    MsgBox ("This document hasn't been saved. You can't rename it.")
    Exit Sub
  End If
 
  '  Pop up an input box for new name.
  strNewDocName = InputBox("Enter a new name for this document:", "Rename document", strDocName)

  '  Save the doc with newly entered name.
  ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strNewDocName

  '  Delete the doc with original name.
  KillFile = strDocName
  Kill KillFile
End Sub

5. Енді «Іске қосу» батырмасын басыңыз немесе «F5» пернесін басыңыз.
6. Кіріс терезесі пайда болады. Тек мәтін жолағына жаңа атауды енгізіп, «ОК» батырмасын басыңыз.

Енді құжат сол жерде жаңа атпен сақталатын болады. Макросты іске қосқанда файлдың түпнұсқасы жойылады.

2-әдіс: Құжаттың атауын өзгерту және күн туралы ақпаратты қосу

Көп жағдайда құжат қайта қаралған күнімен өзгертіледі. Мұндай жағдайда файл атауының негізгі бөлігі тек күндер жолымен өзгеріссіз қалады. Мысалы, мұнда күн жолы жоқ құжат бар.

Оны қосу үшін келесі макросты іске қосуға болады:

Sub RenameDocumentWithDate()
  Dim strDocName, strDocNameNoExten, strDocFullName, strDocPath As String
  Dim strNewDocName As String
  Dim KillFile As String
  Dim strDate As String

  '  Get the current doc name.
  strDocName = ActiveDocument.Name
  strDocFullName = ActiveDocument.FullName
  strDocNameNoExten = Left(strDocName.Name, Len(strDocName.Name) - 5)
  strDocPath = ActiveDocument.Path
  strDate = Format(Date, "mm - dd - yyyy")
 
  If strDocPath = "" Then
    MsgBox ("This document hasn't been saved. You can't rename it.")
    Exit Sub
  End If
 
  '  Save the doc in new name with date.
  ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strDocNameNoExten & " " & strDate
  KillFile = strDocFullName
  Kill KillFile
End Sub

Жоғарыда аталған макросты орнату және іске қосу үшін 1-әдіс бойынша нақты қадамдарды орындауға болады. Бұл әдемі жұмыс істейді. Ағымдағы күн тізбегі бастапқы аттан кейін, мысалы, төменде көрсетілгенін көресіз:

Word құжаттары бұзылуының шешімі

Біз құжаттардың бүлінуінің алдын алу үшін біржолата әдіс қолдана алмаймыз. Біз жасай алатын нәрсе - сақтық көшірмелерді жасау және пайдаланушы қателіктерін мүмкіндігінше болдырмау. Ең маңызды мәселелердің бірі - құжат бүлінгеннен кейін не істеу керектігін білу. Дұрыс жауап - алу құжатты қалпына келтіру мүмкіндігінше тезірек құрал.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. Excel-дің зақымдануы және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com