要编写一个宏来编辑Word中的单个评论，可以按照以下步骤进行操作：

1. 打开Word文档，按下Alt + F11打开Visual Basic for Applications（VBA）编辑器。
2. 在VBA编辑器中，选择插入->模块，以创建一个新的VBA模块。
3. 在模块中添加以下代码：

Sub EditComment()
    Dim comment As Comment
    Dim commentText As String
    
    ' 获取选定文本中的第一个评论
    Set comment = Selection.Comments(1)
    
    ' 获取评论的文本内容
    commentText = comment.Range.Text
    
    ' 编辑评论的文本内容
    commentText = "这是编辑后的评论内容。"
    
    ' 更新评论的文本内容
    comment.Range.Text = commentText
End Sub

4. 在代码中，首先使用Selection.Comments(1)获取选定文本中的第一个评论。如果需要编辑其他评论，可以更改索引号。
5. 然后，将评论的文本内容存储在commentText变量中。
6. 接下来，将commentText变量中的评论文本内容修改为所需的内容。
7. 最后，使用comment.Range.Text = commentText更新评论的文本内容。

现在，可以通过运行EditComment宏来编辑Word中的单个评论。首先选定包含评论的文本，然后按下Alt + F8打开宏对话框，选择EditComment宏并点击运行按钮。选定的评论将被编辑为设置的内容。

请注意，这个宏仅适用于选定文本中的第一个评论。如果需要编辑其他评论，可以根据需要修改代码。