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


7

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


2
この質問の重複の可能性。がんばろう。
ロング

回答:



2

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

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

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
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.