javascript操作word

<script language="javascript">

function outDoc(filename){
 
   var wdapp=new ActiveXObject("Word.Application");

   wdapp.visible=true;

   wddoc=wdapp.Documents.Open(filename);     //打开指定的文档
   var myElement;
  var numberOfControls=document.test.length;

  for(var i=0;i<numberOfControls;i++)
{
    myElement=document.test[i];
    if(myElement.type=="checkbox")
    {
      if(myElement.checked==true)
     {
    
    
     if(myElement.value=="船舶"){
      wdapp.Selection.GoTo(-1,0,0,"船舶");
  wdapp.Selection.InsertSymbol(-3843,"Wingdings",true);
      }
      if(myElement.value=="海洋工程"){
       wdapp.Selection.GoTo(-1,0,0,"海洋工程");
  wdapp.Selection.InsertSymbol(-3843,"Wingdings",true);
      }
      if(myElement.value=="船用产品"){
       wdapp.Selection.GoTo(-1,0,0,"船用产品");
  wdapp.Selection.InsertSymbol(-3843,"Wingdings",true);
      }
      if(myElement.value=="ISM认证"||myElement.value=="ISPS认证"){
       
       wdapp.Selection.GoTo(-1,0,0,"ISMISPS认证");
  wdapp.Selection.InsertSymbol(-3843,"Wingdings",true);
      }
      }else{
       var certifyCount=1;
       if(myElement.value=="船舶"){
      wdapp.Selection.GoTo(-1,0,0,"船舶");
  wdapp.Selection.InsertSymbol(-3985,"Wingdings",true);
      }
      if(myElement.value=="海洋工程"){
       wdapp.Selection.GoTo(-1,0,0,"海洋工程");
  wdapp.Selection.InsertSymbol(-3985,"Wingdings",true);
      }
      if(myElement.value=="船用产品"){
       wdapp.Selection.GoTo(-1,0,0,"船用产品");
  wdapp.Selection.InsertSymbol(-3985,"Wingdings",true);
      }
      if(myElement.value=="ISM认证"||myElement.value=="ISPS认证"){
       certifyCount=certifyCount-1;
       if(certifyCount==1){
       wdapp.Selection.GoTo(-1,0,0,"ISMISPS认证");
    wdapp.Selection.InsertSymbol(-3985,"Wingdings",true);
 }
      }
       
       }
    }
  }

 
 

   //wddoc.Application.Printout();

   wdapp=null;

}

 

这是对应的word的宏

 

Sub slmtest()
'
' slmtest Macro
'
    Selection.GoTo What:=wdGoToBookmark, Name:="checkbox2"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3843, Unicode _
        :=True
End Sub

 

 

插入的字符是一个特殊字符charmap中Wingdings中0xFD对应的字符

 

其中用到了word中插入选项卡中书签的作用。