Input

1. Mezher, T.; Fath, H.; Abbas, Z.; Khaled, A. Techno-Economic Assessment and Environmental Impacts of Desalination Technologies, Desalination, 2011, 266(1–3), 263–273

Need to change.


Output

1. Mezher, T.; Fath, H.; Abbas, Z. and Khaled, A. Techno-Economic Assessment and Environmental Impacts of Desalination Technologies, Desalination, 2011, 266(1–3), 263–273.


insert and before last name and end dot at end of the paragraphs.

Attached Files

	Input Sample.docx (43.1 KB, 5 views)
	Output Sample.docx (13.8 KB, 4 views)

You don't need VBA for this - it can be done with a wildcard Find/Replace, where:
Find = ; ([!;]@. [A-Z][a-z])
Replace = , and \1

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

Thanks Macropod

for end period for the paragraphs.

Find = ([!.])^13
Replace = \1.^p

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