En Word 2010, quiero eliminar la notación fonética de todo el artículo de una vez. ¿Qué tengo que hacer?
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