| Precedente :: Successivo |
| Autore |
Messaggio |
Merry80
Comune mortale
Registrato: 31/03/10 17:43
Messaggi: 2
|
 Inviato: 31 Mar 2010 17:48 Oggetto: * Aiuto con un "sostituisci" un po' complicato in |
 |
|
Ciao a tutti!
Avrei bisogno di effettuare la seguente sostituzione in un documento Word:
cambiare il formato di tutte le parentesi, con il loro contenuto, da normale a corsivo.
Pur avendo provato a usare i caratteri jolly, mi riesce difficile fargli capire che il risultato dev'essere esattamente la frase di partenza, ma col formato modificato.
Esempio: se nel documento ci sono (pippo) e più avanti (pluto), dovrebbero diventare (pippo) e (pluto)
Qualche idea? Grazie! |
|
| Top |
|
 |
Taurex
Moderatore Software e Sistemi Operativi
Registrato: 10/10/04 11:44
Messaggi: 1057
Residenza: Internet
|
| Inviato: 31 Mar 2010 18:53 Oggetto: |
|
|
Premi ALT+F11 ed inserisci un modulo.
Copia questo codice all'interno :
| Codice: | Sub Macro1()
Selection.WholeStory
conta_caratteri = Selection.Characters.Count
Selection.MoveUp Unit:=wdLine, Count:=11000
Selection.MoveLeft Unit:=wdCharacter, Count:=1000
conteggio = 1
Do While conta_caratteri <> conteggio
Selection.MoveRight Unit:=wdCharacter, Count:=1
conteggio = conteggio + 1
pippo = Selection.Characters(1).Text
If pippo = "(" Then
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Do
pluto = Selection.Characters.Last.Text
conteggio = conteggio + 1
If pluto = ")" Then
GoTo corsivo
Else
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End If
Loop
corsivo:
Selection.Font.Italic = wdToggle
End If
Loop
End Sub |
|
|
| Top |
|
|
Merry80
Comune mortale
Registrato: 31/03/10 17:43
Messaggi: 2
|
| Inviato: 01 Apr 2010 15:35 Oggetto: |
|
|
Funziona alla perfezione!! Ti ringrazio moltissimo!  |
|
| Top |
|
|
Taurex
Moderatore Software e Sistemi Operativi
Registrato: 10/10/04 11:44
Messaggi: 1057
Residenza: Internet
|
| Inviato: 01 Apr 2010 15:57 Oggetto: |
|
|
| Merry80 ha scritto: | | Funziona alla perfezione!! Ti ringrazio moltissimo! |
Ma quante ne so |
|
| Top |
|
|
disturbatore
Semidio
Registrato: 25/05/07 15:14
Messaggi: 278
Residenza: pianeta in corso di distruzione
|
| Inviato: 25 Mag 2010 23:46 Oggetto: |
 |
|
Ciao Merry80,
mi sembra sufficiente eseguire la sequenza:
- Ctrl+Shift+S (per selezionare la funzione di sostituzione)
- selezionare il check box "Usa caratteri jolly"
- posizionare il cursore nel campo "Trova"
- inserire [(]*[)] (che significa una stringa di 0 o più caratteri delimitata da parentesi tonde)
- posizionare il cursore nel campo "Sostituisci con"
- non inserire alcun testo ma selezionare "Formato-Carattere-Corsivo" (lo devi ritrovare scritto sotto "Sostituisci con" a lato della dicitura "Formato")
- premere il pulsante "Sostituisci tutto"
Ciao,
disturbatore |
|
| Top |
|
|
|
FAQ
Cerca
Lista utenti
Gruppi
Registrati
Profilo
Messaggi privati
Log in
