录了一段宏……ChangeFileOpenDirectory "G:\新建文件夹\"
Selection.InsertFile FileName:="a.doc", Range:="", ConfirmConversions:= _
False, Link:=False, Attachment:=False
Selection.InsertFile FileName:="b.doc", Range:="", ConfirmConversions:= _
False, Link:=False, Attachment:=False想转成js,结果不会……
var word;
word = new ActiveXObject("Word.Application");
word.Documents.Open("G:\\新建文件夹\\c.doc");
word.Documents.get_Range(0,0).InsertFile("G\\新建文件夹\\a.doc","",false,false,false);//不知道怎么取那个selection
word.Visiable = true;
Selection.InsertFile FileName:="a.doc", Range:="", ConfirmConversions:= _
False, Link:=False, Attachment:=False
Selection.InsertFile FileName:="b.doc", Range:="", ConfirmConversions:= _
False, Link:=False, Attachment:=False想转成js,结果不会……
var word;
word = new ActiveXObject("Word.Application");
word.Documents.Open("G:\\新建文件夹\\c.doc");
word.Documents.get_Range(0,0).InsertFile("G\\新建文件夹\\a.doc","",false,false,false);//不知道怎么取那个selection
word.Visiable = true;
可以参考一下javascript读写word文件 自己找一下吧 组合起来就是你要的功能了
这个是读的
<script language=JavaScript>
function trans(){
var objWordApp = new ActiveXObject("Word.Application");
var objWordDoc = objWordApp.Documents.Open('d1.doc');
objWordDoc.Windows(1).Selection.WholeStory();
document.all.oDiv.innerText=objWordDoc.Windows(1).Selection.Text;
objWordApp.ActiveDocument.Close(0);
objWordApp.Quit();
return true;
}
</script>
<button onclick='trans()'>click to trans</button>
<br><textarea id=oDiv cols=80 rows=30></textarea>
先等等,看还有人有办法没有,用js合并。 实在不行就结贴了。。
up up up