Wordでドキュメントの名前を変更する2つのスマートな方法

このpでost、Wordでドキュメントの名前をすばやく変更する2つのスマートな方法を紹介することに焦点を当てます。

時々、Wordでドラフトしている間、ファイル名を絶えず変更します。 ただし、毎回、名前を変更する前にドキュメントを閉じる必要があります。 これはまったく便利ではありません。 デフォルトでは、開いているファイルの名前を変更することはできません。 しかし、マクロの助けを借りて、それは可能である可能性があります。

以下は、このような問題に対処できる2つのマクロです。

方法1：Wordでドキュメントの名前を変更する

1. まず第一にost、[開発者]タブ、[Visual Basic]の順に押して、WordVBAエディターを開きます。
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文書の破損に対する解決策

XNUMX回限りの方法でドキュメントの破損が発生するのを防ぐことはできません。 私たちにできることは、バックアップを取り、可能な限りユーザーエラーを回避することです。 それらの中の一つost 重要なポイントは、ドキュメントが破損した後の対処方法を理解することです。 正しい答えは、 ドキュメントの回復 できるだけ早くツール。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 Excelのダメージ and pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com