メインコンテンツへスキップ
 

Wordでコメントの作成者名を変更する方法

作者: シルヴィア 最終更新日:2024年07月29日

この記事では、コメントのデフォルトの作成者名を変更すること、またはドキュメント内の既存の作成者名を新しいものに変更することについて説明しています。 以下のXNUMXつの方法をお試しください。

将来使用するためにコメントの作成者名を変更する

ドキュメントの既存のコメントの作成者名を変更します


将来使用するためにコメントの作成者名を変更する

将来使用するためにコメントの作成者名を変更する場合は、[Wordのオプション]ウィンドウで[ユーザー名]を変更してください。

1.開いたWord文書で、をクリックします File > オプション。 の中に Wordのオプション ウィンドウ、あなたがに位置していることを確認してください タブで、名前を変更します ユーザー名 下のスクリーンショットのようなボックスをクリックし、最後に OK

Word オプションのユーザー名ボックス

これで、Word文書のコメントのデフォルトのユーザー名が変更されました。


ドキュメントの既存のコメントの作成者名を変更します

コメントの多いドキュメントを受け取り、すべてのコメントの作成者名を特定の名前に変更したい場合は、次のVBAコードを使用すると便利です。

1.コメントを含む範囲を選択するか、ドキュメント全体を選択して、を押して作成者名を変更します Ctrlキー + A キーを押して、 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをモジュールウィンドウにコピーします。

VBAコード:ドキュメントの既存のコメントの作成者名を変更します

Sub ChangeCommentAuthor()
'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xNewName As String
    Dim xShortName As String
    If Selection.Comments.Count = 0 Then
        MsgBox "No comments in your selection!", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xNewName = "" Or xShortName = "" Then
        MsgBox "The author name/initials can’t be empty.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    With Selection
        For I = 1 To .Comments.Count
            .Comments(I).Author = xNewName
            .Comments(I).Initial = xShortName
        Next I
    End With
End Sub

3。 プレス F5 コードを実行するためのキー。 オープニングで コメント作者名 ダイアログボックスで、新しい作成者名をテキストボックスに入力し、[ OK

コメント作成者名ダイアログボックス

4.次のオープニングで コメントのイニシャル ダイアログボックスで、必要に応じてイニシャルを入力し、 OK

コメントの頭文字ダイアログボックス

次に、以下のスクリーンショットに示すように、選択した範囲内のすべてのコメントの作成者名が、指定した名前にすぐに変更されます。

コメントの投稿者名が変更されました

最高のオフィス生産性向上ツール

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!

🤖 Kutools AIの機能: コンテンツを生成する / テキストを書き換える / ドキュメントに関するQ&A / すぐに回答を得る / ドキュメントを翻訳する / ポーランド語文書(保存形式)...

📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換...

コンテンツ編集: 複数のファイルにわたるバッチ検索と置換 / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...

🧹 楽にお掃除: 掃き捨てる 余分なスペース / セクションブレーク / テキストボックス / ハイパーリンク / その​​他の取り外しツールについては、 削除します グループ...

クリエイティブインサート:挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の写真 / 詳細はこちら インセット グループ...

🔍 正確な選択: ピンポイント 特定のページ / テーブル類 / 形状 / 見出し段落 / ナビゲーションを強化する 他には? 選択 機能を使用...

スターの強化: 任意の場所に移動 / 繰り返しテキストの自動挿入 / ドキュメントウィンドウ間の切り替え / 11 変換 ツール...

Word リボンの Kutools および Kutools Plus タブ
👉 これらの機能を試してみませんか? 今すぐ Kutools for Word をダウンロードしてください! 🚀