• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• a-kuma32015/08/02 10:24:44

  満足50pt

  マクロ (VBA) でできます。

  Sub コメント作成者を一括で変更する()
  
      For i = 1 To ThisDocument.Comments.Count
  
          ThisDocument.Comments.Item(i).Author = "a-kuma3"    ' 作成者
          ThisDocument.Comments.Item(i).Initial = "a3"        ' 作成者のイニシャル
  
      Next
  
  End Sub
  

  上記のコードを標準モジュールに書き込んで、マクロの実行から「コメント作成者を一括で変更する」を実行すると、全てのコメントの作成者が置き換わります。
  
  
  定型的な業務として何度も繰り返し行う作業であれば、VBScript を使った方が良いかもしれません。

  Set args = WScript.Arguments  
  Set word = WScript.CreateObject("Word.Application")
  
  For j = 0 to args.Count -1  
  
      Set doc = word.Documents.Open(args(j))
  
      For i = 1 To doc.Comments.Count
  
          doc.Comments.Item(i).Author = "a-kuma3" ' 作成者
          doc.Comments.Item(i).Initial = "a3"     ' 作成者のイニシャル
  
      Next
  
      doc.Save
      doc.Close
      Set doc = Nothing
  
  Next  
  
  word.Quit
  Set word = Nothing
  
  MsgBox "変換が終了しました"
  

  メモ帳などのテキストエディタで、上記の内容を書き込んだファイルを、拡張子 .vbs で保存します。
  「拡張子を表示しない」で使っている場合にはご注意を。アイコンで確認してください。
  
  
  Word 文書を、先ほどの .vbs ファイルにドラッグアンドドロップするとコメントの作成者を変換します。
  変換が終了すると「変換が終了しました」のメッセージボックスが表示されます。
  
  
  Word 2010 で確認しました。
  ファイル形式は、97-2003 形式でも問題なく変換できます。
  
  もう、古い Word を持っていませんが、Word 2003 でも動くと思います。

  スター

atachibana2015/08/02 10:29:02

満足50pt

調べましたがマクロを使うしかないようですね。

ドキュメントに以下のマクロを貼り付け、name1 ～ name3 を確認者の名前(必要に応じて Or の条件を増減)、newname を 作成者の名前で置き換えて、実行してください。

提出前には忘れずにマクロは削除しましょう。確認者の名前がばれてしまいますよ :-)



Sub ChangeCommentsAuthors()
    Dim i As Integer

    With ActiveDocument
        For i = 1 To .Comments.Count
            If .Comments(i).Author = "name1" Or .Comments(i).Author = "name2" Or .Comments(i).Author = "name3" Then
                .Comments(i).Author = "newname"
            End If
        Next i
    End With

End Sub

スター
• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2015-08-01 17:22:05

終了日時

2015-08-08 17:25:03

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• 大人の服を作るのに向いてるミシンの機種をご存知ですか？　ベルトホールありのメンズのストレッチパンツを…匿名質問者1日前
• 女性限定の質問です。 結婚するならどちらですか？。 knockeye1日前
• 上司にするならどちらですか？。 knockeye1日前
• 昔話と言うか教訓的説話は 直接的には描かれていなくとも、～～してはいけない、～～であるべきとの主張が…tak1112日前
• 新中１です。中学生活が始まって少しが経ちました。中学生活がしんどいです。 自分は小6の二学期から不登校…iroha101523日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ