原创并分享：我的得意代码

zhanglei1371

shangshanlu 发表于 2022-9-15 12:05
学习您的代码受益非浅，原来word文档还可以这么高效处理。苦于没有编程基础，学习理解起来很吃力，努力中！ ...

1. Sub ff()
   
2. Dim sha As InlineShape
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     With Application.FileDialog(3)
   
5.         .Show
   
6.         For Each f In .SelectedItems
   
7.             dic.Add Replace(Mid(f, InStrRev(f, "") + 1), ".jpg", ""), f
   
8.         Next
   
9.     End With
   
10. Dim ta As Table
    
11. Dim cel As Cell
    
12.     For Each ta In ActiveDocument.Tables
    
13.         For Each cel In ta.Range.Cells
    
14.             Debug.Print cel.Range.Text
    
15.             strA = Replace(Replace(Replace(cel.Range.Text, "图片", ""), Chr(13) & Chr(7), ""), Chr(13), "")
    
16.             If dic.Exists(strA) Then
    
17.                 cel.Range.Text = ""
    
18.                 n = cel.Width
    
19.                 Set sha = cel.Range.InlineShapes.AddPicture(dic(strA))
    
20.                 sha.LockAspectRatio = 1
    
21.                 sha.Width = n
    
22. 
    
23.             End If
    
24.         Next
    
25.     Next
    
26. End Sub
    
27. 
    

复制代码

其他问题去QQ群：溢友阁450360985。

shangshanlu

zhanglei1371 发表于 2022-9-16 14:44
其他问题去QQ群：溢友阁450360985。

非常感谢，我试试！！



运行测试显示这一句上有提示，不懂怎么调试，还望指教！

HTbaican

你是懂代码的

xinhairen999

感谢分享，下载试用。

my80

谢谢楼主分享

漫不经心14

留个爪印标记一下

一生平安4017

zhanglei1371 发表于 2013-8-21 21:15
6. 每行插入表格n个图：这段代码也是我非常满意的代码之一。作用就是将选中的多个图像以表格+文件名的形式 ...

张老师，如果插入图片不需要表格，只是图片+下方图片的名称，要怎么写VBA啊？谢谢

zhanglei1371

一生平安4017 发表于 2023-10-22 21:48
张老师，如果插入图片不需要表格，只是图片+下方图片的名称，要怎么写VBA啊？谢谢

在群里发附件，或者自己修改下代码，很简单的去掉表格部分代码就可以了

小辨子

能做一个批量修改目录标题字号、字体及行距吗？

小辨子

还有就是能否删除word表里的空白行？如果不行，请再写一个删除表格的空白行谢谢，辛苦啦！