Intento Buscar y Reemplazar dentro de un texto. Buscar un carácter (o una letra) y Reemplazarla pero destacándola con un tamaño mayor. En el Writer esto es posible desde el menú:
Editar | Busca y reemplaza… | Otras opciones | Formato | Tamaño de letra
Pero al hacer una macro con “Gravar una macro”, no cambia el tamaño:
Código: Seleccionar todo
args1(11).Name = "SearchItem.SearchString"
args1(11).Value = "p"
args1(12).Name = "SearchItem.ReplaceString"
args1(12).Value = "P"
args1(13).Name = "SearchItem.Locale"
args1(13).Value = 255
args1(14).Name = "SearchItem.ChangedChars"
args1(14).Value = 2
Después he intentado hacer lo mismo siguiendo un ejemplo de tu libro “Aprendiendo Ooo Basic” (pag. 242); quiero buscar un “ “ (espacio en blanco) y sustituirlo por una letra “p”. He comprovado que encuentra el “espacio en blanco” pero no lo sustituye por la letra “p”:
Código: Seleccionar todo
Dim tc, oRD
tc = ThisComponent
oRD = tc.createReplaceDescriptor
oRD.setSearchString("= " )
oRD.setReplaceString( "=p" )
tc.replaceAll(oRD)
Gracias por adelantado,
Ambrosio Gassol