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

exln · 发表于 2020-11-27 21:32

本帖最后由 exln 于 2020-11-28 12:46 编辑

Windows 10；
word 2016;代码
Dim Para As Paragraph
  For Each  Para In ActiveDocument.Paragraphs
With  Para.Range
If .ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText Then
with.Font
   .NameFarEast = "宋体"
      .Name= "Times New Roman"
      .Size =12
      .Bold = False
end with
with .ParagraphFormat
   .LineSpacingRule = wdLineSpace1pt5       '行距
   .CharacterUnitFirstLineIndent = 2             '首行缩进2ch
      .LeftIndent = CentimetersToPoints(0)
   .RightIndent = CentimetersToPoints(0)
      .SpaceBefore =0
使用以上代码，结果图片，表格内容，全部首行缩进，图标，表格标题也全部首行缩进。
图中所示，如何在处理word正文的时候，将图片以及图片的下一行；表格的内容以及表格的上一行文字排除在外。只对其他的正文部分进行处理。也就是遍历的时候，对表格和图片以及对应一行跳过。图片标题，表格标题另行设置字体字号，求高人的VBA代码？？？

zhanglei1371 · 发表于 2020-11-29 12:23

exln · 发表于 2020-12-1 23:53

zhanglei1371 发表于 2020-11-29 12:23

你真帅，我试一下

exln · 发表于 2020-12-2 21:05

zhanglei1371 发表于 2020-11-29 12:23

with para.range
If .InlineShapes.Count = 0 And .Tables.Count > 0 And Para.Next.Range.Tables.Count = 0 And .ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText Then
、、、、内容
上面这一句总是报错

413191246se · 发表于 2020-12-4 00:33

楼主，下面代码仅供参考（不过我建议：应该先整体排版，再单独处理表格和图片的缩进问题）：

Sub aaaa_Skip_Pic_Table()
Dim i&
With Selection
.HomeKey 6
Do
.Paragraphs(1).Range.Select
If .End = ActiveDocument.Content.End Then Exit Do
If .Information(12) Then .Tables(1).Range.Next(4, 1).Select
If .Next(4, 1).Information(12) Then GoTo sk
If .InlineShapes.Count = 0 Then
If i = 1 And .Text Like "*[!??????????????????.:;,!?]?" Then i = 0: GoTo sk
.Font.ColorIndex = wdBlue
.ParagraphFormat.CharacterUnitFirstLineIndent = 2
Else
i = 1
End If
sk:
.Move 4
Loop
.HomeKey 6
End With
End Sub

复制代码

exln · 发表于 2020-12-5 19:19

413191246se 发表于 2020-12-4 00:33
楼主，下面代码仅供参考（不过我建议：应该先整体排版，再单独处理表格和图片的缩进问题）：

大哥和我的想法像极了，我也是这么做的，整体排版是第一步，图，表标题是第二部，我这样弄的呢，我试下你的代码，灰常感谢

exln · 发表于 2020-12-5 19:20

413191246se 发表于 2020-12-4 00:33
楼主，下面代码仅供参考（不过我建议：应该先整体排版，再单独处理表格和图片的缩进问题）：

弱弱的问一句，这句是啥意思呢
If i = 1 And .Text Like "*[!??????????????????.:;,!?]?" Then

413191246se · 发表于 2020-12-5 22:16

楼主，整体排版，可以试试我的自动排版宏；I=1意思是本段落含有图片，但该段落的下一段落，如果是不含标点的话，则。。。

exln · 发表于 2020-12-5 23:35

413191246se 发表于 2020-12-5 22:16
楼主，整体排版，可以试试我的自动排版宏；I=1意思是本段落含有图片，但该段落的下一段落，如果是不含标点 ...

win 10;
word 2016,
我想排版图片，图片初始格式是图一，目标格式是图2，最终格式是图三，请问怎么写代码呀？我的代码如下，如需要重复执行2次才可以完成，不知道撒情况
Sub FormatPics()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
Application.ScreenUpdating = False
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoTrue       '锁定纵横比
iSha.Width = CentimetersToPoints(6)       '宽5CM，以宽度为基准，定义高度
With iSha.Range.ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle       '行距
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitFirstLineIndent = 0
      .LeftIndent = CentimetersToPoints(0)
   .RightIndent = CentimetersToPoints(0)
   .Alignment = wdAlignParagraphLeft
      .SpaceBefore = 0
      .SpaceBeforeAuto = False
      .SpaceAfter = 0
   .SpaceAfterAuto = False
End With
iSha.Select
Selection.MoveDown unit:=wdLine, Count:=1 '将光标移到表格上一行
Selection.HomeKey unit:=wdLine
Selection.EndKey unit:=wdLine, Extend:=wdExtend
With Selection.Font
   .NameFarEast = "宋体"
      .Name = "Times New Roman"
      .Size = 8
      .Bold = False
End With
With Selection.ParagraphFormat
   .LineSpacingRule = wdLineSpace1pt5 '行距
   .FirstLineIndent = CentimetersToPoints(0)
   .Alignment = wdAlignParagraphCenter
   .CharacterUnitFirstLineIndent = 0
      .LeftIndent = CentimetersToPoints(0)
   .RightIndent = CentimetersToPoints(0)
      .SpaceBefore = 0
      .SpaceBeforeAuto = False
      .SpaceAfter = 0
   .SpaceAfterAuto = False
End With
End If
Next
Application.ScreenUpdating =true
End Sub

图1

图2

图3

413191246se · 发表于 2020-12-6 13:31

楼主，使用我的公文排版宏后，再应用下面的宏（仅供参考，可自行修改）：

Sub aaaa_Pic_Table_TypeSetting()
Dim i&
With Selection
.HomeKey 6
Do
.Paragraphs(1).Range.Select
If .End = ActiveDocument.Content.End Then Exit Do
If .Information(12) Then .Tables(1).Range.Next(4, 1).Select
If .Next(4, 1).Information(12) Then GoTo sk
If .InlineShapes.Count = 0 Then
If i = 1 And .Text Like "*[!。：；，、！？…—.:;,!?]?" Then
i = 0
With .Font
.NameFarEast = "楷体"
.NameAscii = "Times New Roman"
.ColorIndex = wdRed
.Bold = True
End With
GoTo sk
End If
.Font.ColorIndex = wdBlue
.ParagraphFormat.CharacterUnitFirstLineIndent = 2
Else
i = 1
With .ParagraphFormat
.CharacterUnitFirstLineIndent = 0
.FirstLineIndent = CentimetersToPoints(0)
.Space1
End With
End If
sk:
.Move 4
Loop
.HomeKey 6
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

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