VBA 中“with”子句的恼人问题

使用 VBA 中的 "With" 子句可以简化代码编写，提高代码的可读性和效率。"With" 子句用于在多个属性或方法调用中引用同一个对象，而无需每次都重复输入对象的名称。在使用 "With" 子句时，可以连续调用该对象的属性和方法，并且不需要重复引用对象名称。

vba
Sub UpdateCell()
    With ThisWorkbook.Worksheets("Sheet1").Range("A1")
        .Value = "Hello, World!" ' 设置单元格的值
        .Font.Bold = True ' 设置字体为粗体
        .Font.Color = RGB(255, 0, 0) ' 设置字体颜色为红色
    End With
End Sub

vba
Sub FormatText()
    With ActiveDocument.Content.Paragraphs(1).Range.Font
        .Bold = True ' 设置字体为粗体
        .Italic = True ' 设置字体为斜体
        .Underline = wdUnderlineDouble ' 设置字体下划线为双下划线
        .Size = 14 ' 设置字体大小为14磅
        .Color = RGB(0, 0, 255) ' 设置字体颜色为蓝色
    End With
End Sub