Red de conocimiento informático - Material del sitio web - ¿Cómo utilizar VBA para implementar el reemplazo por lotes de WORD?

¿Cómo utilizar VBA para implementar el reemplazo por lotes de WORD?

For?i?=?1?To?n?'n es el número de filas en listview1

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Con?Selection.Find

.Text?=?ListView1.ListItems(i).SubItems(0)?'Findstr=corresponde al contenido de la celda de la fila i y la columna 1 de listview1

.Replacement.Text?=?ListView1.ListItems(i).SubItems(1)?'Findstr=El contenido de la celda correspondiente en la i-ésima fila y columna 2 de listview1

.Forward? =?True

.Wrap?=?wdFindContinue

.Format?=?False

.MatchCase?=?False

.MatchWholeWord?=?False

.MatchByte?=?True

.MatchWildcards?=?False

.MatchSoundsLike?=?False<. /p>

.MatchAllWordForms?MatchAllWordForms?=?False

Fin?Con

Selection.Find.Execute?Replace:=wdReplaceAll ListView1.selectedItem?=?i

MsgBox?"¡Procesamiento completado!",?vbInformation? ?vbOKOnly,?" Mensaje"

ListView1.selectedItem?=?