VBA 参考库

使用VBA（Visual Basic for Applications）可以轻松地编写自动化任务和宏，并在Microsoft Office套件中的各种应用程序中实现自定义功能。VBA提供了一种简单而强大的编程语言，可以与Excel、Word、PowerPoint等应用程序无缝集成，以实现自动化处理和数据分析等任务。

vba
Sub 计算总和()
    Dim 总和 As Double
    Dim 单元格 As Range
    
    总和 = 0
    
    For Each 单元格 In Range("A1:A10")
        总和 = 总和 + 单元格.Value
    Next 单元格
    
    Range("B1").Value = 总和
End Sub

vba
Sub 批量替换()
    Dim 查找内容 As String
    Dim 替换内容 As String
    
    查找内容 = "原文本"
    替换内容 = "新文本"
    
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = 查找内容
        .Replacement.Text = 替换内容
        .Execute Replace:=wdReplaceAll
    End With
End Sub

vba
Sub 插入图片()
    Dim 图片路径 As String
    Dim 幻灯片 As Slide
    
    图片路径 = "C:\图片.jpg"
    Set 幻灯片 = ActivePresentation.Slides(1)
    
    幻灯片.Shapes.AddPicture 图片路径, False, True, 100, 100, 400, 300
End Sub