VBA：一个Word VBA编程的例子

VBA编写窗口中，打开视图-本地窗口，可以查看变量值。

单步调试宏按F8键

Sub test()

    Dim orng As Range
    gr = 1
    
    With Word.ActiveDocument
        Do
            .Paragraphs(1).Range.Select  '选种文档第一段
            
            Selection.Cut  '剪切
            
            Set orng = .GoTo(wdGoToHeading, wdGoToAbsolute, gr)
            orng.Select  '鼠标移动到第gr个标题
            
            Selection.MoveDown Unit:=wdLine, Count:=1  '鼠标指针往下移动1行
            
            Selection.PasteAndFormat (wdListDontMerge)  '粘贴
            
            gr = gr + 1
        Loop Until gr > 5
    End With
End Sub