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

77422
Pumpkin

Можно ли изменить или скрыть имя автора комментариев к документу? У меня есть сотни документов, в которых я написал десятки комментариев, теперь мой начальник хочет, чтобы я сменил имя комментатора с меня на него. Это возможно, или я должен скопировать вставить все комментарии вручную, как он?

7
Возможный дубликат [этого вопроса] (http://superuser.com/questions/51057/how-to-change-the-name-of-a-reviewer-in-word). Удачи. long 10 лет назад 2

2 ответа на вопрос

3
Moak

Чтобы удалить (не изменить) имя пользователя, следуйте этому руководству

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
Adam

Поскольку Word для Mac 2011 поддерживает макросы, вы сможете автоматизировать это, поместив все свои документы в одну папку и выполнив приведенный ниже код.

Измените vDirectory на путь к папке, содержащей документы для изменения. Переменная sAuthorName должна содержать имя замены. Необходимую функцию GetFilesOnMacWithOrWithoutSubfolders можно найти онлайн здесь .

Отказ от ответственности: этот макрос не был протестирован на 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 

Похожие вопросы