word根据书签刷标题样式

// 书签选择段落插入  标题
    function selectionBKQuery(bkName, PageOfficeId, titleLevel) {
        if(typeof bkName == 'undefined') return ;
        if(titleLevel == '0'){
            titleLevel = 1;
        }
        var bookmark = 'Sub queryRow()  \r\n';
        bookmark += 'Selection.GoTo What:=wdGoToBookmark, Name:="' + bkName + '" \r\n';
        bookmark += 'With ActiveDocument.Bookmarks \r\n';
        bookmark += '    .DefaultSorting = wdSortByName \r\n';
        bookmark += '    .ShowHidden = False \r\n';
        bookmark += 'End With \r\n';
        bookmark += 'Selection.Range.Paragraphs.Style = ActiveDocument.Styles(wdStyleHeading'+titleLevel+') \r\n';
        bookmark += 'End Sub';
        // Selection.Rows.Delete
        document.getElementById(PageOfficeId).RunMacro("queryRow", bookmark);
    };