Reload method example

Private Sub Reload_Example()

     Dim b As Block

     Set b = ActiveDocument.Blocks(1)

     b.Reload

     MsgBox "Blocks(1) has been reloaded."

End Sub