word公式文本能否替换成图片

yuanfuyong

各位大侠，诚心求助，word公式能实现这样的替换吗？直接替换或VBA都可以。

liuhoubin168

2步：
复制公式后选择性粘贴：粘贴为增强型图元文件
再复制刚粘贴的图片，粘贴为图片

chendeyan126

感觉批量替换应该实现不了。

yuanfuyong

liuhoubin168 发表于 2019-3-7 10:54
2步：
复制公式后选择性粘贴：粘贴为增强型图元文件
再复制刚粘贴的图片，粘贴为图片

你好，没有找到增强型图元文件的选项呢，只有保留原格式，合并格式，只保留文本

yuanfuyong

chendeyan126 发表于 2019-3-7 11:44
感觉批量替换应该实现不了。

估计是不行

zhanglei1371

粗略写了下。不完美，位置会出错。仅做测试。

1. Sub fff()
   
2. Dim sh As OMath, r As Range, sha As Shape
   
3.     For Each sh In ActiveDocument.Range.OMaths
   
4.         sh.Range.CopyAsPicture
   
5.         T = Timer
   
6.         Do
   
7.             DoEvents
   
8.         Loop While Timer - T < 0.1
   
9.         Set r = ActiveDocument.Range(sh.Range.Start, sh.Range.End)
   
10.         r.EndOf (4): r.End = r.End - 1
    
11.         r.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile
    
12.         Set sha = ActiveDocument.Shapes(ActiveDocument.Shapes.Count)
    
13.         sha.PictureFormat.CropLeft = 180
    
14.         sha.PictureFormat.CropRight = 180
    
15.         sha.PictureFormat.CropTop = 5
    
16.         sha.PictureFormat.CropBottom = 10
    
17.     Next
    
18. End Sub

复制代码

chendeyan126

zhanglei1371 发表于 2019-3-7 17:22
粗略写了下。不完美，位置会出错。仅做测试。

感觉不是楼主想要的效果？

yuanfuyong

zhanglei1371 发表于 2019-3-7 17:22
粗略写了下。不完美，位置会出错。仅做测试。

是的，希望能帮我继续改进下，替换后的图片也不是我给的那种，谢谢你的回答