html打开office文档

最新推荐文章于 2021-12-22 11:47:12 发布

weixin_33720452

最新推荐文章于 2021-12-22 11:47:12 发布

阅读量716

点赞数

原文链接：https://my.oschina.net/iwenr/blog/222961

版权

为什么80%的码农都做不了架构师？>>>

<HTML>
<script>
//var wrd=new ActiveXObject("Word.Application")
//wrd.visible=true
//alert("您的"+wrd.Application.Caption+"安装路径为：\n"+wrd.Application.Path+"\n版本号是："+wrd.Application.version+"\n注册使用者是："+wrd.Application.UserName)
//wrd.Documents.Add()
//wrd.Documents.Open("C:\\Documents and Settings\\Administrator\\桌面\\新建文件夹\\chy.doc")
//wrd.Selection.TypeText("This is some text.")
//wrd.Application.Activate()
//wrd.ActiveDocument.SaveAs("c:\\exam111.doc")
//wrd=null

        var wordApp,doc,s;
 wordApp=new ActiveXObject("Word.Application");
 //doc=wordApp.documents.add();
        doc=wordApp.Documents.Open("C:\\Documents and Settings\\Administrator\\桌面\\新建文件夹\\chy.doc")
 s=wordApp.selection;
 s.paragraphFormat.Alignment=1;
        s.Font.Color = 16711680;  //wdColorBlue
        s.font.Bold = 9999998;   //wdToggle
        s.font.Size =24;
        s.TypeText("Welcome to Word!");
 wordApp.visible=true;
        wordApp=null
 
</script>
</HTML>

function openAccess()
{
    var accApp;
    accApp=new ActiveXObject("Access.Application");
    accApp.visible=true;
}
 
function openExcel()
{
    var excelApp;
    var wb,ws;
    excelApp=new ActiveXObject("Excel.Application");
    excelApp.visible=true;
    wb=excelApp.workbooks.add;
    ws=wb.ActiveSheet;
    ws.cells(1,1)="Welcome to Excel !";
    ws.range("A1").select();
    excelApp.selection.font.Size=14;
    excelApp.selection.font.ColorIndex=3;
    return true;
}
 
 
function openPowerpoint()
{
    var ppApp,slide,win;
    ppApp=new ActiveXObject("PowerPoint.Application");
    slide = ppApp.Presentations.Add().Slides.Add(1, 11)
    slide.Shapes(1).TextFrame.TextRange.Text = "Welcome to PowerPoint!"
    slide.Shapes(1).TextFrame.TextRange.Font.Color = 1234;
    ppApp.Visible =true;
}
 
function openWord()
{
    var wordApp,doc,s;
    wordApp=new ActiveXObject("Word.Application");
    doc=wordApp.documents.add();
    s=wordApp.selection;
    s.paragraphFormat.Alignment=1;
    s.Font.Color = 16711680;  //wdColorBlue
    s.font.Bold = 9999998;   //wdToggle
    s.font.Size =24;
    s.TypeText("Welcome to Word!");
    wordApp.visible=true;
 
return true;
}

转载于:https://my.oschina.net/iwenr/blog/222961