Word および Excel を操作するための JavaScript 実装コード_javascript スキル

1.保存html页面到単語

复制代代码如下:

单元格合并




<テーブル ID = "テスト" width="100%">

单元格1	单元格2	单元格3	单元格4
テスト

<スクリプト言語="javascript">
function MakeWord()
{
var word = new ActiveXObject("Word.Application");
// var doc = word .documents.open("c:test.doc"); //この处は打开已有的モジュール
var doc = word .Documents.Add("",0,1);//不打开模版は内容を直接追加します
var Range=doc.Range();

var sel = document.body.createTextRange();
sel.moveToElementText(form);//このフォームは面フォームのid
sel.select();
sel.execCommand("コピー");
Range.Paste();
単語 .Application.Visible = true;
alert("s");
word.Application.Selection.InlineShapes.AddPicture("c:\m20.gif");
alert("n");
doc .saveAs("c:\ba.doc"); // 指定された位置に存在する注意経路径は必ずある「」不会报错
}






2.JS 用生成ワード

复制代码代次如下:

<スクリプト>
function wordcontorl(){
alert("1111")
var WordApp=new ActiveXObject("Word.Application");

var wdCharacter=1
var wdOrientLandscape = 1
WordApp.Application.Visible=true;
var myDoc=WordApp.Documents.Add();

WordApp.ActiveDocument.PageSetup.Orientation = wdOrientLandscape

WordApp。 Selection.ParagraphFormat.Alignment=1 //1 居中对齐,0 居右
WordApp。 Selection.Font.Bold=true
WordApp。 Selection.Font.Size=20

WordApp。 Selection.TypeText("我的标题");
ワードアプリ。 Selection.MoveRight(wdCharacter);　　　　//光标右移字符
WordApp.Selection.TypeParagraph() //插入段落
WordApp. Selection.Font.Size=12
WordApp。 Selection.TypeText("副标题"); //分行插入日期
WordApp.Selection.TypeParagraph() //插入段落



var myTable=myDoc.Tables.Add (WordApp.Selection.Range, 8,7) //8行7列の表格
//myTable.Style="网格型"
var aa = "我的列标题"

var TableRange; // 以下は表格内の单元格赋值
for (i= 0;i{
with (myTable.Cell(1,i 1).Range)
{
font.Size = 12;
挿入後(aa);
ColumnWidth =4
}
}

for (i =0;i{
for (n =0;n{

with (myTable.Cell(i 2,n 1).Range)
{font.Size = 12;
InsertAfter("bbbb");
}
}
}
行数 = 0;
col_count = 0
myDoc.Protect(1)
}
wordcontorl()

**************************************** ************************************************* ********
3.遍历导出到単語
****************************** ************************************************* *******************
1、各文本框内の内容を遍历出射します。

复制代码 代码如下:

2. table1 の内容を Word にコピーします

コードをコピーします コードは次のとおりです:

卡号	密码	计费方式	有效天数	金额	所属服务项目	发卡时间
h000010010	543860	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010011	683352	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010012	433215	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010013	393899	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010014	031736	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010015	188600	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010016	363407	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010017	175315	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010018	354437	计点		2.0	测试项目	2006-06-23 10:14:40.843
h000010019	234750	计点		2.0	测试项目	2006-06-23 10:14:40.843

复制代代码如下:

// ---------------------------------- 1 ---------------------------------- \










<テーブル ID ='out'>

00001
0002


00001
000002


0003
00003