web-dev-qa-db-fra.com

Comment puis-je changer l'auteur de commentaires dans MS Word pour Mac?

Est-il possible de changer ou de cacher le nom de l'auteur des commentaires sur un document? J'ai des centaines de documents où j'ai écrit des dizaines de commentaires, maintenant mon patron veut que je change le nom du commentateur de moi à lui. Est-ce possible ou dois-je copier-coller tous les commentaires manuellement comme lui?

macmicrosoft-wordmicrosoft-word-2011
7
Pumpkin

Pour supprimer (ne pas changer) le nom d'utilisateur , suivez ce guide

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.

sinon cette question a une réponse qui prendrait beaucoup de travail manuel: Comment changer le nom d'un relecteur dans Word?

3
Moak

Dans la mesure où Word pour Mac 2011 prend en charge les macros, vous devriez pouvoir automatiser cette opération en plaçant tous vos documents dans un seul dossier et en exécutant le code ci-dessous.

Remplacez vDirectory par le chemin du dossier contenant les documents à modifier. La variable sAuthorName doit contenir le nom de remplacement. La fonction requise GetFilesOnMacWithOrWithoutSubfolders est disponible en ligne ici .

Disclamer: cette macro n'a pas été testée sur un 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