Sub
ReplaceTextWithSpaceBoth()
With
ActiveDocument.Content.Find
.Text =
" Er "
.Replacement.Text =
" Sie "
.Execute Replace:=wdReplaceAll, Forward:=
True
, Wrap:=wdFindContinue
End
With
With
ActiveDocument.Content.Find
.Text =
" er "
.Replacement.Text =
" sie "
.Execute Replace:=wdReplaceAll, Forward:=
True
, Wrap:=wdFindContinue
End
With
End
Sub
Sub
ReplaceTextWithSpaceLeft()
With
ActiveDocument.Content.Find
.Text =
" Er^p"
.Replacement.Text =
" Sie^p"
.Execute Replace:=wdReplaceAll, Forward:=
True
, Wrap:=wdFindContinue
End
With
With
ActiveDocument.Content.Find
.Text =
" er^p"
.Replacement.Text =
" sie^p"
.Execute Replace:=wdReplaceAll, Forward:=
True
, Wrap:=wdFindContinue
End
With
End
Sub
Sub
ReplaceTextWithSpaceRight()
With
ActiveDocument.Content.Find
.Text =
"^pEr "
.Replacement.Text =
"^pSie "
.Execute Replace:=wdReplaceAll, Forward:=
True
, Wrap:=wdFindContinue
End
With
With
ActiveDocument.Content.Find
.Text =
"^per "
.Replacement.Text =
"^psie "
.Execute Replace:=wdReplaceAll, Forward:=
True
, Wrap:=wdFindContinue
End
With
End
Sub
Sub
ReplaceTextWithDotRight()
With
ActiveDocument.Content.Find
.Text =
"Er."
.Replacement.Text =
"Sie."
.Execute Replace:=wdReplaceAll, Forward:=
True
, Wrap:=wdFindContinue
End
With
With
ActiveDocument.Content.Find
.Text =
"er."
.Replacement.Text =
"sie."
.Execute Replace:=wdReplaceAll, Forward:=
True
, Wrap:=wdFindContinue
End
With
End
Sub
Sub
ReplaceTextWithDotRightAndParagraphLeft()
With
ActiveDocument.Content.Find
.Text =
"^pEr."
.Replacement.Text =
"^pSie."
.Execute Replace:=wdReplaceAll, Forward:=
True
, Wrap:=wdFindContinue
End
With
With
ActiveDocument.Content.Find
.Text =
"^per."
.Replacement.Text =
"^psie."
.Execute Replace:=wdReplaceAll, Forward:=
True
, Wrap:=wdFindContinue
End
With
End
Sub