☰

Wie kann ich den Autor von Kommentaren in MS Word für Mac ändern?

tag-icon • tag-icon mac microsoft-word microsoft-word-2011
Wie kann ich den Autor von Kommentaren in MS Word für Mac ändern?

Ist es möglich, den Namen des Autors von Kommentaren in einem Dokument zu ändern oder zu verbergen? Ich habe Hunderte von Dokumenten, in denen ich Dutzende von Kommentaren geschrieben habe. Jetzt möchte mein Chef, dass ich den Namen des Kommentators von mir in ihn ändere. Ist das möglich oder muss ich alle Kommentare manuell als seinen Namen kopieren und einfügen?

Antwort1

So entfernen Sie den Benutzernamen (nicht ändern ihn)Folgen Sie dieser Anleitung

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.

Andernfalls hätte diese Frage eine Antwort, die viel Handarbeit erfordern würde:Wie ändere ich den Namen eines Gutachters in Word?

Antwort2

Da Word für Mac 2011 Makros unterstützt, sollten Sie dies automatisieren können, indem Sie alle Ihre Dokumente in einem Ordner platzieren und den folgenden Code ausführen.

Ändern Sie vDirectory in den Pfad des Ordners, der die zu ändernden Dokumente enthält. Die Variable sAuthorName sollte den Namen des Ersatzes enthalten. Die erforderliche FunktionDateienAuf Dem MacAbrufenMitOrOhneUnterordnerfinden Sie onlineHier.

Haftungsausschluss: Dieses Makro wurde nicht auf einem MAC getestet

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

Antwort3

Unter Windows 11 / Microsoft Office 2021:

  1. Öffnen Sie das Dokument
  2. Gehen Sie zu Datei > Optionen > Trust Center > Trust Center-Einstellungen > Datenschutzoptionen. Deaktivieren Sie „Beim Speichern persönliche Informationen aus Dateieigenschaften entfernen“ und klicken Sie dann auf „OK“.
  3. Öffnen Sie den Visual Basic-Editor (Alt+F11) und doppelklicken Sie im Projektfenster links auf „Dieses Dokument“.
  4. Fügen Sie den folgenden Code in den Skript-Editor ein:
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. Führen Sie das Skript aus (F5).
  2. Bestätigen Sie, dass die Autorennamen der Kommentare aktualisiert wurden, und speichern Sie dann die Datei.

verwandte Informationen