背景:
同事给了一份word操作手册,要弄成在线帮助文档集成到系统中。150多页,图片众多QAQ
使用:
一打开就有使用方式引导页,这里我记录我所需要的步骤
打开一个word文档-->选择轮廓-->填写与勾选相关信息-->转换
转换完成后,会显示你转换完的文档。右上角的打开目录,就是转换后的文件。.files文件一般放的是转换后的图片,htm文件就是你需要的页面文件。需要哪个页面就选中左侧的页面,右边会显示对应的转换后的页面,右边页面第三个编辑图标按钮,点进去,就会弹出代码。
中文乱码
直接用浏览器打开没问题,用记事本也没问题,vscode中显示是乱码
解决方案:
在DOC2CHM中,将生成好的文件点击编辑,然后将代码复制到vscode
头部中文编码charset改成国际编码:<meta http-equiv=Content-Type content="text/html; charset=utf-8">
导出图片特别模糊处理方案
图片模糊的主要原因:同事提供的是页面视图下的word文档,用户可以方大了看。但是转换word文档是以web视图方式看的。所以在页面视图下已经拉到全屏的图片,在web视图里只有一半左右的大小,转换后的图片就那么大点,截图你们感受下:
页面视图(是不是根本看不清楚我框起来了啥?但是可以缩放看):
这是放大到263%之后的图片
切到web版视图(好家伙,屏幕一半都不到):
直接转换后就是web视图下的图片。。。。。。
图片少的解决方案:
打开word文档,切换到web视图,图片如果超级模糊,那么需要手动将word中所有图片调宽到接近全屏。然后再开始转换。图片大一点不要紧,可以通过样式去控制,小了就真的非常模糊了。
样式:
img {
width: 95%;
height: auto;
}
图片多的解决方案:
1.开启word的宏(可自行百度不同版本下的开启方式)
文件--->选项--->信任中心--->信任中心设置--->启用所有宏
2.视图-->宏-->查看宏--->创建
填写宏名称setpicsize(这里建议英文单词,会作为方法名。我这里是因为之前创建过了,所以下面有个同名的宏可以运行),再点击创建
打开创建后的页面长这样:然后就需要编程,代码全选粘进去就好,然会保存,就可以关闭了
Sub setpicsize()
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px
ActiveDocument.InlineShapes(n).Width = 950 '设置图片宽度 950px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320px
ActiveDocument.Shapes(n).Width = 950 '设置图片宽度 950px
Next n
End Sub
再回到word页面,视图宏,选中刚刚的宏然后点击运行就好啦。