Condividi:        

Aiuto per un macro in word 2003

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Aiuto per un macro in word 2003

Postdi eufrosina » 23/02/10 08:24

Salve, qualcuno può aiutarmi?
è da giorni che cerco di fare una macro in word ma con scarsi risultati,
devo gestire parecchi documenti con delle impostazioni particolari che ho già inserito in una macro, ma non riesco a far aggiungere due spazi ogni volta che ho un rientro di prima riga, quindi tutte le volte che si trova un rientro di prima riga la macro mi dovrebbe aggiungere due spazi.

Grazie a tutti coloro che risponderanno.
eufrosina
Newbie
 
Post: 6
Iscritto il: 21/02/10 20:10

Sponsor
 

Re: Aiuto per un macro in word 2003

Postdi Flash30005 » 24/02/10 03:14

Innanzitutto ti dò il benvenuto/ta

Ho cercato di fare qualcosa per risolvere il tuo problema ma ancora non ho nulla di valido.


Un'idea sarebbe quella di intercettare il segno di paragrafo ( a capo, nuova riga) e aggiungere subito dopo due spazi

Potresti farlo anche con Trova/sostituisci es.
Trovi
^p
e sostituisci con
^p.. (per due punti intendo due spazi)

prova e fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Aiuto per un macro in word 2003

Postdi eufrosina » 24/02/10 16:04

grazie per il benvenuto adesso provo a fare ciò che mi hai detto e poi ti faccio sapere.
eufrosina
Newbie
 
Post: 6
Iscritto il: 21/02/10 20:10

Re: Aiuto per un macro in word 2003

Postdi Anthony47 » 24/02/10 16:46

Ciao, benvenuto anche da parte mia.
Prova questa macro
Codice: Seleziona tutto
Sub ReIndent()
'
FLInd = 2     '<<<< Indentazione desiderata
Selection.HomeKey Unit:=wdStory
For I = 1 To ActiveDocument.Paragraphs.Count
 ActiveDocument.Paragraphs(I).CharacterUnitFirstLineIndent = FLInd
Next I
End Sub
Essa imposta su tutti i paragrafi una indentazione programmabile (vedere istruzione marcata <<<).
Provala rigorosamente su UNA COPIA del tuo documento, perche' non e' facile "disfare" cio' che la macro fa.
Ti sia chiaro che la macro non guarda se attualmente il paragrafo ha una indentazione o non ce l' ha, e che non aggiunge spazi ma imposta una nuova indentazione; lo dico nel caso che quel gioco tu voglia farlo non a tutti i paragrafi ma solo ad alcuni di essi.

Aggiungo anche che secondo me dovresti farlo variando lo stile della formattazione di paragrafo.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aiuto per un macro in word 2003

Postdi eufrosina » 24/02/10 19:05

Grazie a tutti per le vostre risposte,
ho provato la tua macro, ma non è quello che devo fare io, a me serve proprio aggiungere due spazi, solo se è presente il rientro di paragrafo in prima riga, altrimenti non devo fare nulla. A volte il rientro non c'e ed io lo devo lasciare com'è.
eufrosina
Newbie
 
Post: 6
Iscritto il: 21/02/10 20:10

Re: Aiuto per un macro in word 2003

Postdi eufrosina » 24/02/10 19:06

A comunque sono una lei...... :lol:
eufrosina
Newbie
 
Post: 6
Iscritto il: 21/02/10 20:10

Re: Aiuto per un macro in word 2003

Postdi eufrosina » 24/02/10 19:08

scusate voi che siete più pratici, non si potrebbe fare una sub di ricerca della prima riga di paragrafo e se il valore è maggiore di zero aggiungere i due spazi, io però non so come scriverlo ci sto impazzendo da giorni.

Grazie comunque.
eufrosina
Newbie
 
Post: 6
Iscritto il: 21/02/10 20:10

Re: Aiuto per un macro in word 2003

Postdi Anthony47 » 25/02/10 00:30

A comunque sono una lei...... :lol:
Non fa niente, benvenuta comunque :D :D
Allora qualcosa come questa:
Codice: Seleziona tutto
    Sub ReIndent()
    FLInd = "#_#"     '<<<< Caratteri aggiuntivi
    Selection.HomeKey Unit:=wdStory
    For I = 1 To ActiveDocument.Paragraphs.Count
    If ActiveDocument.Paragraphs(I).FirstLineIndent > 0 Then
     Selection.TypeText Text:=FLInd
    End If
    Selection.MoveDown Unit:=wdParagraph, Count:=1
    Next I
    End Sub
Modifica la stringa marcata <<<, inserendo la stringa che vuoi inserire sui paragrafi che hanno un rientro verso destra: userai " ", mentre quella ora nella macro e' buona per il collaudo.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aiuto per un macro in word 2003

Postdi eufrosina » 25/02/10 08:58

Grazie,
adesso la macro funziona.
eufrosina
Newbie
 
Post: 6
Iscritto il: 21/02/10 20:10


Torna a Applicazioni Office Windows


Topic correlati a "Aiuto per un macro in word 2003":


Chi c’è in linea

Visitano il forum: Ricky0185 e 40 ospiti