Word vba同一个宏执行相同代码2次

UARTSuspend();

HalUARTSuspend();
HalUARTSuspend();
HalUARTSuspend();
HalUARTSuspend();
HalUARTSuspend();
HalUARTSuspend();
HalUARTSuspend();
HalUARTSuspend();
HalUARTSuspend();
可以使用一个循环来执行相同的代码两次。下面是一个示例代码：

Sub RunTwice()
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();

  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTS    Dim i As Integer
    For i = 1 To 2
        '在这里写入要执行的代码
   uspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  HalUARTSuspend();
  Hal Next i
End Sub

在这个示例中，代码块会被执行两次，因为循环从1UARTSuspend();
HalUARTSuspend();
HalUARTSuspend();
HalUARTSuspend();

HalUARTSuspend();
到2迭代两次。只需在循环中编写要执行的代码即可。