Sub CHINESE_REPL()
'
' CHINESE Macro
'
'
Dim row As Integer
Dim aa(1 To 100) As String
Dim bb(1 To 100) As String
row = 1
aa(1) = "project"
bb(1) = "Items"
aa(2) = "This reporting period"
bb(2) = "\\\Current reporting period"
aa(3) = "last year"
bb(3) = "Previous period"
aa(4) = "Increase or decrease (%)"
bb(4) = "Increase or decrease (%)"
aa(5) = "Total operating income"
bb(5) = "Total operating income"
aa(6) = "operating profit"
bb(6) = "Operating profit"
aa(7) = "The total profit"
bb(7) = "Total profit"

While row <= 42

Selection.find.ClearFormatting
Selection.find.Replacement.ClearFormatting
Selection.find.Replacement.Font.Bold = True
Selection.find.Replacement.Font.Color = wdColorYellow

With Selection.find
.Text = aa(row)
.Replacement.Text = bb(row)
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.find.Execute Replace:=wdReplaceAll
row = row + 1
Wend

End Sub