📄 twtzd_table.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>退文通知单</title>
<link rel="stylesheet" type="text/css" href="../css/css.css">
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="600">
<tr>
<td>
<p align="center"><SPAN
style="COLOR: red; FONT-FAMILY: 黑体; FONT-SIZE: 22pt; mso-ascii-font-family: 'Times New Roman'"><br><%=application("UnitName")%>退文通知单<br><br>
</span>
</p>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" width="600" bordercolorlight="#FF0000" bordercolordark="#FFFFFF" height="304">
<tr>
<td height="41" width="110"><font color="#FF0000"> 顺序号：</font></td>
<td height="41" width="243">
<font color="#FF0000"> 公文字号：</font>
</td>
<td height="41" width="237">
<font color="#FF0000"> 退回单位：</font>
</td>
</tr>
<tr>
<td height="41" colspan="3" width="596"><font color="#FF0000"> 退回公文标题：</font></td>
</tr>
<tr>
<td height="83" colspan="3" width="596" valign="top">
<font color="#FF0000"><br>
退 文 原 因 ：</font>
</td>
</tr>
<tr>
<td height="41" width="108"><font color="#FF0000"> 审核人：</font></td>
<td height="41" width="260"><font color="#FF0000"> 审核日期：</font></td>
<td height="41" width="224"><font color="#FF0000"> 审核意见：</font></td>
</tr>
<tr>
<td height="88" colspan="3" width="596" valign="top">
<font color="#FF0000"><br>
审核意见说明：</font>
</td>
</tr>
</table>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="600" height="45">
<tr>
<td width="120"><font color="#FF0000">填表人：</font></td>
<td width="172"><font color="#FF0000">填表日期：</font></td>
<td width="131"><font color="#FF0000">经办人：</font></td>
<td width="159"><font color="#FF0000">退文日期：</font></td>
</tr>
</table>
</center>
</div>
<script language="vbscript">
'替换文本过程
Sub ReplaceText(OldText,NewText)
Set myRange = App.ActiveDocument.Content
myRange.Find.Execute OldText, , , , , , , , ,NewText,1
Set myRange=nothing
End Sub
public msginfo,App
msginfo=msgbox("按“是”按钮直接打印，按“否”按钮输出到Word！",3,"打印退文通知单")
select case msginfo
case 6
window.print()
case 7
set App=createobject("Word.Application")
App.visible=true
App.Documents.Open "http://<%=request.servervariables("SERVER_NAME")%>/Electron_Doc/WordTemplate/退文通知单.doc"
call ReplaceText("退文通知单","<%=application("UnitName")%>退文通知单")
set App=nothing
end select
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -