WORD调整不同表格的尺寸

Tobin_Zhang

以下为本人自己录制的WORD宏，如何修改，才能将光标之下的所有表格宽度都设置成7inch且居中！


Sub TableSize()
'
' TableSize Macro
'
'
    Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
    Selection.Tables(1).PreferredWidthType = wdPreferredWidthPoints
    Selection.Tables(1).PreferredWidth = InchesToPoints(7)
End Sub

413191246se

略。。。。

daibao88

光标之下的所有表格，是光标选中的表格还是从光标位置到文档结尾的所有表格？

Tobin_Zhang

daibao88 发表于 2019-6-6 11:02
光标之下的所有表格，是光标选中的表格还是从光标位置到文档结尾的所有表格？

从光标位置到文档结尾的所有表格，请问宏应该如何编写？

Tobin_Zhang

daibao88 发表于 2019-6-6 11:02
光标之下的所有表格，是光标选中的表格还是从光标位置到文档结尾的所有表格？

从光标位置到文档结尾的所有表格，表格未选中，且表格与表格之间有空格，请问宏该如何编写？

Tobin_Zhang

413191246se 发表于 2019-6-6 02:28

非常感谢，我需要仅仅改变光标之下的所有未选择表格，光标之上的所有表格不做改变，请问宏该如何修改？

daibao88

借用楼上代码
Sub ResizeAllTables()
'设置所有表格宽度
'循环遍历所有表格
Dim myrange As range
Set myrange = ActiveDocument.range(Selection.Start, ActiveDocument.range.End)
    Dim t As Table
    For Each t In myrange.Tables
        With t
            With .range.Rows
                .WrapAroundText = False '取消文字环绕
                .Alignment = wdAlignRowCenter '居中
            End With
            .PreferredWidthType = wdPreferredWidthPoints
            .PreferredWidth = InchesToPoints(7)
        End With
    Next
End Sub

413191246se

楼上朋友，你好！——没必要增加一个变量，用 Selection 代替 ActiveDocument 即可：

1. Sub ResizeAllTables()
   
2. '设置所有表格宽度/循环遍历所有表格(选定区域)
   
3.     Dim t As Table
   
4.     With Selection
   
5.         .EndKey 6, 1
   
6.         For Each t In .Tables
   
7.             With t
   
8.                 With .Range.Rows
   
9.                     .WrapAroundText = False '取消文字环绕
   
10.                     .Alignment = wdAlignRowCenter '居中
    
11.                 End With
    
12.                 .PreferredWidthType = wdPreferredWidthPoints
    
13.                 .PreferredWidth = InchesToPoints(7)
    
14.             End With
    
15.         Next
    
16.     End With
    
17. End Sub

复制代码

Tobin_Zhang

daibao88 发表于 2019-6-7 11:02
借用楼上代码
Sub ResizeAllTables()
'设置所有表格宽度

宏A：调整

WORD中图片尺寸并删除.JPG

Sub Adjust_ImageSize()
'
' Adjust_ImageSize Macro
'
'
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
With ActiveDocument.InlineShapes(i)
.Height = 2.55 * 2.54 * 28.35
.Width = 3.39 * 2.54 * 28.35
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderTop).LineWidth = wdLineWidth050pt
.Borders(wdBorderTop).Color = wdColorAutomatic
End With
Next i
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ".JPG"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
End Sub


宏B：调整光标后表格尺寸
Sub Resize_AllTables()
'????????????
'?????????????
Dim myrange As Range
Set myrange = ActiveDocument.Range(Selection.Start, ActiveDocument.Range.End)
    Dim t As Table
    For Each t In myrange.Tables
        With t
            With .Range.Rows
                .WrapAroundText = False '??????????
                .Alignment = wdAlignRowCenter '????
            End With
            .PreferredWidthType = wdPreferredWidthPoints
            .PreferredWidth = InchesToPoints(7)
        End With
    Next
End Sub

您好！宏A是我自己录制的一个修改WORD中图片尺寸并删除.JPG的宏，目前我想将宏A与宏B合并，期望效果如下：修改光标后表格尺寸为7inch，光标后图片尺寸为Height = 2.55 * 2.54 * 28.35   Width = 3.39 * 2.54 * 28.35，删除光标之后的".JPG“，光标仍停留在最初位置！当图片较多时，WORD修改图片尺寸的宏有些卡，不知道是否是由于程序过于臃肿引起的，请高手指导一下宏A与宏B应该如何简化程序进行合并/修改，谢谢！

Tobin_Zhang

413191246se 发表于 2019-6-7 13:19
楼上朋友，你好！——没必要增加一个变量，用 Selection 代替 ActiveDocument 即可：

非常感谢，由于楼上的程序运行后，未改变光标位置，未选择光标后的内容，所以本人觉得他的更完美！楼主如果用selection修改一下程序或许也非常完美，谢谢！