只编辑所选范围内的表格

witkeylaw

选择一节内容，包括有N个表格和N段文字，怎样可以像选择这些表格后，进行居中、单倍行距等操作。

413191246se

楼主，排版是个系统工程，不要单独选择一节来排版，如果会用宏，可以试试用  VBA 来排版。

witkeylaw

特殊的情况，不需要对全部表操作。

413191246se

1. Sub Table_Format_Selection()
   
2.     Dim t As Table
   
3.     If Selection.Type = wdSelectionIP Then MsgBox "No-Select!", 0 + 16: End
   
4.     For Each t In Selection.Tables
   
5.         With t.Range.ParagraphFormat
   
6.             .Alignment = wdAlignParagraphCenter
   
7.             .Space1
   
8.         End With
   
9.     Next
   
10. End Sub
    

复制代码

witkeylaw

413191246se 发表于 2020-3-20 00:32

对，就是这个意思。非常感谢。