今回は久しぶりにワードマクロを作成しました。
先日「小技の森」に「オフィス文書から個人情報を削除する」方法を投稿しました。この方法はファイルからコメント作成者名を一括で削除できます。アプリケーションの操作だけで処理できるので、誰でも簡単にできます。ただし、すべての作成者名が削除されてしまいます。作成者名が複数あり、残しておきたい作成者名がある場合には使えません。いったん付いてしまった作成者名を変更することもできません。
そこで、マクロからコメントの作成者名を操作することにします。マクロが難しいという人のために、記事の後半でマクロコードの登録方法と実行方法を簡単に説明しています。
注意：以下のマクロで行われた変更は、セキュリティセンターの[ファイルを保存するときにファイルのプロパティから個人情報を削除する]チェックボックスがオンになっていると適用されません。必ずオフにしてください。また、変更を反映するには一度保存する必要があります。
追記1：文書にすでにコメントがある場合は、上記のチェックボックスのオンオフを変更できません。オンになっているときにこのマクロを実行してファイル作成者名を変更すると、その変更箇所を削除した状態で文書が保存されます。
追記2：文書の状態やPC環境によっては正常に動作しない可能性があります。必ずファイルのバックアップを取ってからファイルで使用してください。
まずはシンプルなコードです。以下のマクロコードをワードに貼り付けて、次の部分を変更します。
元の作成者名：変更対象のコメント作成者名。
新しい作成者名：変更後のコメント作成者名。通常の方法で削除した場合と同じにする場合は「作成者名」とします。完全に削除したい場合は何も記入しません（スペースも入れない）。
新しいイニシャル：イニシャルはコメントの作成者名の前に[A1]、[A2]…と表示されます。この数字（コメント番号）の前の文字部分を任意に変更します。イニシャルを変更しない場合は、この1行を削除してください。
|
1 2 3 4 5 6 7 8 9 |
Sub コメント作成者を変更する() Dim i As Integer For i = 1 To ActiveDocument.Comments.Count If ActiveDocument.Comments.Item(i).Author = "元の作成者名" Then ActiveDocument.Comments.Item(i).Author = "新しい作成者名" ActiveDocument.Comments.Item(i).Initial = "新しいイニシャル" End If Next End Sub |
これだけでも十分使えますが、変更元と変更先のコメント作成者名が固定されてしまいます。いちいちマクロを書き換えるは手間ですので、作成者名を柔軟に操作できる実用的なマクロにしたいと思います。次のマクロでは、マクロの実行時に以下のように設定を変更できます。任意の作成者名またはすべての作成者名を変更でき、イニシャルの変更も自由です。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
Sub コメント作成者を変更する() Dim i As Integer Dim oldName As String Dim newName As String Dim newInitial As String Dim iCount As Integer Dim ansVal As Integer iCount = 0 oldName = InputBox("コメントの作成者名を入力してください。コメント作成者名をすべて変更するには「*」を入力します。", "元のコメント作成者名") If StrPtr(oldName) = 0 Then MsgBox "キャンセルされました。処理を終了します。", vbExclamation, "入力キャンセル" Exit Sub End If newName = InputBox("新しい作成者名を入力してください。デフォルトは「作成者」です。完全に削除する場合は空欄にしてください。", "新しい作成者名", "作成者") If StrPtr(newName) = 0 Then MsgBox "キャンセルされました。処理を終了します。", vbExclamation, "入力キャンセル" Exit Sub End If ansVal = MsgBox("イニシャルも変更しますか？", vbYesNo, "イニシャル変更の確認") If ansVal = vbYes Then newInitial = InputBox("新しいイニシャルを入力してください。デフォルトは「A」です。", "新しいイニシャル", "A") If StrPtr(newInitial) = 0 Then MsgBox "イニシャルを変更せず、処理を続行します。", vbExclamation, "イニシャル変更のキャンセル" ansVal = vbNo End If End If If oldName = "*" Then For i = 1 To ActiveDocument.Comments.Count ActiveDocument.Comments.Item(i).Author = newName If ansVal = vbYes Then ActiveDocument.Comments.Item(i).Initial = newInitial End If Next iCount = i Else For i = 1 To ActiveDocument.Comments.Count If ActiveDocument.Comments.Item(i).Author = oldName Then ActiveDocument.Comments.Item(i).Author = newName iCount = iCount + 1 If ansVal = vbYes Then ActiveDocument.Comments.Item(i).Initial = newInitial End If End If Next End If MsgBox iCount & "個変更されました。", vbInformation, "処理完了" End Sub |
このマクロの手順を説明します。
1. まず、マクロを実行します。次のダイアログボックスが表示されますので、変更したいコメント作成者名を入力して[OK]をクリックします。「*」（アスタリスク）を入力すると、すべてのコメント作成者名を変更できます。
2. 次のダイアログボックスに新しい作成者名を入力して、[OK]をクリックします。通常の削除と同じ「作成者」がデフォルトで入力されています。
3. イニシャルも変更するかどうか尋ねられますので、変更したい場合は[はい]、変更したくない場合は[いいえ]をクリックします。
4. 次のダイアログボックスに新しいイニシャルを入力して、[OK]をクリックします。「A」がデフォルトで入力されています。
キャンセルをクリックすると、イニシャルの変更はキャンセルされますが、コメント作成者名の変更処理は続けられます。[OK]をクリックします。
5. 変更処理が完了すると次のようなメッセージが表示され、変更されたコメント作成者の数がわかります。
これで、自由にコメント作成者名を変更できるようになります。コード自体は単純なものなので解説は省きます。
このマクロが少しでもお役に立てれば幸いです。
おまけ
マクロコードの登録方法がわからない方のために、簡単に説明しておきます。画面はWord2010です。
1. [開発]タブを選択して、[Visual Basic]をクリックします。
2. VisualBasic Editorが開きます。左のプロジェクトペインのツリーで[Normal]の下にある[標準モジュール]を選択します。右の画面にコードを貼り付けます。他にコードが記載されている場合は、最下部に貼り付けてください。
追記3：初めてマクロを作成する場合、上記のツリーに標準モジュールがありません。そのため、新たに作成する必要があります。VisualBasic Editorが開いたら、ツリーの[Normal]を選択して[挿入] > [標準モジュール]を選択します。
[Normal]の下に[標準モジュール]が作成されます。これを選択して、右の画面にコードを貼り付けます。
3. 保存してVisualBasic Editorを終了します。
次にマクロの実行方法です。
1. [開発]タブを選択して、[マクロ]をクリックします。
2. 表示されたダイアログボックスのリストから、[コメント作成者を変更する]を選択して[実行]をクリックします。
これでマクロが実行されます。
以上、不明な点がありましたらご連絡ください。
では、また。