Public Sub Reload()
Dim b As Block
Set b = ActiveDocument.Blocks(1)
b.Reload
MsgBox "Blocks(1) has been reloaded."
End Sub
Block Collection | Block Members