word vba所选文字段前段0行段后1行

您可以使用以下的VBA代码来实现所选文字段前段0行段后1行的效果：

Sub SelectText()
    Dim s As String
    Dim i As Integer
    Dim j As Integer
    
    '获取所选文本的起始位置和长度
    i = Selection.Start
    j = Selection.Length
    
    '将所选文本的前一行和后一行的起始位置和长度分别计算出来
    s = ActiveDocument.Range(i, i).Paragraphs(1).Range.Start
    i = ActiveDocument.Range(s, i).Paragraphs(1).Range.Start
    s = ActiveDocument.Range(i + j, i + j).Paragraphs(1).Range.End
    j = ActiveDocument.Range(i + j, s).Paragraphs(1).Range.End - i - j
    
    '选择所选文本的前一行和后一行
    ActiveDocument.Range(i - 1, i + j).Select
End Sub

运行以上代码后，所选文字段前段0行段后1行的文本就会被选中。

相关问题

word vba所选文字段前位置0行，段后位置1行

您可以使用以下代码将选定文本的段前间距设置为0，段后间距设置为1：

Selection.ParagraphFormat.SpaceBefore = 0
Selection.ParagraphFormat.SpaceAfter = 12 '12磅 = 1行

请注意，此代码将段后间距设置为12磅，这相当于1行的间距。如果您希望将段后间距设置为其他值，请将12更改为所需的值。

word vba取消所选文字段前段后距离

您可以使用以下代码取消所选文字段前段后距离：

Sub RemoveSpacing()
    Selection.ParagraphFormat.SpaceBefore = 0
    Selection.ParagraphFormat.SpaceAfter = 0
    Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
End Sub

这将取消所选文字段前段后距离，并将行距设置为单倍行距。