☰

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

tag-icon • tag-icon microsoft-word macros indent
Word VBA 悬挂缩进多个不同缩进的段落，而不移动段落

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

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

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

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

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

我在网上找不到答案。

样本选取（黄线需缩进）： 样本选择

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

答案1

我解决了这个问题 - 以下内容为混合段落类型添加了悬挂缩进，而TabHangingIndent段落缩进则丢失了。（表格中的段落除外，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

相关内容