2 розумні способи перейменування документа в Word

У цій публікації ми зосередимося на представленні вам двох розумних способів швидкого перейменування документа в 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. Тепер натисніть «Виконати» або натисніть «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