如何将表单里的值传到word中
我在表单中添加一个按钮,按钮的功能是打开固定格式的word,
创建word的js代码:
var myDocApp=null;
myDocApp =new ActiveXObject("word.Application");
myDocApp.Application.Visible = true;
var myDoc = myDocApp.Documents.Add();
myDocApp.Selection.ParagraphFormat.Alignment=1
myDocApp.Selection.Range.Bold=true;
myDocApp.Selection.Font.Size=22;
myDocApp.Selection.Text="请假申请单"
myDocApp.Selection.insertAfter("\n");
myDocApp.Selection.MoveRight(1,10);
myDocApp.Selection.TypeParagraph();
myDocApp.Selection.Font.Bold=false;
myDocApp.Selection.Font.Size=12;
var myTable0=myDoc.Tables.Add(myDocApp.Selection.Range,3,4);
myTable0.cell(1,1).Range.Text="请假人"
myTable0.cell(1,2).Range.Text=""
myTable0.cell(1,3).Range.Text="请假时间"
myTable0.cell(1,4).Range.Text="2006-2-10"
myTable0.cell(2,1).Range.Text="工号"
myTable0.cell(2,2).Range.Text="32412"
myTable0.cell(2,3).Range.Text="填表时间"
myTable0.cell(2,4).Range.Text="2006-2-9"
myTable0.cell(3,1).Range.Text="请假原因"
myTable0.cell(3,2).Range.Text="感冒"
myTable0.cell(3,3).Range.Text="处理方式"
myTable0.cell(3,4).Range.Text="病假"
var range=myDocApp.ActiveDocument.Content;
range.Collapse(0);
range.insertAfter("\n");
range=myDocApp.ActiveDocument.Content;
range.Collapse(0);
var myTable1=myDoc.Tables.Add(range,2,1);
myTable1.cell(1,1).Range.Text="正文"
var wdRowHeightExactly
myTable1.Rows(2).SetHeight ( 200, wdRowHeightExactly )
myTable1.cell(2,1).Range.Text="天气突然降温,着凉引发感冒!!"
var range=myDocApp.ActiveDocument.Content;
range.Collapse(0);
range.insertAfter("\n");
range=myDocApp.ActiveDocument.Content;
range.Collapse(0);
var myTable2=myDoc.Tables.Add(range,1,2);
myTable2.Columns(1).SetWidth(320,2);
myTable2.cell(1,1).Range.Text=" 申请人签名" //空格勿删
// myTable2.cell(1,2).Range.Text="申请人的签名"
myTable2.cell(1,2).Select();
myDocApp.Selection.InlineShapes.AddPicture("E:\\user.gif");
var range=myDocApp.ActiveDocument.Content;
range.Collapse(0);
range.insertAfter("\n");
range=myDocApp.ActiveDocument.Content;
range.Collapse(0);
var myTable3=myDoc.Tables.Add(range,3,4);
myTable3.cell(1,1).Range.Text="组长意见"
myTable3.cell(1,2).Range.Text="同意"
myTable3.cell(1,3).Range.Text="签名"
myTable3.cell(1,4).Range.Text="组长的签名"
myTable3.cell(2,1).Range.Text="部门意见"
myTable3.cell(2,2).Range.Text="同意"
myTable3.cell(2,3).Range.Text="签名"
myTable3.cell(2,4).Range.Text="主任的签名"
myTable3.cell(3,1).Range.Text="厂领导意见"
myTable3.cell(3,2).Range.Text="同意"
myTable3.cell(3,3).Range.Text="签名"
myTable3.cell(3,4).Range.Text="厂领导签名"
try{
myDocApp.ActiveDocument.SaveAs("e:\\JaveToWord.doc");
}catch(exception){
alert("浏览器安全设置过高,保存文件到本地失败");
myDocApp.Documents.close();
myDocApp.Application.quit();
myDocApp=null;
window.close();
}
//myDocApp.Documents.close();
//myDocApp.Application.quit();
//myDocApp=null;
但是我如何在提交表单过程中把表单上的值传递到word的某一个区域中呢,谢谢!