Fare titoli manageriali minuscole

Nathan passa spesso attraverso un problema con individui capitalizzando titoli di lavoro (ad esempio, "The Finance Manager fornisce ...") nei documenti. Egli vorrebbe una macro per controllare ogni uso di un titolo manageriale e minuscole, a meno che ci sia una ragione valida per siglare-cap la prima parola quando il titolo inizia una frase. Si chiede se sia possibile, senza inserire tutte le trenta titoli manageriali, di istituire una wild card per adattarsi a qualsiasi frase di due parole in cui la seconda parola è "manager" o "manager".

E 'possibile fare una ricerca jolly per trovare i tipi di istanze che stai cercando. Tutto quello che dovete fare è fare una ricerca avanzata, assicurarsi che la casella di controllo Usa caratteri jolly sia selezionata, e quindi utilizzare questo modello nel campo Trova:

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

Il modello si trovano due parole in cui la seconda parola è amministratore o gli amministratori. Troverà le parole se sia o sia la parola è in maiuscolo o entrambe le parole sono in minuscolo.

Il problema è che non è possibile modificare una parola che è stata trovata utilizzando wildcards a tutti minuscole. Questo significa che è necessario verificare manualmente ciò che si trova e quindi apportare le modifiche necessarie a mano. Se si dispone solo di farlo una volta ogni tanto, che non è troppo onerosa perché la finestra di dialogo Trova e sostituisci non è modale. (Ciò significa che è possibile lasciare la finestra aperta sullo schermo come si effettua una modifica del documento, quindi fare clic su Trova successivo nella finestra di dialogo per trovare l'occorrenza successiva corrispondente.)

Se avete bisogno di fare questi cambiamenti molto spesso, allora l'unica alternativa è quella di creare una macro che farà i cambiamenti per voi. I seguenti ricerche macro per lo stesso modello osservato sopra e poi cambia correttamente la capitalizzazione di titoli di lavoro. La macro trova titoli di lavoro composto da due parole con la seconda parola è "responsabile", "manager", "manager" o "Managers". È quindi rimuove qualsiasi capitalizzazione dalle parole se il titolo inizia una frase nel qual caso rimuove solo capitalizzazione dalla seconda parola.

Sub FixManagerCapitalisation ()
Dim arange come gamma
Dim Brange come gamma

Con Selection.Find
.ClearFormatting
.Text = "<[A-Za-z] [az] {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
Unità bRange.MoveEnd: = wdSentence
Se 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
Cappio
End With
End Sub

WordTips è la vostra fonte per la formazione Microsoft Word conveniente. (Microsoft Word è il più popolare software di elaborazione testi del mondo.) Questa punta (13080) si applica a Microsoft Word 2007, 2010 e 2013.