seleccionar línea por código vba

07/11/2009 - 14:15 por chiri13 | Informe spam

Tengo un documento con 300 páginas y quiero realizar dos mejoras con él sin
trabajar mucho ;-)

Una de las mejoras es que tengo unas 50 líneas que son los títulos de esta
forma:

1 Título1
1.2 Título 1.2
1.3 Título 1.3
1.3.1 Título 1.3.1
2 Título2

Cada línea de este título se caracteríza por tener una tabulación delante
(el resto del documento no) así que si yo utilizo este código

Selection.Find.ClearFormatting
With Selection.Find
.Text = "^t"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute

me va seleccionando el tabulador que hay antes del Título

Ahora bien, yo querría seleccionar una línea, y que busque si tiene algún
punto, si no lo tiene le asigne el estilo Título 1, si tiene un punto el
estilo Título 2 y así sucesivamente.

Sería posible

GRACIAS

Siga el debate

12 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#11 chiri13

16/11/2009 - 17:17 | Informe spam

ESTO HA SIDO PERFECTO, ERES UNA ARTISTA

MUCHÍSIMAS GRACIAS POR TODO

"Monica May" escribió en el mensaje
news:

hola Chiri de nuevo,

Pues entonces prueba mejor este codigo siguiente >>

'[]

Sub parrafos_tabulacion_estilos()

Dim x As Long
Selection.HomeKey wdStory
With Selection.Find
Do While .Execute _
(FindText:="^t", Forward:=True) = True
With Selection
.Delete
.EndKey wdLine, wdExtend
x = 0
x = Len(.Text) - Len(Replace(.Text, ".", ""))
Select Case x
Case 0
.Range.Paragraphs.Style = "Título 1"
Case 1
.Range.Paragraphs.Style = "Título 2"
Case 2
.Range.Paragraphs.Style = "Título 3"
End Select
.Collapse wdCollapseEnd
End With: Loop: End With:End Sub

'[]

el otro codigo no es que vuelva a empezar sino que recorre todos los
parrafos en busca de la tabulacion y pasa por todos los parrafos o marcas
de parrafo y cuando termina su evalucion entonces se para :P

Prueba a ver y... Comentanos!

Saludos
Monica

www.fermu.com
www.teladearana.es