☰

Как изменить автора комментариев в MS Word для Mac?

tag-icon • tag-icon mac microsoft-word microsoft-word-2011
Как изменить автора комментариев в MS Word для 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 для Mac 2011 поддерживает макросы, вы сможете автоматизировать этот процесс, поместив все свои документы в одну папку и запустив приведенный ниже код.

Измените vDirectory на путь к папке, содержащей документы для изменения. Переменная sAuthorName должна содержать заменяющее имя. Требуемая функцияGetFilesOnMacСПодпапкамиИлиБезПодпапокможно найти в Интернетездесь.

Отказ от ответственности: этот макрос не тестировался на 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. Перейдите в Файл > Параметры > Центр управления безопасностью > Параметры центра управления безопасностью > Параметры конфиденциальности. Снимите флажок «Удалять личную информацию из свойств файла при сохранении», затем нажмите «ОК».
  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. Убедитесь, что имена авторов комментариев обновлены, затем сохраните файл.

Связанный контент