|
|
<script>
function wordcontorl(){
alert("小孟佳的寶貝");
var WordApp=new ActiveXObject("Word.Application");
var wdCharacter=1
var wdOrientLandscape = 1
WordApp.Application.Visible=true; //執(zhí)行完成之后是否彈出已經(jīng)生成的word
var myDoc=WordApp.Documents.Add();//創(chuàng)建新的空文檔
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("孟佳燒香");
WordApp. 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="網(wǎng)格型"
var aa = "孟佳標題"
var TableRange; //以下為給表格中的單元格賦值
for (i= 0;i<7;i++)
{
with (myTable.Cell(1,i+1).Range)
{
font.Size = 12;
InsertAfter(aa);
ColumnWidth =4
}
}
for (n =0;n<7;n++)
{
for (i =0;i<7 ;i++)
{
with (myTable.Cell(i+2,n+1).Range)
{font.Size = 12;
InsertAfter("孟佳小可愛");
}
}
}
row_count = 0;
col_count = 0
myDoc.Protect(1)
}
wordcontorl()
</script>
每種功能的實現(xiàn)方法有很多，希望各位可以交流不同的思想和方法。可以加QQ412546724。呵呵
JavaScript技術：js word表格動態(tài)添加代碼，轉(zhuǎn)載需保留來源！
鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯(lián)系我們修改或刪除，多謝。
