主页 / computer / 问题 / 1660427
Accepted
Piecevcake
Asked: 2021-07-03 17:10:20 +0800 CST

Word VBA悬挂缩进多个不同缩进的段落，不移动段落

  • 772

我正在尝试编写一个宏来将悬挂缩进应用于选择中的所有段落，相对于第一行。

该宏需要处理多个不同的段落，包括未编号的段落，以及具有不同缩进的不同级别的 ListNum 段落。

Selection.ParagraphFormat.TabHangingIndent 1仅在选择相同类型的段落时才有效。

如果所选内容包含不同的段落缩进，则所选内容中所有段落的缩进将更改为与所选内容顶部的段落相同。

有没有办法在不移动段落位置的情况下缩进第一行下面的行？

我在网上找不到答案。

样本选择（黄线应缩进）： 样品选择

混合选择的结果： 混合选择的结果

microsoft-word macros

1 个回答

  1. Best Answer

    我解决了这个问题 - 以下为混合 para 类型添加了悬挂缩进，其中TabHangingIndent丢失了 para 缩进。（除了表格中的 paras，这 3. 不起作用。）

    Sub HangingIndentMIXEDParaTypes_KeepsOriginalParaPositions()
'use where TabHangingIndent loses paragraphs position
    '1.===== CHANGE DEFAULT TAB STOPS TO DESIRED HANGING INDENT SIZE
        ActiveDocument.DefaultTabStop = CentimetersToPoints(0.75)
    
    '2.===== "hanging para" = unindent all 1st lines! (Paragraph dialog box)
        Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(-0.75)

    '3.===== indent whole paras moves 1st lines to original positions, keeps hanging indents :)
        Selection.Paragraphs.INDENT
        
    '4.===== RESTORE DEFAULT PARA STOPS
        ActiveDocument.DefaultTabStop = CentimetersToPoints(1.27)
    
    End Sub
    • 0

相关问题