As yet, you haven't said whether your poem paragraphs are formatted with a separate paragraph break per line, or just a manual line break.

Assuming your document is formatted with manual line breaks within stanzas and paragraph breaks between them, the following will work:
First, ensure there are two paragraph breaks between stanzas. If there is presently only one, you can use a standard Find/Replace, where:
Find = ^p
Replace = ^p^p
and, for the Find Style, choose the paragraph Style you've applied to the stanzas.
Second use a wildcard Find/Replace, where:
Find = ([!^11^13]{1,}[^11^13])([!^13][!^11^13]{1,}[^11^13])
Replace = \1^t\2
Third, format the Style in which the stanzas are typed with a 1in indent and a tab stop at 1.25in
Fourth, delete the double paragraph breaks if you don't want them, using a standard Find/Replace, where:
Find = ^p^p
Replace = ^p
and, for the Find Style, choose the paragraph Style you've applied to the stanzas.

If you really want a macro for this, simply activate the macro recorder immediately before starting and end it immediately after you've finished.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]