Centrare caractere

[Apostolu]

Avem un text mare nepaginat, cu capitole.

Manual se poate selecta tot textul si alinia cu un tab la stanga iar apoi trebuie:
^13
Selectat "Capitol" si "descrierea lui"
scos tabul de la ele
centrate si iar
^13

Un Macro care sa faca acest lucru, eu putand sa modific "Capitol I" in "Sectiunea 1", Pargraf 5", ar fi foarte util.

Deci
Gasire "Capitol IV", "Sectiuna 3", ... etc.
Gasire primul rand dupa titlu
Eliminare tab la ele
Introducere ^13 in fata la "Capitol" si dupa randul urmator.
Centrarea acestor 2 randuri.

Credeti ca se poate ?
Multumesc !

[Dr.Word]

Puteti incarca un mic exemplu, va rog?
"un text mare nepaginat, cu capitole"...
Cum sunt introduse capitolele?
Ca text normal, cu atribute de formatare, sau cu stiluri (Heading 1)?

[Apostolu]

Textul este "chior", aliniat tot la stanga, neboldat, ne-italicit etc :
Times New Roman, 10

E.G.
<tab>Xxxxxxxxxxxxxxxxxxxxxxxxx,
<tab>xxxxxxxxxxxxxxxxxxxxxxxxx.
<tab>Capitolul I
<tab>Marirea si prabusirea Imperiului Otoman
<tab>Yyyyyyyyyyyyyyyyyyyyyy
<tab>yyyyyyyyyyyyyyyyyyyyyy

Si ar trebui sa arate asa:

<tab>xxxxxxxxxxxxxxxxxxxxxxxxx.
^13
<center>
Capitolul I
<b>Marirea si prabusirea Imperiului Otoman</b>
</center>
^13
<tab>Yyyyyyyyyyyyyyyyyyyyyy

[Dr.Word]

Va ajut cu mare drag, dar va rog sa incarcati un fisier word, cu un mic select din textul original si cu un sample din ceea ce doriti.
E mult mai usor pentru mine sa lucrez pe un exemplu decat sa construiesc ceva care, poate nu este conform cu realitatea.

[Dr.Word]

Intrucat nu mi=ati oferit aceste detalii... am incropit eu un fisier, sper ca e ceea ce trebuie. Cum anume doriti... nu e foarte clar. Rulati macro findCapitol

[Apostolu]

Draga Dr. Word,

Imi cer scuze, la varsta mea inteleg mai greu si uit mai repede.
Deci, Office 2003, ca sa pot dechide si eu fisierul fara sa-mi taie din features la incarcare.
Am atasat fisierul.

[Dr.Word]

Ce tristete!
Acum imi dau seama ca ce incropisem eu nu va era de niciun ajutor. Folosisem minunatia de cautare cu Wildcards din Word 2010 care rezolva problema rapid. Sa vad cum fac in 2003.

[Dr.Word]

Buun, n-avem office 2010 sau 2007. Dar avem si in 2003 stiluri:
Iata aici cum putem folosi facilitatea de selectare a textelor cu format similar
http://office.microsoft.com/en-gb/word- ... 84442.aspx
asta pentru a selecta "sectiunile" in caz ca au fost scrise de autor cu aceleasi atribute de formatare. Le aplicati apoi stilul Heading 1 (modificat dupa preferinta) si la fel cu subtitlurile.
Din cate am vazut in exemplul dumneavoastra, textul original nu are caracterul tab la inceput, cum gresit am inteles din prima descriere a problemei, ci doar alinierea paragrafului de tip Normal.
Eu asa as face. Fara sa ma complic cu macro.

[Apostolu]

Multumesc pt. raspunsul promt.
Tocmai incercam sa bricolez la macro-ul dvs. ca sa introduc si diacritice.
Asa cum era normal am pus doua " una dupa alta si mi-a dat eroare
Apoi ...
Run-time error '5':
Invalid procedure call or argument

Utilizarea Heading1 face "center" dar schimba si fontul, size, italic etc. ceea ce NU este necesar !!!

Alinierea initiala o fac eu, selectand tot si tragand sagetica de la bara cu pargrafe/taburi cu o jumatate de unitate.

In Word 2003, la "Replace" apare si optiunea Wildcards si VB-ul "atasat" o suporta.
La macro-urile inregistrate automat apare asa: .MatchWildcards = True sau False.

Stiam de posibilitatea din Styles & Formating, dar daca o folosesc nu imi introduce si cele doua ^13, inainte de "Capitol" si dupa descrierea lui (al doilea rand centrat). Adica trebuie sa le bag manual la 50-60 de "Capitol/Sectiune".
Chiar daca dau "replace all" "Capitol" cu "^13Capitol", randul al doilea este intodeauna altceva de la capitol la capitol.
Speram sa rezolv totul cu un macro.

Si bine inteles, mi-a scapat o boldare ce nu exista de fapt in "Initial" si trebuie sa fie in "Final"

Asa ca va trimit inca o data documentul si ce am modificat in macro de imi apare eroarea 5.

[DR.ACCESS]

Incercati, va rog, urmatorul cod. E valabil doar pentru titlul sectiunea. Voi completa si pentru randul urmator. Nu am insa Word2003 in acest moment la dispozitie. Si n-am incercat niciodata in 2003 sa folosesc Wildcards.

Cod: Selectaţi tot

Sub findCapitol2()
'
' findCapitol Macro
'
'


    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
 
 Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Heading 1")
    
End Sub

(Scuze, am raspuns de pe un alt cont. Tot eu sunt si Dr.Word)