[高手请进] 如何动态的向word文档中插入书签?

Question

顶也有分!!!

Answer 1

With ActiveDocument.Books
        .Add Range:=Selection.Range, Name:="人际关系"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With

Answer 2

替换语句换成这个试试
ojbect name ="PrintCopySEGN";
rng = word.ActiveDocument.Books.get_Item(ref name).Range;
rng.Text = "Hello";
range = rng;
word.ActiveDocument.Books.Add("bookMk1", ref range);

Answer 3

ActiveDocument.Books.Add Range=ActiveDocument.Selection.Range
ActiveDocument.Selection.Range.Name="人际关系"