js word表格动态添加代码

　　<script>

　　function wordcontorl(){

　　alert("小孟佳的宝贝");

　　var WordApp=new ActiveXObject("Word.Application");

　　var wdCharacter=1

　　var wdOrientLandscape = 1

　　WordApp.Application.Visible=true; //执行完成之后是否弹出已经生成的word

　　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("孟佳烧香");

　　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="网格型"

　　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>