Wow, thanks! I just get an error on the line ".Execute Replace:=wdReplaceAll" (the first one): error 5560 (invalid search criterium). Could it have to do with the "[]{2,4}"? I changed it to " " (literally four spaces) and added two lines for the double spaces (.text = " " and .execute replace:wdReplaceAll)

Works great, thanks!