Shared Sub BookMarkReplace( _
    ByRef bookmark As Microsoft.Office.Tools.Word.Bookmark, _
    ByVal newText As String)

static void BookMarkReplace(
    ref Microsoft.Office.Tools.Word.Bookmark bookmark, 
    string newText)
{

    bookmark.Text = newText
End Sub

    bookmark.Text = newText;
}

Friend Sub BookMarkReplaceNative( _
    ByVal bookmark As Word.Bookmark, _
    ByVal newText As String)

internal void BookMarkReplaceNative(
    Word.Bookmark bookmark, 
    string newText)
{

    Dim rng As Word.Range = bookmark.Range
    Dim bookmarkName As String = bookmark.Name

    bookmark.Range.Text = newText

    Me.Bookmarks.Add(Name:=bookmarkName, Range:=rng)
End Sub

    object rng = bookmark.Range;
    string bookmarkName = bookmark.Name;

    bookmark.Range.Text = newText;

    this.Bookmarks.Add(bookmarkName, ref rng); 
}

    Dim rng As Object = bookmark.Range
    Dim bookmarkName As String = bookmark.Name

    bookmark.Range.Text = newText
    Me.Application.ActiveDocument.Bookmarks.Add(Name:=bookmarkName, Range:=rng)
End Sub

    object rng = bookmark.Range;
    string bookmarkName = bookmark.Name;

    bookmark.Range.Text = newText;

    Word.Document document = this.Application.ActiveDocument;
    document.Bookmarks.Add(bookmarkName, ref rng);
}