Create Ms Word doc using Javascript And vbscript
1 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 2 <html xmlns="http://www.w3.org/1999/xhtml"> 3 4 <head> 5 <meta content="text/html; charset=utf-8" http-equiv="Content-Type" /> 6 <title>Create Ms Word doc using Javascript </title> 7 <meta name="Author" content="涂聚文" /> 8 <script type="text/javascript"> 9 var app =new ActiveXObject('Word.Application');// 10 var objWord; 11 var docText; 12 objWord=app.Documents.Add(); 13 app.Selection.GoTo(3,1,3,""); 14 var range = app.Selection.Range;//objWord.Range(0,0); 15 var WTable = objWord.Tables.Add(range, 3,3); 16 WTable.Cell(1,1).Range.Font.Name = "迷你繁篆体"; 17 WTable.Cell(1,1).Range.Text = "塗聚文 Geovin Du"; 18 WTable.Cell(1,2).Range.Font.Size = 18; 19 WTable.Cell(1,2).Range.Bold = true; 20 WTable.Cell(1,2).Range.Font.Italic = true; 21 WTable.Cell(1,2).Range.Font.Color = 5287936; 22 WTable.Cell(1,2).Range.Text = "塗聚文 天下為公"; 23 WTable.Cell(2,1).Range.ParagraphFormat.Alignment = 1; // 0= Left, 1=Center, 2=Right 24 WTable.Cell(2,1).Range.Font.Name = "Arial"; 25 WTable.Cell(2,1).Range.Font.Size = 12; 26 WTable.Cell(2,1).Range.Bold = false; 27 WTable.Cell(2,1).Range.ParagraphFormat.Alignment = 2; 28 WTable.Cell(3,3).Range.Font.Name = "宋体"; 29 WTable.Cell(3,3).Range.Font.Size = 14; 30 WTable.Cell(3,3).Range.Bold = true; 31 WTable.Cell(3,3).Range.Font.Underline = true; 32 WTable.Cell(3,3).Range.ParagraphFormat.Alignment = 0; 33 WTable.Cell(3,2).Range.Text = "締友計算機信息技術有限公司 生活的意義,工作的意義"; 34 app.Options.DefaultBorderLineStyle = 1; 35 app.Options.DefaultBorderLineWidth = 8; 36 WTable.Borders(-1).LineStyle = 1; 37 WTable.Borders(-2).LineStyle = 1; 38 WTable.Borders(-4).LineStyle = 1; 39 WTable.Borders(-6).LineStyle = 1; 40 WTable.Borders(-3).LineStyle = 1; 41 WTable.Borders(-5).LineStyle = 1; 42 WTable.Borders(-5).Color = 5287936; 43 app.ActiveDocument.SaveAs("c:\geovindujavaScript1.doc");//保存 44 docText = objWord.Content; 45 //objWord.SaveAs("c:\geovindujavaScript1.doc"); //此方法也可以 46 document.write(docText);//把Word內容空顯示在網頁 47 app.Application.Printout(); //调用自动打印功能 48 app.Quit(); 49 50 </script> 51 </head> 52 53 <body> 54 55 </body> 56 57 </html>
1 <script type="text/vbscript"> 2 'Geovin Du 3 Set objWord = CreateObject("Word.Application") 4 objWord.Caption = "Test Caption" 5 objWord.Visible = True 6 Set objDoc = objWord.Documents.Add() 7 Set objSelection = objWord.Selection 8 9 objSelection.Font.Name = "Arial" 10 objSelection.Font.Size = "18" 11 objSelection.TypeText "Network Adapter Report" 12 objSelection.TypeParagraph() 13 14 objSelection.Font.Size = "14" 15 objSelection.TypeText "" & Date() 16 objSelection.TypeParagraph() 17 objSelection.TypeParagraph() 18 19 objSelection.Font.Size = "10" 20 Set table1 = objSelection.Tables.Add(objSelection.Range, 2, 4) 21 22 'Set Table1 = objDoc.Tables(1) 23 rowcount = Table1.Rows.Count 24 For i = 1 To Table1.Rows.Count 25 For j = 1 To Table1.Columns.Count 26 '在单元格i,j里填充内容 27 Table1.Cell(i, j).Range.Text = "第" & i & "行" & j & "列" 28 '为单元格i,j添加书签 29 Table1.Cell(i, j).Range.Bookmarks.Add "书签" & i & "行," & j & "列" 30 Next 31 Next 32 objDoc.SaveAs("C:\geovindutestdoc.doc") 33 objWord.Quit 34 </script>
哲学管理(学)人生, 文学艺术生活, 自动(计算机学)物理(学)工作, 生物(学)化学逆境, 历史(学)测绘(学)时间, 经济(学)数学金钱(理财), 心理(学)医学情绪, 诗词美容情感, 美学建筑(学)家园, 解构建构(分析)整合学习, 智商情商(IQ、EQ)运筹(学)生存.---Geovin Du(涂聚文)