web-dev-qa-db-ja.com

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

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

macmicrosoft-wordmicrosoft-word-2011
7
Pumpkin

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

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でレビュー担当者の名前を変更する方法

3
Moak

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

VDirectoryを、変更するドキュメントを含むフォルダーのパスに変更します。 sAuthorName変数には、置換名が含まれている必要があります。必要な関数GetFilesOnMacWithOrWithoutSubfoldersはオンラインで見つけることができます here 。

Disclamer：このマクロは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
2
Adam