简介医院空气消毒记录本.doc 是一份面向医院、诊所及基层医疗机构的空气消毒记录模板主要服务于院感管理人员、护理人员及后勤保洁人员解决日常空气消毒记录格式不统一、信息要素缺失、迎检台账整理耗时等问题。资源为单个 doc 文档压缩包整体仅约 400KB内含标准化的表格框架与可编辑字段覆盖消毒日期、消毒方式、消毒区域、执行人、备注等常见项目同时保留了作者、日期等占位符便于用户直接替换成本院信息用 Word 或 WPS 即可打开、填写或微调后打印使用。内容预览中可看到彰武县第四人民医院的文档排版示例具有一定的实际参考价值且文档结构简洁适用于普通病区、发热门诊、手术室等不同场景的日常消毒记录。目前已有 55 人学习下载适合需要快速建立或完善空气消毒台账的医疗单位参考能在迎检、质控和内部管理中减少模板设计时间提升台账统一性与合规性。1. 医院空气消毒记录本的坑不在填写而在追溯医院空气消毒记录本这类.doc模板表面上是张表本质是一条院感数据链的物理载体。大多数医院翻车都不是因为护士忘填而是填出来的记录经不起反向追溯消毒方式勾了紫外线却没有对应灯管编号记录每次 60 分钟但设备铭牌功率和累计时长对不上月底院感科要汇总发现文档格式五花八门连复制粘贴都费劲。这个标题背后对应的是独立消毒空间的管理粒度问题——科室不同、空气消毒方式不同需要采集的数据项和复核逻辑就完全是两套。这篇博文从记录本字段设计讲起落到 Word 模板实现、半自动录入和月报汇总最后说清签字链路的合规细节适合医院信息科、院感科和信息集成商参考。2. 先把记录项拆成三类消毒方式的字段模型2.1 紫外线消毒和空气消毒机的记录字段不是一套医院空气消毒常见三种方式紫外线灯管照射、循环风紫外线空气消毒机、化学喷雾或臭氧熏蒸。这三种方式的记录字段差异很大如果共用一张表必然出现大量空列和“备注”里补写的信息统计时根本没法筛。我在设计记录本模板时会把字段按消毒方式拆成公共部分和差异部分。公共字段包括记录日期、消毒房间/区域名称、消毒时段起始时间和结束时间、执行人签名、核查人签名可选。差异字段按方式展开消毒方式差异字段记录要求紫外线灯管灯管编号、灯管数量、累计使用时长、强度监测结果累计时长每季度汇总一次强度低于 70μW/cm² 需更换灯管空气消毒机设备编号、运行模式、滤网累计时长、消毒面积㎡记录循环风量档位和连续运行时长滤网清洗后需重置计时化学喷雾/臭氧药剂名称、浓度、用量ml、作用时间、通风时间臭氧消毒后必须记录开门通风的结束时间人员才能进入提示同一房间一天内可能多次消毒。比如手术室接台之间用消毒机快速循环晚间再用紫外线终末消毒。这种情况必须按“一次消毒一条记录”来设计不能一天一行。2.2 记录编号与空间编码是追溯的关键索引纸质记录本最容易忽略的是“每一行记录的唯一标识”。没有编号的记录后续核对签名、核对消毒时长时只能靠肉眼找效率和可信度都差。我的做法是在模板里加入“记录编号”列格式做成本科室缩写 日期 流水号例如ICU-20250611-03。空间编码也需要固定。记录本里消毒区域不要直接写“3 床旁”“值班室”而是用区域编码表统一维护OT-01手术间 1 号ICU-A重症监护区TREAT-02治疗室 2 号这么设计之后记录本上的每一行从“一个自然语言描述”变成“一个可检索的结构化条目”。后续按月汇总时可以直接统计每个编码下的消毒次数和累计时长哪个区域漏消一查便知。2.3 签字栏和修改记录的约束规则纸质记录被抽查时最常见的缺陷是签名缺失、笔迹不一致、涂改处无说明。在 Word 模板设计阶段就要把约束写进填表说明里放在表格上方的提示区域。我建议在模板页眉位置固定写三条规定执行人必须在消毒结束后的当班时间内完成签字不得提前签、不得补签。每一项记录只能由执行人本人修改修改时在原文上画单横线旁边签姓名缩写和修改日期不允许使用修正液或直接覆盖。紫外线灯管的累计时长由专人每季度复核一次复核结果单独记录在页脚备注区。这些规则不放进具体单元格而是做成模板的一部分生成 PDF 后作为固定页眉存储这样能避免后续填写时被人删掉。Word 的页眉和页脚在受保护文档模式下是不可编辑区域正好用来放这些约束信息。3. 用 Word 域代码和宏实现半自动录入3.1 为什么不用纯手填或直接上系统纯手填的问题是字迹辨识度和月末录入成本。直接上一套院感信息系统对大多数二级医院来说短期内难以落地采购、培训、历史数据迁移都要时间。中间态方案是把.doc模板做成“半自动录入”的 Word 文档——用下拉列表固定可选值用日期域自动带出当天日期用宏实现一键新增记录行。这个方案的好处是护士不需要学新系统打开 Word 就是熟悉的表格形式信息科拿到的是结构化程度比纯文本高得多的文档后续批量汇总省事。Word 的下拉列表和日期域都能被 VBA 读取这意味着可以写一个简单的宏把整份记录本的数据导出成表格。3.2 设置下拉列表和自动日期域打开 Word 的“开发工具”选项卡在记录行的“消毒方式”列插入下拉列表内容控件选项设置为紫外线灯管、循环风紫外线消毒机、化学喷雾/臭氧。在“记录日期”列插入日期选取器内容控件并设置格式为yyyy-MM-dd。w:sdt w:sdtPr w:dropDownList w:listItem w:displayText紫外线灯管 w:valueUV/ w:listItem w:displayText循环风紫外线消毒机 w:valueUV-FAN/ w:listItem w:displayText化学喷雾/臭氧 w:valueCHEM/ /w:dropDownList /w:sdtPr /w:sdt这段 XML 是内容控件在底层 document.xml 中的存储形态displayText是用户在界面上看到的文本value是程序读取时拿到的枚举值。设计模板时要统一 value 的命名规则UV 代表紫外线灯管UV-FAN 代表消毒机CHEM 代表化学方式。后续做数据汇总时按 value 值筛选比按显示文本筛选可靠得多——因为显示文本可能在不同文档里被改写而 value 是填表人改不了的。日期域用纯 Word 域代码也能实现。按下CtrlF9插入域括号输入以下代码{ DATE \ yyyy-MM-dd }这个域会在打印或打开文档时自动刷新为系统当前日期。注意域代码刷新后是静态文本不会随每天打开自动变化除非设置了“打开时更新域”。因此在模板里还需要在文件 - 选项 - 显示中勾选“打印前更新域”和“打开时更新域”这样每次打开时日期域才会重新计算。3.3 用宏实现一键新增一行记录记录本不可能预置一年的空白行否则文件体量又大又难翻。更实际的做法是只保留一个模板行然后通过宏复制模板行在表格末尾插入新行并自动继承格式。Sub AddRecordRow() Dim tbl As Table Dim templateRow As Row Dim newRow As Row Dim targetTable As Table 假设文档中第一张表就是空气消毒记录表 Set tbl ActiveDocument.Tables(1) 模板行固定为表格第 2 行 Set templateRow tbl.Rows(2) 复制模板行并粘贴到表格末尾 templateRow.Range.Copy newRow tbl.Rows.Add tbl.Rows.Last.Range.Paste 清空内容控件中的旧值日期域保持不变 Dim sdt As ContentControl For Each sdt In tbl.Rows.Last.Range.ContentControls If sdt.Type wdContentControlDropdownList Then sdt.DropdownListEntries.Clear sdt.DropdownListEntries.Add 紫外线灯管 sdt.DropdownListEntries.Add 循环风紫外线消毒机 sdt.DropdownListEntries.Add 化学喷雾/臭氧 ElseIf sdt.Type wdContentControlDate Then sdt.Range.Text Format(Date, yyyy-MM-dd) End If Next sdt MsgBox 已新增一行记录 End Sub这段代码执行顺序是先定位表格和模板行复制模板行在表格末尾追加新行并粘贴格式然后遍历新行里的内容控件重置下拉列表选项并把日期控件设为当天。注意DropdownListEntries.Clear在部分 Word 版本中不被允许直接清空预置项更稳妥的做法是在模板里预先把所有下拉选项定义好宏里只做Range.Text清空不做条目重建。注意VBA 宏在启用了宏的.docm中才能运行纯.doc格式不支持宏。实际操作中我会让科室使用.docm作为工作版月末另存为.docx归档避免宏病毒提示干扰或格式兼容问题。4. 从记录本到月报数据提取与汇总统计4.1 用 python-docx 读不了老式 .doc 的替代方案记录本如果是 Word 2003 格式的.doc文件python-docx 是打不开的它只支持.docx。这里有两种路径一是让科室在保存时统一另存为.docx在模板制作阶段就把“另存为”写进操作说明二是用 Windows 环境下的 COM 对象调用 Word 应用本身来读取兼容性最好但需要机器上装有 MS Office。import win32com.client word win32com.client.Dispatch(Word.Application) word.Visible False doc word.Documents.Open(rD:\records\2025-06\ICU-20250611.doc) table doc.Tables(1) print(表格行数:, table.Rows.Count) # 输出每个单元格的文本 for row_idx in range(1, table.Rows.Count 1): row_data [] for col_idx in range(1, table.Columns.Count 1): try: cell_text table.Cell(row_idx, col_idx).Range.Text.strip() # Word 单元格文本末尾带换行符 \r\x07去掉 row_data.append(cell_text.replace(\r\x07, )) except Exception: row_data.append() print(,.join(row_data)) doc.Close(False) word.Quit()这段代码依赖 pywin32 库读取逻辑是启动 Word 进程打开目标.doc读取第一张表格的行列数据逐个取出单元格文本。\r\x07是 Word 单元格文本的固定结尾标记必须剥掉。这里有个坑table.Columns.Count在某些合并单元格场景下会报错所以内层用了try-except兜底。如果记录表做过单元格合并建议在模板阶段全部使用规则行列不要合并同行单元格否则几乎每隔几行就会读串位。4.2 按消毒方式和区域汇总的统计口径汇总统计的口径直接影响月报结论。常见错误是把“记录次数”直接当成“消毒次数”——如果在夜间紫外线消毒时把房间拆成“治疗室-东半区”和“治疗室-西半区”各记一行那统计区域覆盖率时就会出现偏差。我在汇总脚本里按两个维度计算按区域计算消毒覆盖天数按消毒方式计算总时长。import pandas as pd df pd.DataFrame(rows, columns[编号, 日期, 区域编码, 消毒方式, 开始时间, 结束时间]) df[日期] pd.to_datetime(df[日期]) df[时长分钟] ( pd.to_datetime(df[结束时间]) - pd.to_datetime(df[开始时间]) ).dt.total_seconds() / 60 summary df.groupby([区域编码, 消毒方式]).agg( 消毒次数(编号, count), 总时长分钟(时长分钟, sum), 覆盖天数(日期, nunique), ).reset_index() summary[日均次数] (summary[消毒次数] / summary[覆盖天数]).round(2) print(summary.to_string(indexFalse))统计逻辑不复杂但要注意两个细节。第一开始时间和结束时间如果跨天例如 22:30 开始到第二天 06:00 结束直接用pd.to_datetime会得到负数时长。正确处理方式是判断结束时间小于开始时间时加一天。第二覆盖天数用nunique去重是必须的否则一天消三次的记录会把月报的“消毒质量”指标放大三倍实际只看当天有没有消毒而不是消了几次。4.3 月报中必须体现的三个留存指标院感科月度分析不能只给总量要给趋势。我通常在汇总脚本里额外生成三列每区域消毒缺口天数当月应消毒天数减去实际覆盖天数用于预警漏消区域。紫外线灯管累计超限标记设备台账中的灯管安装日期加上累计使用时长超过 1000 小时标黄超过 1200 小时标红。消毒记录完整率有空单元格的行数占总行数比例目标低于 2%。这三个指标可以直接用 Excel 公式在汇总表里做也可以写进脚本输出标记列。对已经上了院感系统的医院这套脚本可以跑通后直接对接系统导出的 CSV逻辑保持一致。5. 紫外线强度监测记录与季度复核的联动5.1 记录本上怎么预留强度监测位置紫外线灯管的强度监测通常由院感科每季度执行一次结果不写入每日消毒记录行而是放在记录本的最后几页。这个设计是刻意的每日记录由护士填写季度监测由院感专职人员填写两者角色不同放在同一页反而容易混淆。监测记录表建议字段监测日期、监测人灯管编号与每日记录中填写的编号一致紫外线辐照计型号实测强度值μW/cm²判定结果合格/不合格合格阈值为 70μW/cm² 以上不合格处理措施这里有一个容易忽略的点灯管编号的一致性。如果每日记录里写的是“灯管 A 区 1 号”监测表里写的是“紫外灯 01”月底核对时两边对不上。模板里应该把灯管编号做成和空间编码一样的字典表固定命名规则比如UV-ICU-A-01。这样每日记录可以直接从下拉列表选取不需要手工输入。5.2 用条件格式和宏做超期自动提醒Word 本身没有像 Excel 那样的条件格式但可以在打开文档时通过宏检查最近一次监测日期和当前日期的差值超过 90 天就弹窗提醒。Sub CheckUVIntensityDate() Dim lastDate As Date Dim rng As Range 假设监测日期填在文档末尾特定书签位置 Set rng ActiveDocument.Bookmarks(UVLastCheckDate).Range lastDate CDate(rng.Text) If DateDiff(d, lastDate, Date) 90 Then MsgBox 距离上次紫外线强度监测已超过 90 天请安排季度监测。, vbExclamation End If End Sub这段宏放在Document_Open()事件里每次打开文档自动执行。Bookmarks(UVLastCheckDate)需要在模板中预先埋好位置放在监测记录表最后一行的日期单元格处。如果科室实际监测周期不是季度而是按累计时长触发的可以改写判断逻辑为读取灯管累计时长字段超过 1000 小时即提示送检强度。5.3 数据从记录本到设备台账的回写方案季度监测结果和灯管更换记录需要回写到设备台账。两个选择台账在 Excel 中维护就写一个 VBA 导出宏台账在院内系统里就导出 CSV 后导入。我建议至少保底做 Excel 台账因为它是设备生命周期管理的基础。回写时一个经常被忽视的字段是“更换日期”和“启用日期”的关系。新灯管启用后旧的累计时长归零但监测记录必须保留不能删除。正确做法是在台账中增加“状态”列旧灯管标记为“已更换”新灯管另起一行。这样每日消毒记录里如果引用了已更换的灯管编号Excel 台账就能通过 VLOOKUP 查出状态异常起到预警作用。提示模板里多留一个“设备状态”隐藏列存储“在用/已更换/待监测”三个枚举值。这个列平时不打印但导出台账时是筛选的关键能直接生成待办清单。本文还有配套的精品资源点击获取