遇到 "written程序错误" 时，可以尝试以下方法进行解决：
检查文档兼容性
确保文档以与您使用的 Office 版本兼容的格式打开。
单击 "文件" → "信息"，然后查看 "兼容性模式" 下的文档格式。
如果文档处于兼容模式，请尝试将其转换为较新的格式。
恢复未保存的文档
如果文档未保存，Office 可能能够自动恢复它。
单击 "文件" → "信息" → "管理文档"，然后选择 "恢复未保存的文档"。
修复损坏的文件
Office 提供了一个内置工具来修复损坏的文件。
单击 "文件" → "信息" → "检查问题"，然后选择 "修复"。
使用第三方文件修复工具
如果 Office 的修复工具无法解决问题，可以使用第三方文件修复工具。
许多免费和付费工具都可以修复损坏的 Office 文件。
从备份恢复文档
如果您有文档的备份，则可以尝试从备份中恢复它。
使用计算机的备份软件或手动备份该文档。
检查系统兼容性
确保操作系统和所有软件都是最新的，以避免兼容性问题。
运行系统自带的杀毒软件进行全面扫描，排除病毒和恶意软件的影响。
修复系统文件
使用系统自带的 "sfc" 命令修复受到损坏的系统文件。
打开 "开始" → "运行"，输入 `cmd` 并回车，然后输入 `sfc /scannow` 并回车。
重新安装软件
如果错误出现在运行某个特定软件时，尝试重新安装该软件。
确保在卸载前备份所有重要数据。
检查硬件
检查内存条是否接触不良或损坏，尝试重新插拔或更换内存条。
检查硬盘是否存在坏道，并进行修复。
使用注册表修复工具
运行regedit进入注册表，检查并修复可能存在的错误键值。
例如，在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellExecuteHooks下，确保只有一个正常的键值"{AEB6717E-7E19-11d0-97EE-00C04FD91972}"，并将其他的删除。
如果以上方法都无法解决问题，可能需要考虑重装系统或寻求专业的技术支持。在进行任何操作之前，请确保备份重要的数据，以防数据丢失。