乐博网lob.cn提示：调试环境为 vs2008 +  windows2003 / windows2008 / xp / vista

VB.Net为word添加和删除注释
Public Class ThisDocument
    Private MyAddMenu As Office.CommandBarButton
    Private MyDelMenu As Office.CommandBarButton
    Private missing = System.Reflection.Missing.Value
    '在功能区中新增菜单组
    Private Sub ThisDocument_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        Dim MyCommandBarPopup As Office.CommandBarPopup = Nothing
        Dim MyCommandBarMenu As Office.CommandBar = CType(Application.CommandBars.ActiveMenuBar, Office.CommandBar)
        Dim MyControlsCount As Integer = MyCommandBarMenu.Controls.Count
        MyCommandBarPopup = CType(MyCommandBarMenu.Controls.Add(Office.MsoControlType.msoControlPopup, missing, missing, MyControlsCount, True), Office.CommandBarPopup)
        If (MyCommandBarPopup IsNot Nothing) Then
            MyCommandBarPopup.Caption = "文件管理"
            MyAddMenu = CType(MyCommandBarPopup.Controls.Add(Office.MsoControlType.msoControlButton, missing, missing, missing, True), Office.CommandBarButton)
            MyAddMenu.Caption = "添加注释"
            AddHandler MyAddMenu.Click, AddressOf MyAddMenuCommand_Click
            MyDelMenu = CType(MyCommandBarPopup.Controls.Add(Office.MsoControlType.msoControlButton, missing, missing, missing, True), Office.CommandBarButton)
            MyDelMenu.Caption = "删除注释"
            AddHandler MyDelMenu.Click, AddressOf MyDelMenuCommand_Click
        End If
    End Sub
    Private Sub ThisDocument_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
    End Sub
    '添加注释
    Private Sub MyAddMenuCommand_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
        Dim MyContent As Object = "这是一条段落注释"
        Dim MyPos As Integer = 1
        Dim MyForm As New Form1()
        MyForm.ShowDialog()
        MyContent = MyForm.textBox2.Text
        MyPos = System.Convert.ToInt16(MyForm.textBox1.Text)
        Me.Comments.Add(Me.Paragraphs(MyPos).Range, MyContent)
    End Sub
    '删除(所有)注释
    Private Sub MyDelMenuCommand_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
        Me.DeleteAllComments()
    End Sub
End Class