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

过客fppt

chsevenfive 发表于 2023-9-15 10:53
你好  写好的宏 可以分享一下吗

1. <blockquote>Option Explicit

复制代码

代码如上所示:

但是只能用于这个类型的公式的转化：

其他的公式不够正确，还不知道如何处理

过客fppt

过客fppt 发表于 2023-9-15 16:15
代码如上所示:

但是只能用于这个类型的公式的转化：

不知道为什么代码总是粘贴不出来

Option ExplicitPublic isyunxing As Boolean
Sub EQ公式转化为LaTeX公式规范上标()
    If isyunxing = True Then        GoTo line1    End If        Dim rng As Range    Set rng = IIf(Len(Selection.Range.Text) <= 1, ActiveDocument.Content, Selection.Range)' 显示域代码    rng.Fields.ToggleShowCodes        Call 全部替换("[0-9]", "#s#up3(^&)", True, True)    Call 全部替换("#", "\", False, True)    rng.Fields.ToggleShowCodes
    MsgBox "第一步已完成，请依次次进行以下操作后，再运行代码：" & vbCrLf & _       "1. 用MathType转化公式" & vbCrLf & _       "2. 用MathType切换TeX" '& vbCrLf & vbCrLf & _    isyunxing = True    Exit Subline1:    Call 全部替换("\[", "$", False)    Call 全部替换("\]", "$", False)    Call 全部替换("eth", "pi", False)    MsgBox "第二步完成，请进行以下操作：" & vbCrLf & _       "1、用MathType切换TeX"    isyunxing = False    MsgBox "第三步，请最后一次进行以下操作：" & vbCrLf & _       "1、用MathType切换TeX"
End SubFunction 全部替换(原文字, 替换为, 通配符, Optional ByVal 上标 As Boolean = False)
' 宏由 ZPL 录制，时间: 2022/12/07
Dim rng As Range
    Set rng = IIf(Len(Selection.Range.Text) <= 1, ActiveDocument.Content, Selection.Range)
    rng.Find.ClearFormatting
    With rng.Find
        .Font.Superscript = 上标
        .Text = 原文字
        .Forward = True
        .Wrap = wdFindStop 'Wrap = wdFindAsk(找到会弹出提示框)'Wrap = wdFindStop(完成替换会停止)
        .MatchCase = False 'True 指定要查找的文本应区分大小写。
        .MatchByte = False   '搜索期间区分全角和半角字母或字符，则此属性返回 True ;否则返回 False 。 将属性值设置为 True 或 False 以启用或禁用该功能。
        .MatchWildcards = 通配符 '通配符开关
        .MatchWholeWord = False '真 要查找只整个单词，全字匹配。
        .MatchFuzzy = False '确定 Microsoft Word 在搜索过程中是否对日语文本使用非特定搜索选项
        .Replacement.Text = 替换为
    End With
    rng.Find.Execute Replace:=wdReplaceAll
    rng.Find.Replacement.Text = 替换为
    rng.Find.ClearFormatting

End Function

batmanbbs

过客fppt 发表于 2023-9-15 16:18
不知道为什么代码总是粘贴不出来

Option ExplicitPublic isyunxing As Boolean

其实可以更智能一些，识别code中的文字，如果是上标，修改成EQ域的up开关，如果是下标，修改成do开关，包括+-，pi都可以一并修改了

过客fppt

batmanbbs 发表于 2023-9-15 17:37
其实可以更智能一些，识别code中的文字，如果是上标，修改成EQ域的up开关，如果是下标，修改成do开关，包 ...

batmanbbs 老师说得非常正确，比如下面这个图片，就是因为把EQ公式code之外的下标都替换了导致的情况：

附件中有我最新的代码，请老师指点！

过客fppt

过客fppt 发表于 2023-9-15 19:25
batmanbbs 老师说得非常正确，比如下面这个图片，就是因为把EQ公式code之外的下标都替换了导致的情况：
...

只对公式内部进行查找替换，优化了Eq公式之外的上下标被替换的问题。

诡天翼1988

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

Sub test()

之前还好好的，重装了系统，再测试的时候，就不能用了，具体的是，只删除了选中的内容，没生成图片，求大神教一下。

诡天翼1988

过客fppt 发表于 2023-8-16 09:41
非常感谢 zhanglei1371 老师的帮助，这次运行.exe会弹窗提示成功了，但是在Word中还是没有找到对应 ...

我这也是这个问题，使用管理权限在注册，在vba中就出现了。

cuteword

最早我也尝试过转图片，但是有很多限制，eq直接转omath才是王道，缺点之一是不能转化学公式，不过这种情况比较少，效果展示：https://aidocx.com/otherfunc/upload/2

过客fppt

cuteword 发表于 2023-10-16 20:54
最早我也尝试过转图片，但是有很多限制，eq直接转omath才是王道，缺点之一是不能转化学公式，不过这种情况 ...

谢谢，但是感觉转化后在预览界面发现有点奇怪，一些公式也没有显示出来

原文档：

转化后：

cuteword

注册个账号，可以下载下来看，预览会有些问题