Document.ConsecutiveHyphensLimit (Word)

Returns or sets the maximum number of consecutive lines that can end with hyphens. Read/write.

If the ConsecutiveHyphensLimit property is set to 0 (zero), any number of consecutive lines can end with hyphens.

With Documents("MyReport.doc") 
 .AutoHyphenation = True 
 .ConsecutiveHyphensLimit = 2 
End With