'Iterate through all story types in the current document
For Each rngStory In ActiveDocument.StoryRanges
'Iterate through all linked stories
Do
With rngStory.Find
.Text = "<agencyAddress>"
.Replacement.Text = "<csaAddressLine1>"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
With rngStory.Find
.Text = "<agencyAddressLine1>"
.Replacement.Text = "<csaAddressLine1>"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
'Get next linked story (if any)
Set rngStory = rngStory.NextStoryRange
Loop Until rngStory Is Nothing
Next