给word中的页眉上书签赋值如何实现

2.实现代码

function getHeaderBk(){

var document = TANGER_OCX_OBJ.ActiveDocument;// TANGER_OCX_OBJ为控件对象

try{

for (var i=1;i<=document.Sections.Count;i++){

document.ActiveWindow.ActivePane.View.SeekView = 9;

var range = document.Sections(i).Headers(1).Range.BookMarks.Item("bk1").Range;//获取指定节的书签区域

range.text = "hahahaha ";//给书签区域赋值

document.Bookmarks.Add("bk1",range);//该行必须加，因为赋值后书签会被删除

document.ActiveWindow.ActivePane.View.SeekView = 0;

}

}catch(err){

}

}