|
iWebOffice2004调用VBA脚本解释及翻译(28) {
for (var j=1; j<=iCells; j++)
{
mName=i.toString()+j.toString();
//取得表格内容
mText=webform.WebOffice.WebGetMsgByName(mName);
//填充单元值
iTable.Columns(i).Cells(j).Range.Text=mText;
}
}
}
StatusMsg(webform.WebOffice.Status);
} </script>
</head>
<body bgcolor="#ffffff" onload="Load()" onunload="UnLoad()"> <form name="webform" method="post" action="DocumentSave.ASP" onsubmit="return SaveDocument();">
<input type=hidden name=RecordID value="<%=mRecordID%>">
<input type=hidden name=Template value="<%=mTemplate%>">
<input type=hidden name=FileType value="<%=mFileType%>">
<input type=hidden name=EditType value="<%=mEditType%>">
<input type=hidden name=HTMLPath value="<%=mHTMLPath%>"> <table border=0 cellspacing='0' cellpadding='0' width=100% height=100% align=center class=TBStyle>
<tr>
<td align=right class="TDTitleStyle" width=64>主题</td>
<td class="TDStyle"><input type=text name=Subject value="<%=mSubject%>" class="IptStyle" onblur="SetBookmarks('Caption',this.value);" ></td>
</tr> <tr>
<td align=right class="TDTitleStyle" width=64>作者</td>
<td class="TDStyle"><input type=text name=Author value="<%=mAuthor%>" class="IptStyle" onblur="SetBookmarks('Author',this.value);" ></td>
</tr> <tr>
<td align=right class="TDTitleStyle" width=64>时间</td>
<td class="TDStyle"><input type=text name=FileDate value="<%=mFileDate%>" readonly class="IptStyle" ></td>
| 
