☰

MS Word for Mac でコメントの作成者を変更するにはどうすればよいですか?

tag-icon • tag-icon mac microsoft-word microsoft-word-2011
MS Word for Mac でコメントの作成者を変更するにはどうすればよいですか?

ドキュメントのコメント作成者の名前を変更したり非表示にしたりすることはできますか? 何百ものドキュメントがあり、何十ものコメントを書いたのですが、上司からコメント作成者の名前を私から彼に変更するように言われました。 これは可能ですか、それともすべてのコメントを彼として手動でコピーして貼り付ける必要がありますか?

答え1

ユーザー名を削除する（変更しない）このガイドに従ってください

On the Word menu, click Preferences.

Under Personal Settings, click Security.
Under Privacy options, select the Remove personal information from this file on save check box.
Save the document.

そうでなければ、この質問の回答には多くの手作業が必要になります。Word でレビュー担当者の名前を変更するにはどうすればいいですか?

答え2

Word for Mac 2011 はマクロをサポートしているため、すべてのドキュメントを 1 つのフォルダーに配置して以下のコードを実行することで、これを自動化できるはずです。

vDirectoryを、変更するドキュメントを含むフォルダのパスに変更します。sAuthorName変数には、置換名を含める必要があります。必要な関数サブフォルダーの有無にかかわらずMac上でファイルを取得するオンラインで見つけられますここ。

免責事項：このマクロはMACではテストされていません

Sub ChangeAuthorInDocumentComments ()
Dim vDirectory As String
Dim sAuthorName As String
Dim oDoc As Document

vDirectory = "C:\Docs\"
sAuthorName = "Adam"
MyFiles = ""

Call GetFilesOnMacWithOrWithoutSubfolders(Level:=1, ExtChoice:=7, FileFilterOption:=3, FileNameFilterStr:=".doc")

Application.ScreenUpdating = False

If MyFiles <> "" Then

    MySplit = Split(MyFiles, Chr(10))
    For FileInMyFiles = LBound(MySplit) To UBound(MySplit) - 1

        Set oDoc = Documents.Open(MySplit(FileInMyFiles))

        For Each Ocom In ActiveDocument.Comments
             With Ocom
                 Ocom.Author = sAuthorName
             End With
        Next

    oDoc.Close SaveChanges:=True
    Next FileInMyFiles
 End If

 Application.ScreenUpdating = True
End Sub

答え3

Windows 11 / Microsoft Office 2021の場合:

  1. 文書を開く
  2. [ファイル] > [オプション] > [セキュリティ センター] > [セキュリティ センターの設定] > [プライバシー オプション] に移動します。[保存時にファイルのプロパティから個人情報を削除する] のチェックを外し、[OK] をクリックします。
  3. Visual Basic エディター (Alt + F11) を開き、左側のプロジェクト パネルで [このドキュメント] をダブルクリックします。
  4. 次のコードをスクリプト エディターに貼り付けます。
Sub ChangeAllAuthorNamesInComments()
  Dim objComment As Comment

  ' Change all author names in comments
  For Each objComment In ActiveDocument.Comments
    objComment.Author = "XYZ"
    objComment.Initial = "X"
  Next objComment
End Sub
  1. スクリプトを実行します (F5)。
  2. コメントの作成者名が更新されたことを確認して、ファイルを保存します。

関連情報