如何在录制的VB代码里加上弹出段落设置界面？

thpwh

如题，如何在我录制的如下代码里，加上能让其弹出段落设置那个界面，让我选择再确定。我的目的就是方便给段落设置弄个快捷键，在WPS里只有通过录制宏才能实现，但录制了又不能弹出界面，只能是一次固定的段落磅值。望前辈高手们帮我看看咋弄，谢谢！


Sub 段落25()
'
' 段落25 Macro
' 宏由 mayn 录制，时间: 2022/07/18
'

'
    With Selection.ParagraphFormat
        .LineSpacing = 2
        .LineSpacing = 25
        .CharacterUnitFirstLineIndent = 2
        .FirstLineIndent = 0
        .CharacterUnitFirstLineIndent = 2
        .FirstLineIndent = 0
        .LineSpacing = 25
        .DisableLineHeightGrid = 0
        .ReadingOrder = wdReadingOrderLtr
        .AutoAdjustRightIndent = -1
        .WidowControl = 0
        .KeepWithNext = 0
        .KeepTogether = 0
        .PageBreakBefore = 0
        .FarEastLineBreakControl = -1
        .WordWrap = -1
        .HangingPunctuation = -1
        .HalfWidthPunctuationOnTopOfLine = 0
        .AddSpaceBetweenFarEastAndAlpha = -1
        .AddSpaceBetweenFarEastAndDigit = -1
        .BaseLineAlignment = wdBaselineAlignAuto
    End With
End Sub

413191246se

Dialogs(wdDialogFormatParagraph).Show

thpwh

413191246se 发表于 2022-10-31 00:11
Dialogs(wdDialogFormatParagraph).Show

您好！具体怎么用的能讲一下吗？我不懂这个，能把VB全部代码发一下，就是能弹出段落设置界面就达到目的了，谢谢！

413191246se

放到想用的地方就行了。

thpwh

413191246se 发表于 2022-11-7 00:24
放到想用的地方就行了。

非常感谢！之前没搞懂怎么用的。今天再试了一下，很给力。解决了WPS没有段落设置快捷键的问题。