2 интелигентни начина да преименувате вашия документ в Word

В тази публикация ще се съсредоточим върху това да ви представим 2 интелигентни начина за бързо преименуване на документа ви в Word.

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

Следват 2 макроса, които могат да решат такъв проблем.

Метод 1: Преименуване на документ в Word

1. Първо и най-важно, натиснете раздела „Разработчик“, след това „Visual Basic“, за да отворите VBA редактора на Word.
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. Сега щракнете върху „Run“ или натиснете „F5“.
6. Ще се появи поле за въвеждане. Просто въведете ново име в текстовото поле и щракнете върху „OK“.

Сега документът ще се съхранява на същото място с ново име. И стартирането на макроса ще изтрие оригиналния файл.

Метод 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