Nathan incontra spesso un problema con individui che capitalizzano i titoli di lavoro (ad esempio, “Il direttore finanziario deve fornire …​”) nei documenti.

Vorrebbe che una macro controlli ogni uso di un titolo manageriale e lo minuscolo, a meno che non ci sia un motivo valido per inserire la prima parola quando il titolo inizia una frase. Si chiede se sia possibile, senza inserire tutti e trenta i titoli manageriali, impostare un carattere jolly per trovare una qualsiasi frase di due parole in cui la seconda parola è “manager” o “manager”.

È possibile eseguire una ricerca con caratteri jolly per trovare i tipi di istanze che stai cercando. Tutto quello che devi fare è fare una ricerca avanzata, assicurarti che la casella di controllo Usa caratteri jolly sia selezionata, e poi usare questo modello nel campo Trova:

<[A-Za-z][a-z]{1,}>^32[Mm]anager*>

Il modello troverà due parole in cui la seconda parola è manager o manager. Troverà le parole se entrambe le parole sono in maiuscolo o entrambe le parole sono in minuscolo.

Il problema è che non è possibile cambiare una parola che è stata trovata utilizzando i caratteri jolly in tutte minuscole. Ciò significa che dovrai ispezionare manualmente ciò che viene trovato e quindi apportare manualmente le modifiche necessarie. Se devi farlo solo una volta ogni tanto, non è troppo oneroso perché la finestra di dialogo Trova e sostituisci non è modale. (Ciò significa che puoi lasciare la finestra di dialogo aperta sullo schermo mentre apporti una modifica al documento, quindi fare clic su Trova successivo nella finestra di dialogo per trovare la successiva occorrenza corrispondente.)

Se è necessario eseguire tali modifiche abbastanza spesso, l’unica alternativa è creare una macro che eseguirà le modifiche per te. La seguente macro cerca lo stesso modello annotato sopra e quindi modifica correttamente le lettere maiuscole dei titoli di lavoro. La macro trova titoli di lavoro composti da due parole con la seconda parola “manager”, “Manager”, “manager” o “Manager”. Quindi rimuove le maiuscole dalle parole a meno che il titolo non inizi una frase, nel qual caso rimuove solo le maiuscole dalla seconda parola.

Sub FixManagerCapitalisation()

Dim aRange As Range     Dim bRange As Range

With Selection.Find         .ClearFormatting         .Text = "<[A-Za-z][a-z]{1,}>^32[Mm]anager*>"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindAsk         .MatchCase = False         .MatchWildcards = True         Do While .Execute             Set aRange = Selection.Range             Set bRange = Selection.Range             bRange.MoveEnd unit:=wdSentence             If bRange.Text <> Selection.Sentences(1).Text Then                 aRange = LCase(aRange.Words(1).Text) & Trim(aRange.Words(2))

End If             aRange = aRange.Words(1) & Trim(LCase(aRange.Words(2).Text))

aRange.Start = aRange.End             aRange.Select             .ClearFormatting         Loop     End With End Sub

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (13080) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365.