.Text = ".;" .Replacement.Text = "." .Execute Replace:=wdReplaceAll
.Text = "^l" .Replacement.Text = "^p" .Execute Replace:=wdReplaceAll