[Word] Macro che formatta il testo

[Kien]

ciao a tutti,
ho un problema con la creazione di una macro.

In pratica vorrei creare una macro che mi formatta un testo che ho appena copiato. Finora sono riuscito solo a creare una macro che mi formatta solo il testo (cambiando il tipo di carattere, la grandezza e altre cose) di 4 righe, e finché il testo che incollo in word é di 4 righe non c'é nessun problema, ma appena sono meno oppure più righe la macro va in tilt, cioé mi formatta il testo in modo scorretto. Qualcuno mi potrebbe dare una mano?

Vi copio la parte di codice dove penso ci voglia una correzione:

Codice: Seleziona tutto

Selection.PasteAndFormat (wdPasteDefault)
Selection.Extend
Selection.MoveUp Unit:=wdLine, Count:=4 !!!!!!!!!!!
With Selection.Borders(wdBorderTop).LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderLeft)


penso che il problema stia nella selection e poi nel count :=4 che é statico..

qualcuno mi può dare una mano? vorrei che la macro mi formattasse il testo che incollo indifferentemente dal numero di righe che copio.

grazie mille

[Alexsandra]

Codice: Seleziona tutto

Sub formatta_testo()
    Selection.WholeStory ' così selezioni tutto il documento
    Selection.Font.Name = "Arial"
    Selection.Font.Size = 9
End Sub

Quando crei la macro le puoi assegnare un tasto speciale per l'esecuzione(CTRL+A) e copiato il tuo testo premi la combinazione di tasti e formatti tutto il documento.
PS. Le righe sopra sono un esempio di come formattare tutto il documento con font Arial da 9 puoi mettere anche i margini e il font che vuoi
ciao

[Kien]

Grazie x l'aiuto, cmq non mi sono spiegato bene, con il tuo codice formatto tutto il documento, mentre io vorrei formattare solo il testo che incollo (premendo ALT+Z ad esempio) in un documento senza modificare il resto. Magari c'é un altro codice? Selection.qlc?

grazie ancora

ciao

[Kien]

Cerco di spiegarmi meglio facendo un esempio: sto scrivendo un documento in word, ad un certo punto prendo una citazione da una pagina web, la copio, torno nel documento word e premendo ALT+Z vorrei che la macro mi incollasse il testo che ho copiato e me lo formattasse come voglio io (naturalmente specificandolo nel codice).

Mi hanno detto che é possibile farlo, solo che non riesco ad impostare il codice in modo che mi formatta sempre in modo corretto il testo che incollo indifferentemente da quante righe é composto.

Thx

[Kien]

Ce l'ho fatta.. ho risolto il problema in un altro modo.. Grazie cmq Alexsandra..

ciao a tutti

[Alexsandra]

Secondo mè è un'arma a doppio taglio. Mi spiego meglio se tu registri la tua macro e la memorizzi per il documento corrente,la puoi associare ad una combinazione di tasti e fin quì và tutto bene,ma non memorizzarla nel Normal.dot perchè se vuoi usare Word in altra maniera cioè vuoi scrivere liberamente "Chiuso per ferie" nel Normal hai sempre la macro. E' vero che se non schiacci la combinazione di tasti non succede niente,ma non è una bella cosa modificare il Normal,altri utenti hanno postato problemi strettamente correlati alla modifica del Normal.
Io vedrei meglio la creazione di un doc master(un modello) che tu usi per i tui bisogni ed è vuoto con le macro che ti servono e poi lo salvi con un nome diverso mantenendo integro il modello
Probabilmente volevi una cosa del genere

Codice: Seleziona tutto

Sub formatta()
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.MoveUp Unit:=wdLine, Count:=4, Extend:=wdExtend
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.Style = ActiveDocument.Styles("Normale")
    Selection.Font.Name = "Comic Sans MS"
    Selection.Font.Size = 10
End Sub

con questa macro devi solo posizionarti sulla riga dove vuoi copiare quanto hai copiato e ti formatta il testo,dando per scontato che io ho utilizzato il carattere e l'altezza che vedi nelle ultime 2 righe per fare il master,è possibile andare a leggere il formato che hai impostato tu senza creare il master ma importante è che tu non applichi la macro al Normal.
Se hai bisogno di chiarimenti ..... son quà.

ciao
PS. sarei curiosa di vedere come hai risolto magari hai trovato una soluzione migliore della mia

[Kien]

Alexsandra, ho provato a mandarti la soluzione che ho trovato via mail ma mi dice che il tuo indirizzo non é valido.. xxxxxxxxx é giusto? se nn é giusto fammi sapere quale altro indirizzo hai.
ciao
*** Moderazione: non postare indirizzi email in chiaro, protrebbero essere vittima di spam

[Alexsandra]

Credo che la menopausa stia avanzando (sarei ancora giovane però) credo di aver sbagliato a mettere il mio indirizzo email,se cambi il .it in .com credo che funzioni .....
PS. E' sbagliata nel mio profilo me ne sono accorta adesso vedrò di mettere l'estensione giusta