[StevenM[_2_]]

Before you run the macro below, you must create a "Chinese" style in your
document. This style must be Character based and not Paragraph based. The
font of this style should be "SimSun." (It is usually best to place your
cursor on Chinese text before creating this style.)

Once the new style has been created, then run my macro. While it is running,
in the bottom left corner you should see two numbers. The first number is the
number of Characters in your document. The second number gives you the number
the macro is on. This will give you a rough idea how long it will take for
the macro to finish.

This macro is very simple. Your document used the SimSun font for Chinese
characters, and other fonts for other characters. So this macro simply looks
for a character using a SimSun font and changes its style from normal to
"Chinese". After this is done, you can change the font size of the Chinese
style to anything you want.

Sub SimSun2ChineseStyle()
Dim nChars As Long
Dim i As Long
Dim oRange As Range

Set oRange = ActiveDocument.Range
nChars = oRange.Characters.Count
For i = 1 To nChars
Application.StatusBar = nChars & ":" & i
If oRange.Characters(i).Font.Name = "SimSun" Then
oRange.Characters(i).Style = "Chinese"
End If
Next i
End Sub

Steven Craig Miller

"tds" wrote:

My word 2007 docx contain a mixture of english, pinyin and chinese mandarin.
Most of the docx are made up of bits that have been cut and pasted from
various sources. I "select all" then make the whole doc have a standard font
size,usually 9. I now want to increase the font size to 16 for all the
chinese characters only. Anyone help me with how to do this?. Thanks in
advance.
--
dtstevenson