word vba 给文档里面添加备注，按钮就点不上了

要启用宏才可以用VBA功能

WORD启用宏的方法如下：

WORD选项

信任中心

信任中心设置

宏设置

启用所有宏

确定

重新打开WORD文档就可以使用按钮了

提供部分VBA源代码给你，可以自己放到一个宏中，略作修改即可（公式部分有报错异常时，找出原因处理一下）。

Dim i,j,v,t

Sheets("AAA").Select

i=ActiveSheet.UsedRange.rows.count

t=ActiveSheet.Rows(1).Find("*", , , , 2, 2).column

For i = 1 to ActiveSheet.UsedRange.rows().count

Dim i, j, v, t

Sheets("AAA").Select

i = ActiveSheet.UsedRange.Rows.Count

t = ActiveSheet.Rows(1).Find("*", , , , 2, 2).Column

For i = 1 To ActiveSheet.UsedRange.Rows().Count

    For j = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column()

        v = Cells(i, j)

        If IsNumeric(v) Then

            'On Error Resume Next

            Cells(1, t).FormulaR1C1 = "=IFERROR(VLOOKUP(IFERROR(VLOOKUP("""" & " & Cells(1, j) & ",定义表!C3:C4,2,0),0)&""" & Cells(i, 2) & """,数据处理表!C3:C6,4,0),"""")"

            v = Cells(1, t).Value

            If v <> "" Then

                Cells(i, j).ClearComments

                Cells(i, j).AddComment Cells(1, t).Value

                'Cells(i, j).Comment.Visible = True

                Cells(1, t) = ""

            End If

        End If

    Next j

Next i

---