js word表格动态添加代码

发布时间：2016-11-23 19:40:10 所属栏目：Unix 来源：站长网

导读：复制代码代码如下: lt;scriptgt; function wordcontorl(){ alert("小孟佳的宝贝"); var WordApp=new ActiveXObject("Word.Application"); var wdCharacter=1 var wdOrientLandscape = 1 WordApp.Application.Visible=true; //执行完成之后是否弹出已经生

复制代码代码如下:
lt;scriptgt;
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;ilt;7;i++)
{
with (myTable.Cell(1,i+1).Range)
{
font.Size = 12;
InsertAfter(aa);
ColumnWidth =4
}
}
for (n =0;nlt;7;n++)
{
for (i =0;ilt;7 ;i++)
{
with (myTable.Cell(i+2,n+1).Range)
{font.Size = 12;
InsertAfter("孟佳小可爱");
}
}
}
row_count = 0;
col_count = 0
myDoc.Protect(1)
}
wordcontorl()
lt;/scriptgt;

每种功能的实现方法有很多，希望各位可以交流不同的思想和方法。可以加QQ412546724。呵呵

（编辑：淮北站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!