sustituir una letra cada cierto número de letras

Más
8 años 4 meses antes #15367 por yofmp
Hola a todos, necesitaría hacer una cosilla mediante una macro y no sé
muy bien como empezar.

Quiero en un texto dado en Word, sustituir cada 10 letras la que toca
por ".", y así hasta el final. Es decir, 10 letras, sustituyo letra
por punto, otra vez 10 letras, "." por letra... y así hasta que
lleguemos al final del documento.

Alguna dirección sobre cómo comenzar mi macro???

gracias

Fernando

P.D. He publicado también en los grupos (las news) que llamábamos antes, hace mucho que no me metía y parece que están algo paradas (puedo equivocarme, así que disculpas si alguien se ofende que no era mi intención)

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
8 años 4 meses antes #15373 por fermu
bienvenido por la web tocayo. :-)

No nos hemos olvidado de ti, es que tenemos a la chica de VBA ajetreada. :-D y yo la verdad es que ando pillado con este tema :blink: ejeje

Saludos
Fernando M. / Registered Linux User #367696

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
8 años 4 meses antes #15374 por yofmp
Ya sabía yo que estabais ahí, muchas gracias por la bienvenida.

Después de muchas horas, y bastantes chapuzas. Me ha costado mucho "googlear", he ido poco a poco haciendo un pequeño intento que funciona. Debo perfeccionarlo (es que hay poquito manual de vba para Word que esté completo). Si sabéis de alguno me lo decís.

Resultado "patético" pero funciona. Me hubiera gustado hacerlo mejor y por otro caminos pero... hay instrucciones que no sé como por ejemplo la instrucción do until texto.eof en vez de tener que contar las letras y hacer hasta que lleguemos al final..

bueno si me lo corregís en algo bienvenido sea, si me conseguís un buen manual mejor (aaahhh pero no de esos que empiezan por ¡hola mundo! que no que eso ya lo sé hacer

De corazón GRACIAS

Sub prueba()
Dim a As Integer

Selection.HomeKey wdStory 'bien


a = ActiveDocument.Range(0, Selection.EndKey(wdStory)).Characters.Count

Selection.HomeKey wdStory
For i = 1 To a


Selection.MoveRight wdCharacter, 10


Selection.Delete Unit:=wdCharacter, Count:=1
Selection.InsertAfter "."
i = i + 9
Next


Selection.Expand wdCharacter

If Selection.Text = " " Then

End If

End Sub

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
8 años 4 meses antes #15375 por fermu
Buenas de nuevo :)

Pues veamos, la macro habría que probarla en un documento de Word a ver como fona, en principio no tiene mala pinta. De todas formas, en informática, ya sabes que lo que cuentan son los resultados, es decir, que si funciona jejeje :-)
Consultaré también con los expertos el tema de los manuales a ver que dicen. :-P

Saludos
Fernando M. / Registered Linux User #367696

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
8 años 4 meses antes #15376 por yofmp
GRACIAS

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Tiempo de carga de la página: 0.296 segundos
Gracias a Foro Kunena