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并运行成功的给分
'
' 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并运行成功的给分
var WordApp=new ActiveXObject("Word.Application");
WordApp.Application.Visible=true;
WordApp.Documents.Add();
WordApp.Selection.InsertSymbol(-3843,"Wingdings",true);
我有的文件是
var wdapp=new ActiveXObject("Word.Application"); wdapp.visible=true; wddoc=wdapp.Documents.Open(filename); //打开指定的文档
range =wdapp.ActiveDocument.Books("checkbox2").Range;
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);