La Red de Conocimientos Pedagógicos - Currículum vitae - En Word 2010, quiero eliminar la notación fonética de todo el artículo de una vez. ¿Qué tengo que hacer?

En Word 2010, quiero eliminar la notación fonética de todo el artículo de una vez. ¿Qué tengo que hacer?

Generalmente, los caracteres chinos (kanji chino o kanji japonés, etc.) se pueden grabar mediante Word/Excel, que es una función independiente.

Sin embargo, al abrir manualmente el cuadro de diálogo, el rango fonético es limitado y la eficiencia no es alta.

Sólo necesito procesar un documento hoy, así que simplemente escribí la siguiente macro. Realizar notación fonética automática para todo el artículo.

El principio es utilizar los símbolos fonéticos y el método SendKeys que viene con Word para simular presionar manualmente la tecla OK. La notación fonética se procesa oración por oración.

Personalmente, creo que la prueba de idioma japonés de Office 2007 es normal.

Método de importación:

Abra el documento de Word donde desea usar Word Pinyin, presione ALT+F11, agregue un módulo en la ventana VBE llamada, copie el siguiente código y guárdelo. . Cierre la ventana de VBE.

Utilice el cuadro de diálogo Macro en la barra de menú y seleccione la llamada automatizada que desea ejecutar.

Notas:

1. Si hay mucho contenido durante la operación, la pantalla parpadeará locamente. Aparecerá un cuadro de diálogo de notificación cuando se complete.

2. No utilice la ejecución en un solo paso, ya que esto no permitirá que SendKeys funcione correctamente.

Código VBA:

Submarino

Recogida automática ()

'''''''''''' '' ''''''''''''''''''''''''''''

Historial

p>

Descripción

20110518 yilliam.blog.163.com

Agregar pinyin para Kan-ji en

Palabras

''''''''''''''''''''''''''''''''''''''''

Dim

RNG actual como rango

La tecla Intro Dim es una cadena

Recuperar en caso de error

Entonces

Aplicar. ScreenUpdating = False

Introducir clave=

" {Enter} "

Para cada RNG entrante actual

frase ActiveDocument

RNG actual. Seleccione

Enviar clave

Introducir clave, Falso

Cuadro de diálogo (wdDialogPhoneticGuide). Mostrar

luego

establecer rngCurrent = Nada

aplicar. Actualización de pantalla=

Verdadero

Mensaje de MsgBox:= "¡Listo!", Botón:= vbOKOnly + vbInformation,

Título:= "Notificación"

Conector final