j'avais trouvé une macro qui permettait d'écrire en pinyin (version
phonétique du chinois) elle marchait sous word 97 et 2000 mais ne fonctionne
pas sous word 2003...
qqun saurait il pourquoi elle ne marche plus ???
merci d'avance
voici cette macro :
Sub Add_Tones()
' Add_Tones
'
' Created June 12, 1998 by Erik Peterson
' Based on Slippery Sinifier
' Created May 20, 1997 by Bruce Rusk
'
' Uses Chinese Pinyin Fonts developed by C.C. Cheng
' for use with Chinese Online Reading Assistant Project
' available at http://www.lang.uiuc.edu/chinese/reading/tools/
' Freely distributable and usable with any
' modification whatever.
'
Dim strSearchText(110) As String
Dim strPYTone(110) As String
Dim count As Integer
' These arrays hold the codes to be searched for
Dim strPYFont As String
' Name of the Chinese font. Modify if desired; may be
' linked to a user form &c.
strPYFont = "Chinese Pinyin"
Application.ScreenUpdating = False
' The screen would get too messy if we let it redraw. It
' would also slow down operation.
' Most characters fall in this range
' (Big-5 leading bytes are Hex A1-FE)
strSearchText(1) = "ang1": strPYTone(1) = "`ng"
strSearchText(2) = "ang2": strPYTone(2) = "1ng"
strSearchText(3) = "ang3": strPYTone(3) = "2ng"
strSearchText(4) = "ang4": strPYTone(4) = "3ng"
With Selection.Find
' Search only in the selected text; could be
' modified to search entire document.
.ClearFormatting
.MatchWildcards = False
.MatchCase = True
.Font.Name = "Times New Roman"
.Text = strSearchText(count)
' Search for the concatenated search text.
With .Replacement
.ClearFormatting
.LanguageID = wdNoProofing
.Font.Name = strPYFont
.Text = strPYTone(count)
End With
.Execute replace:=wdReplaceAll
' Replace throughout the selected area
End With
Next
' be polite and clear the search dialog
With Selection.Find
.ClearFormatting
.MatchWildcards = False
.Text = ""
With .Replacement
.ClearFormatting
.Text = ""
End With
End With
Application.ScreenUpdating = True
' Turn display back on
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pat rednef
Bonjour,
Forum Excel, a essayer dans le forum Word .......
Salutations
Bonjour,
j'avais trouvé une macro qui permettait d'écrire en pinyin (version phonétique du chinois) elle marchait sous word 97 et 2000 mais ne fonctionne pas sous word 2003... qqun saurait il pourquoi elle ne marche plus ???
merci d'avance
voici cette macro :
Sub Add_Tones()
' Add_Tones ' ' Created June 12, 1998 by Erik Peterson ' Based on Slippery Sinifier ' Created May 20, 1997 by Bruce Rusk ' ' Uses Chinese Pinyin Fonts developed by C.C. Cheng ' for use with Chinese Online Reading Assistant Project ' available at http://www.lang.uiuc.edu/chinese/reading/tools/
' Freely distributable and usable with any ' modification whatever. '
Dim strSearchText(110) As String Dim strPYTone(110) As String Dim count As Integer
' These arrays hold the codes to be searched for
Dim strPYFont As String ' Name of the Chinese font. Modify if desired; may be ' linked to a user form &c. strPYFont = "Chinese Pinyin"
Application.ScreenUpdating = False ' The screen would get too messy if we let it redraw. It ' would also slow down operation.
' Most characters fall in this range ' (Big-5 leading bytes are Hex A1-FE) strSearchText(1) = "ang1": strPYTone(1) = "`ng" strSearchText(2) = "ang2": strPYTone(2) = "1ng" strSearchText(3) = "ang3": strPYTone(3) = "2ng" strSearchText(4) = "ang4": strPYTone(4) = "3ng"
With Selection.Find ' Search only in the selected text; could be ' modified to search entire document.
.ClearFormatting .MatchWildcards = False .MatchCase = True .Font.Name = "Times New Roman" .Text = strSearchText(count) ' Search for the concatenated search text.
With .Replacement .ClearFormatting .LanguageID = wdNoProofing .Font.Name = strPYFont .Text = strPYTone(count) End With .Execute replace:=wdReplaceAll ' Replace throughout the selected area End With
Next
' be polite and clear the search dialog
With Selection.Find .ClearFormatting .MatchWildcards = False .Text = "" With .Replacement .ClearFormatting .Text = "" End With End With
Application.ScreenUpdating = True ' Turn display back on
End Sub
Bonjour,
Forum Excel, a essayer dans le forum Word .......
Salutations
Bonjour,
j'avais trouvé une macro qui permettait d'écrire en pinyin (version
phonétique du chinois) elle marchait sous word 97 et 2000 mais ne fonctionne
pas sous word 2003...
qqun saurait il pourquoi elle ne marche plus ???
merci d'avance
voici cette macro :
Sub Add_Tones()
' Add_Tones
'
' Created June 12, 1998 by Erik Peterson
' Based on Slippery Sinifier
' Created May 20, 1997 by Bruce Rusk
'
' Uses Chinese Pinyin Fonts developed by C.C. Cheng
' for use with Chinese Online Reading Assistant Project
' available at http://www.lang.uiuc.edu/chinese/reading/tools/
' Freely distributable and usable with any
' modification whatever.
'
Dim strSearchText(110) As String
Dim strPYTone(110) As String
Dim count As Integer
' These arrays hold the codes to be searched for
Dim strPYFont As String
' Name of the Chinese font. Modify if desired; may be
' linked to a user form &c.
strPYFont = "Chinese Pinyin"
Application.ScreenUpdating = False
' The screen would get too messy if we let it redraw. It
' would also slow down operation.
' Most characters fall in this range
' (Big-5 leading bytes are Hex A1-FE)
strSearchText(1) = "ang1": strPYTone(1) = "`ng"
strSearchText(2) = "ang2": strPYTone(2) = "1ng"
strSearchText(3) = "ang3": strPYTone(3) = "2ng"
strSearchText(4) = "ang4": strPYTone(4) = "3ng"
With Selection.Find
' Search only in the selected text; could be
' modified to search entire document.
.ClearFormatting
.MatchWildcards = False
.MatchCase = True
.Font.Name = "Times New Roman"
.Text = strSearchText(count)
' Search for the concatenated search text.
With .Replacement
.ClearFormatting
.LanguageID = wdNoProofing
.Font.Name = strPYFont
.Text = strPYTone(count)
End With
.Execute replace:=wdReplaceAll
' Replace throughout the selected area
End With
Next
' be polite and clear the search dialog
With Selection.Find
.ClearFormatting
.MatchWildcards = False
.Text = ""
With .Replacement
.ClearFormatting
.Text = ""
End With
End With
Application.ScreenUpdating = True
' Turn display back on
j'avais trouvé une macro qui permettait d'écrire en pinyin (version phonétique du chinois) elle marchait sous word 97 et 2000 mais ne fonctionne pas sous word 2003... qqun saurait il pourquoi elle ne marche plus ???
merci d'avance
voici cette macro :
Sub Add_Tones()
' Add_Tones ' ' Created June 12, 1998 by Erik Peterson ' Based on Slippery Sinifier ' Created May 20, 1997 by Bruce Rusk ' ' Uses Chinese Pinyin Fonts developed by C.C. Cheng ' for use with Chinese Online Reading Assistant Project ' available at http://www.lang.uiuc.edu/chinese/reading/tools/
' Freely distributable and usable with any ' modification whatever. '
Dim strSearchText(110) As String Dim strPYTone(110) As String Dim count As Integer
' These arrays hold the codes to be searched for
Dim strPYFont As String ' Name of the Chinese font. Modify if desired; may be ' linked to a user form &c. strPYFont = "Chinese Pinyin"
Application.ScreenUpdating = False ' The screen would get too messy if we let it redraw. It ' would also slow down operation.
' Most characters fall in this range ' (Big-5 leading bytes are Hex A1-FE) strSearchText(1) = "ang1": strPYTone(1) = "`ng" strSearchText(2) = "ang2": strPYTone(2) = "1ng" strSearchText(3) = "ang3": strPYTone(3) = "2ng" strSearchText(4) = "ang4": strPYTone(4) = "3ng"
With Selection.Find ' Search only in the selected text; could be ' modified to search entire document.
.ClearFormatting .MatchWildcards = False .MatchCase = True .Font.Name = "Times New Roman" .Text = strSearchText(count) ' Search for the concatenated search text.
With .Replacement .ClearFormatting .LanguageID = wdNoProofing .Font.Name = strPYFont .Text = strPYTone(count) End With .Execute replace:=wdReplaceAll ' Replace throughout the selected area End With
Next
' be polite and clear the search dialog
With Selection.Find .ClearFormatting .MatchWildcards = False .Text = "" With .Replacement .ClearFormatting .Text = "" End With End With
Application.ScreenUpdating = True ' Turn display back on
End Sub
david.taieb
oupsss...désolé...
Bonjour,
Forum Excel, a essayer dans le forum Word .......
Salutations
Bonjour,
j'avais trouvé une macro qui permettait d'écrire en pinyin (version phonétique du chinois) elle marchait sous word 97 et 2000 mais ne fonctionne pas sous word 2003... qqun saurait il pourquoi elle ne marche plus ???
merci d'avance
voici cette macro :
Sub Add_Tones()
' Add_Tones ' ' Created June 12, 1998 by Erik Peterson ' Based on Slippery Sinifier ' Created May 20, 1997 by Bruce Rusk ' ' Uses Chinese Pinyin Fonts developed by C.C. Cheng ' for use with Chinese Online Reading Assistant Project ' available at http://www.lang.uiuc.edu/chinese/reading/tools/
' Freely distributable and usable with any ' modification whatever. '
Dim strSearchText(110) As String Dim strPYTone(110) As String Dim count As Integer
' These arrays hold the codes to be searched for
Dim strPYFont As String ' Name of the Chinese font. Modify if desired; may be ' linked to a user form &c. strPYFont = "Chinese Pinyin"
Application.ScreenUpdating = False ' The screen would get too messy if we let it redraw. It ' would also slow down operation.
' Most characters fall in this range ' (Big-5 leading bytes are Hex A1-FE) strSearchText(1) = "ang1": strPYTone(1) = "`ng" strSearchText(2) = "ang2": strPYTone(2) = "1ng" strSearchText(3) = "ang3": strPYTone(3) = "2ng" strSearchText(4) = "ang4": strPYTone(4) = "3ng"
With Selection.Find ' Search only in the selected text; could be ' modified to search entire document.
.ClearFormatting .MatchWildcards = False .MatchCase = True .Font.Name = "Times New Roman" .Text = strSearchText(count) ' Search for the concatenated search text.
With .Replacement .ClearFormatting .LanguageID = wdNoProofing .Font.Name = strPYFont .Text = strPYTone(count) End With .Execute replace:=wdReplaceAll ' Replace throughout the selected area End With
Next
' be polite and clear the search dialog
With Selection.Find .ClearFormatting .MatchWildcards = False .Text = "" With .Replacement .ClearFormatting .Text = "" End With End With
Application.ScreenUpdating = True ' Turn display back on
End Sub
oupsss...désolé...
Bonjour,
Forum Excel, a essayer dans le forum Word .......
Salutations
Bonjour,
j'avais trouvé une macro qui permettait d'écrire en pinyin (version
phonétique du chinois) elle marchait sous word 97 et 2000 mais ne fonctionne
pas sous word 2003...
qqun saurait il pourquoi elle ne marche plus ???
merci d'avance
voici cette macro :
Sub Add_Tones()
' Add_Tones
'
' Created June 12, 1998 by Erik Peterson
' Based on Slippery Sinifier
' Created May 20, 1997 by Bruce Rusk
'
' Uses Chinese Pinyin Fonts developed by C.C. Cheng
' for use with Chinese Online Reading Assistant Project
' available at http://www.lang.uiuc.edu/chinese/reading/tools/
' Freely distributable and usable with any
' modification whatever.
'
Dim strSearchText(110) As String
Dim strPYTone(110) As String
Dim count As Integer
' These arrays hold the codes to be searched for
Dim strPYFont As String
' Name of the Chinese font. Modify if desired; may be
' linked to a user form &c.
strPYFont = "Chinese Pinyin"
Application.ScreenUpdating = False
' The screen would get too messy if we let it redraw. It
' would also slow down operation.
' Most characters fall in this range
' (Big-5 leading bytes are Hex A1-FE)
strSearchText(1) = "ang1": strPYTone(1) = "`ng"
strSearchText(2) = "ang2": strPYTone(2) = "1ng"
strSearchText(3) = "ang3": strPYTone(3) = "2ng"
strSearchText(4) = "ang4": strPYTone(4) = "3ng"
With Selection.Find
' Search only in the selected text; could be
' modified to search entire document.
.ClearFormatting
.MatchWildcards = False
.MatchCase = True
.Font.Name = "Times New Roman"
.Text = strSearchText(count)
' Search for the concatenated search text.
With .Replacement
.ClearFormatting
.LanguageID = wdNoProofing
.Font.Name = strPYFont
.Text = strPYTone(count)
End With
.Execute replace:=wdReplaceAll
' Replace throughout the selected area
End With
Next
' be polite and clear the search dialog
With Selection.Find
.ClearFormatting
.MatchWildcards = False
.Text = ""
With .Replacement
.ClearFormatting
.Text = ""
End With
End With
Application.ScreenUpdating = True
' Turn display back on
j'avais trouvé une macro qui permettait d'écrire en pinyin (version phonétique du chinois) elle marchait sous word 97 et 2000 mais ne fonctionne pas sous word 2003... qqun saurait il pourquoi elle ne marche plus ???
merci d'avance
voici cette macro :
Sub Add_Tones()
' Add_Tones ' ' Created June 12, 1998 by Erik Peterson ' Based on Slippery Sinifier ' Created May 20, 1997 by Bruce Rusk ' ' Uses Chinese Pinyin Fonts developed by C.C. Cheng ' for use with Chinese Online Reading Assistant Project ' available at http://www.lang.uiuc.edu/chinese/reading/tools/
' Freely distributable and usable with any ' modification whatever. '
Dim strSearchText(110) As String Dim strPYTone(110) As String Dim count As Integer
' These arrays hold the codes to be searched for
Dim strPYFont As String ' Name of the Chinese font. Modify if desired; may be ' linked to a user form &c. strPYFont = "Chinese Pinyin"
Application.ScreenUpdating = False ' The screen would get too messy if we let it redraw. It ' would also slow down operation.
' Most characters fall in this range ' (Big-5 leading bytes are Hex A1-FE) strSearchText(1) = "ang1": strPYTone(1) = "`ng" strSearchText(2) = "ang2": strPYTone(2) = "1ng" strSearchText(3) = "ang3": strPYTone(3) = "2ng" strSearchText(4) = "ang4": strPYTone(4) = "3ng"
With Selection.Find ' Search only in the selected text; could be ' modified to search entire document.
.ClearFormatting .MatchWildcards = False .MatchCase = True .Font.Name = "Times New Roman" .Text = strSearchText(count) ' Search for the concatenated search text.
With .Replacement .ClearFormatting .LanguageID = wdNoProofing .Font.Name = strPYFont .Text = strPYTone(count) End With .Execute replace:=wdReplaceAll ' Replace throughout the selected area End With
Next
' be polite and clear the search dialog
With Selection.Find .ClearFormatting .MatchWildcards = False .Text = "" With .Replacement .ClearFormatting .Text = "" End With End With
Application.ScreenUpdating = True ' Turn display back on
