word vba删除选地区与空行

以下是可以删除选定区域中的空行的VBA代码：

Sub DeleteBlankLines()
    Dim r As Range
    Dim i As Long

    Set r = Selection

    For i = r.Rows.Count To 1 Step -1
        If WorksheetFunction.CountA(r.Rows(i)) = 0 Then
            r.Rows(i).Delete
        End If
    Next i
End Sub

这段代码会循环遍历选定区域中的每一行，如果发现该行中所有单元格都为空，则删除该行。如果你只想删除整个行都为空的行，可以在`If`语句中使用`WorksheetFunction.CountA(r.Rows(i)) = r.Rows(i).Columns.Count`进行判断。

如果你想要删除选定区域中的某些列，可以在循环中对`r.Rows(i)`进行修改，例如`r.Rows(i).Delete Shift:=xlToLeft`可以删除整个行，并将右侧的列向左移动，以填补删除的空白。

相关问题

word vba删除选区空行

可以使用以下代码删除选定区域中的空行：

Sub DeleteEmptyRows()
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
End Sub

请注意，这段代码将删除所有空行，而不仅仅是选定区域中的空行。如果要仅删除选定区域中的空行，请使用以下代码：

Sub DeleteEmptyRowsInSelection()
    Dim cell As Range
    For Each cell In Selection.Cells
        If WorksheetFunction.CountA(cell.EntireRow) = 0 Then
            cell.EntireRow.Delete
        End If
    Next cell
End Sub

这段代码将遍历选定区域中的每个单元格，并检查其所在行是否为空。如果行为空，则删除该行。

word vba所选文字加粗

可以使用以下代码来实现Word VBA中所选文字加粗的功能：

Selection.Font.Bold = True

将这段代码放置在需要实现加粗操作的事件中，例如按钮点击事件或快捷键事件等。当用户选中文字后，点击按钮或按下快捷键即可将所选文字加粗。