It shouldn't matter that there's a trailing space after the closing quote. If you want to deal with other punctuation characters, you could use a wildcard Find/Replace where:
Find = [ ^s]"([.,;:\?\!])
Replace = "\1
then:
Find = "
Replace = "

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