如何用VBA将Word文档中的域代码公式复制为图片，求大家指点

过客fppt

cuteword 发表于 2023-10-17 12:27
注册个账号，可以下载下来看，预览会有些问题

好的，后面我需要用的时候再注册吧，目前用mathtype换也不错。

ymngyf

loquat 发表于 2023-8-19 23:19
楼主这个思路有新意。

请问这个vba可以改为，选中部分内容转为图片吗？
使用场景是系统上传word有字数要求，有时候需要把表格转为图片。

ymngyf

过客fppt 发表于 2023-8-23 15:38
【今天终于实现了在WPS中大批量转换公式为图片-哔哩哔哩】 https://b23.tv/ngZzCCS

请问这个vba可以改为，选中部分内容转为图片吗？（图片大小与之前一致）
使用场景是系统上传word有字数要求，有时候需要把表格转为图片。

过客fppt

ymngyf 发表于 2023-10-22 10:14
请问这个vba可以改为，选中部分内容转为图片吗？（图片大小与之前一致）
使用场景是系统上传word有字数 ...

选中的内容转化为图片代码在25楼，不过这个只适用于较长的一段文字，如果文字宽度非常很短，特别是分数的公式，选中后转换为图片的效果不好。选中表格转化为图片的话好像有点问题，你可以调试一下。

ymngyf

zhanglei1371 发表于 2023-8-15 20:11
试试这个,win10刚测试正常:

Sub test()

请问，代码中调节图片尺寸的1.2，只能反复测试出来吗？
我的使用场景通常是1：1替换，针对选区的内容（文字、表格）替换图片，不改变现实效果。

ymngyf

运行报错，不太会改啊

运行时错误’4605'：
此方法或属性无效，因为剪贴板是空的或无效的。

过客fppt

ymngyf 发表于 2023-10-22 10:54
运行报错，不太会改啊

运行时错误’4605'：

在代码最后加一段延时函数：


Sub Wait(t As Single)
    Dim time1!, time2!
    time1 = Timer
    Do
        DoEvents
        time2 = Timer - time1
        If time2 < 0 Then time2 = time2 + 86400        ' 86400=24*3600
    Loop While time2 < t
End Sub


然后在下图中的位置调用它试试：

wdpfox

过客fppt 发表于 2023-10-22 11:32
在代码最后加一段延时函数：

老师，if …+86400语句实现什么功能？

过客fppt

wdpfox 发表于 2023-10-22 11:54
老师，if …+86400语句实现什么功能？

主要是延时，原理我也不懂，这个是batmanbbs老师分享的，可以找他问问。

batmanbbs

wdpfox 发表于 2023-10-22 11:54
老师，if …+86400语句实现什么功能？

当时间为0时，Timer函数返回0，这时timer-timer1为负数，会造成无限循环。因此，timer2需要重新计数（一天24小时86400秒），确保不会造成死循环。

PS：如果感兴趣，可以加入公文排版QQ群（884774600）看一篇<关于对延时函数的小结>的文章