Centrare caractere

[Apostolu]

Rezultatul rularii este atasat

[Dr.Word]

E bine pana acum. Mai trebuie sa modificam stilul Heading 1. Trebuie neaparat sa aveti o linie noua, sau e suficient sa introduceti o spatiere?

[Apostolu]

Deasupra la Capitol si dupa descriere, trebuie linie noua.

[Dr.Word]

Cam atat am reusit sa fac.
Rulati codul pe textul original si-mi spuneti si mie daca le-a clasificat pe doua nivele. Pentru spatiere puteti modifica stilurile Heading 1 si heading 2 sa arate excet cum va doriti. Sa fie centrate, cu spatiu inainte sau dupa...

Cod: Selectaţi tot

Sub findCapitol2()
'
'dr.word
'
'
Dim i As Integer


    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Normal")
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 1")
    With Selection.Find
        .Text = "SEC?IUNEA"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
       
    End With
 
    Selection.Find.Execute Replace:=wdReplaceAll

For i = 1 To ActiveDocument.Paragraphs.Count
If ActiveDocument.Paragraphs(i).Style = "Heading 1" Then

ActiveDocument.Paragraphs(i + 1).Style = "Heading 2"

End If
Next i
End Sub

[Apostolu]

Boffff.....

Nu imi este de nici un ajutor !
Adica mai mult ma complic si nici nu imi permite caractere speciale.

Macro asta al meu, macar imi arata clar unde sa ma duc si sa termin de mana ce mai trebuie facut.

Sub Titluri_Capitole_Articole()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Chr(13) + "SEC" + ChrW(354) + "IUNEA "
.Replacement.Text = Chr(13) + "^p" + "SEC" + ChrW(354) + "IUNEA "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
.......
End Sub

Punte, puncte inseamna ca l-am mai pus de x ori si am inlocuit "sectiunrea" cu Capitol, Titlu, Articol etc.

[DR.ACCESS]

De ce va trebuie neaparat un paragraf nou inainte si dupa titluri?
Nu obtineti acelasi rezultat si asa?

Cod: Selectaţi tot

Sub findCapitol2()
'
'dr.access
'
'
Dim i As Integer


    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Normal")
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 1")
    With Selection.Find
        .Text = "SEC?IUNEA"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
       
    End With
 
    Selection.Find.Execute Replace:=wdReplaceAll

For i = 1 To ActiveDocument.Paragraphs.Count
If ActiveDocument.Paragraphs(i).Style = "Heading 1" Then

ActiveDocument.Paragraphs(i + 1).Style = "Heading 2"

End If
Next i
With ActiveDocument.Styles("Heading 1").ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 12
        .SpaceBeforeAuto = False
        .SpaceAfter = 12
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .Alignment = wdAlignParagraphCenter
      End With
    
    With ActiveDocument.Styles("Heading 1")
        .AutomaticallyUpdate = False
        .BaseStyle = "Normal"
        .NextParagraphStyle = "Normal"
    End With
    
    With ActiveDocument.Styles("Heading 2").ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 12
        .SpaceBeforeAuto = False
        .SpaceAfter = 12
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .Alignment = wdAlignParagraphCenter
      End With
    
    With ActiveDocument.Styles("Heading 2")
        .AutomaticallyUpdate = False
        .BaseStyle = "Normal"
        .NextParagraphStyle = "Normal"
    End With

End Sub

Eu prefer intotdeauna sa lucrez cu stiluri de paragraf. Indiferent de versiune. E foarte usor apoi sa inserezi un cuprins, sa selectezi doar un anumit nivel si sa-i aplici un alt format. Inserarea de paragrafe inainte si dupa titlu, cu ce va ajuta?

[Apostolu]

Dragul meu,
Este foarte simplu.
Sunt arhitect si am 63 de ani !
Nu am folosit niciodata, pentru ca efectiv nu am nevoie, stiluiri sau spacingul din "pargraf".
In plus, am deja atatea macro (pentru 3 din ele am atins limita acceptata de Word si le apelez pe rand cu "call", iar pe restul separat), ca am probleme sa le gestionez cu bruma de VB pe care o stiu.
Orice iesire din "tipar", este clar ca o sa-mi creeze mari probleme, intrucat eu "inventez" o noua chestie in VB de ... 2 ori pe an.
Adica .... degeaba exista o bruma de logica, daca nu exista exercitiu zilnic.
Si iar .. in plus, tot ce lucrez in Word, export in html.
Efectiv nu stiu ce inseamna exportul stilurilor din Word in html si mi-e frica ca o sa se intample minuni.
Html-urile mele avand o forma "rigida" din care nu trebuie sa ies.
Si asa baga Wordul cod din 3 in 3 cuvinte la export si imi face un fisier html de 100 de ori mai mare decat daca l-as face eu in Notpad.

Sper ca nu te superi, dar l-am rugat pe domnului Bogdan Tarla, pe Messenger, sa ne dea o mana de ajutor.
Stie domnia sa, cum ma revansez eu, de ani de zile.

[DR.ACCESS]

Dragul meu,)

Multumesc, ma simt chiar magulita. Eu sunt Diana si am 41 de ani.
Din cate vedeti, nimeni nu-i perfect!

.. in plus, tot ce lucrez in Word, export in html.

Ei, aceasta e o informatie vitala!
Si cand ma gandesc pe unde v-am plimbat!

[Apostolu]

Buna seara Doamna Diana,

Imi cer scuze de confuzia sexologica, dar chiar nu aveam de unde sa stiu.
Altfel, orice domn de varsta mea abia asteapta sa fie plimbat de o doamna !

[Apostolu]

Ok.
Domnul Bogdan Tarla zice ca nu stie.
Mai incercam s-o rezolvam cumva ?