Sub slmtest()
'
' slmtest Macro

    Selection.GoTo What:=wdGoToBook, Name:="checkbox2"
    With ActiveDocument.Books
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3843, Unicode _
        :=True
End Sub100分 ,能把这段宏转成javascript并运行成功的给分

解决方案 »

  1.   

    csdn的高手们 你们那里去了?
      

  2.   

    LZ,上面的应该是要进行WORD文档操作的二次开发吧!你不会是直接用JS进行吧!肯定有个第三方的控件,详细代码扔上来!
      

  3.   

    不明白,我就是要利用javascript向word中插入一个特殊字符(word)支持的,上面是我录制的宏,我现在已经能用javascript打开word文件,并且能插入字符串,就是不知道怎么插入特殊字符
      

  4.   


    var WordApp=new ActiveXObject("Word.Application");
    WordApp.Application.Visible=true;
    WordApp.Documents.Add();
    WordApp.Selection.InsertSymbol(-3843,"Wingdings",true);
      

  5.   

    谢谢你了,不过我是在一个书签(checkbox2)那里添加的内容怎么定位到那个标签呀?
    我有的文件是
    var wdapp=new ActiveXObject("Word.Application");   wdapp.visible=true;   wddoc=wdapp.Documents.Open(filename);     //打开指定的文档
     
    range =wdapp.ActiveDocument.Books("checkbox2").Range;
      

  6.   


     var wdapp=new ActiveXObject("Word.Application");
     wdapp.visible=true;
     wddoc=wdapp.Documents.Open(filename);    //打开指定的文档
     range =wdapp.ActiveDocument.Books("checkbox2").Range 
     range.select();
     wdapp.Selection.InsertSymbol(-3843,"Wingdings",true);