想法能实现吗，word跳过图片表格和相对应的行VBA

413191246se

补：如果每段只有一张图片，图片置左（顶格），好吗？题注也置左？——不如居中好看。

exln

413191246se 发表于 2020-12-6 13:31
楼主，使用我的公文排版宏后，再应用下面的宏（仅供参考，可自行修改）：

这个代码运行之后，还是段前格式没有改变，图所示

413191246se

楼主，前提是使用我的《公文排版》宏后，应用上面的宏。你全文排版，用哪个宏？（不用我的自动排版宏吗？）

413191246se

在全文排版中，全选后，只须 Selection.ClearFormatting 即可达到你的要求。

413191246se

楼主，如果你没有自己特殊的 VBA 代码的话，建议先用我的《自动排版宏》排版，然后，再设置图片格式。
请见链接：http://club.excelhome.net/thread-1558189-1-1.html

exln

413191246se 发表于 2020-12-6 22:38
楼主，如果你没有自己特殊的 VBA 代码的话，建议先用我的《自动排版宏》排版，然后，再设置图片格式。
请 ...

好的，非常谢谢你，我仔细学习研读一下你的代码！

wdpfox

413191246se 发表于 2020-12-6 13:31
楼主，使用我的公文排版宏后，再应用下面的宏（仅供参考，可自行修改）：

请老师检查，好像If i = 1 And .Text Like "*[!。：；，、！？…—.:;,!?]?" Then有误。



test.rar (141.24 KB, 下载次数: 11)

2020-12-11 13:38 上传

点击文件名下载附件

413191246se

wdpfox，我测试无误呀！你再试试，或指出哪个有误？

wdpfox

在我的电脑上，倒数第二段，有无逗号都被处理了。代码的意思是排除有逗号的段落吧，你再试试，这种情况出现不？

413191246se

wdpfox：我现在用的代码是公文排版后（用我的公文排版宏），再用下面的宏处理图片（及它下面的段落，没有标点是题注，有标点是正常段落），你用下面的宏试试（我也是用下面的宏测试的）：

1. Sub aaaa_Skip_Pic_Table()
   
2.     Dim i&
   
3.     With Selection
   
4.         .HomeKey 6
   
5.         Do
   
6.             .Paragraphs(1).Range.Select
   
7.             If .End = ActiveDocument.Content.End Then Exit Do
   
8.             If .Information(12) Then .Tables(1).Range.Next(4, 1).Select
   
9.             If .Next(4, 1).Information(12) Then GoTo sk
   
10.             
    
11.             If .InlineShapes.Count = 0 Then
    
12.                 If i = 1 And .Text Like "*[!。：；，、！？…—.:;,!?]?" Then i = 0: GoTo sk
    
13.                 .Font.ColorIndex = wdBlue
    
14.                 .ParagraphFormat.CharacterUnitFirstLineIndent = 2
    
15.             Else
    
16.                 i = 1
    
17.             End If
    
18. sk:
    
19.             .Move 4
    
20.         Loop
    
21.         .HomeKey 6
    
22.     End With
    
23. End Sub

复制代码