Nell'articolo di oggi, vorremmo mostrarti 2 modi per modificare in batch i testi in apice o pedice nel tuo documento Word.
A volte, in un documento Word, è necessario convertire determinati testi in apici o pedici, soprattutto quando lo stesso testo compare più volte. In questi casi, la sostituzione in blocco è la soluzione ideale. Per questo motivo, ti proponiamo due metodi rapidi per completare l'operazione.
Metodo 1: utilizzare la funzione "Trova e sostituisci".
Nei prossimi contenuti utilizzeremo l'esempio "DataNumen Word Repair v2.5” come nostra dimostrazione. Il nostro obiettivo è sostituire la "v2.5" come pedice.
- Innanzitutto, fai clic sulla scheda "Home".
- Quindi fai clic su "Sostituisci" per aprire la finestra di dialogo "Trova e sostituisci".
- Per prima cosa inserisci "v2.5" nella casella di testo "Trova cosa". Non dimenticare di inserire uno spazio prima del testo.
- Quindi inserisci "v2.5" nella casella di testo "Sostituisci con". Questa volta non c'è spazio prima del testo.
- Quindi fai clic sul pulsante "Altro" per espandere più opzioni.
- Ora fai clic su "Formato" e scegli "Font".
- Nella finestra di dialogo "Trova carattere", seleziona la casella "Apice" o "Pedice".
- Quindi fare clic su "OK".
- Infine fai clic sul pulsante "Sostituisci tutto".
Puoi controllare l'effetto qui:
Metodo 2: sostituzione in batch eseguendo la macro di Word
- Per cominciare, premi "Alt + F11" per attivare l'editor VBA.
- Quindi fare clic sul progetto "Normale" e sulla scheda "Inserisci" successiva.
- Scegli "Modulo" nel menu a discesa.
- Quindi fare doppio clic sul nuovo modulo per aprire l'area di codifica.
- Incolla lì la seguente macro:
Sub ReplaceTheTextAsSubscript()
Dim strSelectText As String
Dim strReplaceText As String
strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = True
End With
With Selection.Find
.Text = strSelectText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- Fare clic su "Esegui".
- Innanzitutto c'è la casella "Seleziona testo". Inserisci il testo di ricerca e fai clic su "OK". In questo caso, digitare " v2.5".
- Poi c'è la casella "Sostituisci testo". Inserisci lì il testo sostitutivo e fai clic su "OK". Digita "v2.5".
Se hai bisogno di cambiare i testi in apice, puoi usare questa macro:
Sub ReplaceTheTextAsSuperscript()
Dim strSelectText As String
Dim strReplaceText As String
strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
.Subscript = False
End With
With Selection.Find
.Text = strSelectText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Correggi gli errori del documento
Gli errori di parola non sono una novità per la maggior parte di noi. Un errore di parola può causare un corrotto docx file. Per affrontare tale problema, è necessario prendere in mano uno strumento qualificato e professionale per recuperare il documento rotto.
Introduzione dell'autore:
Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui xlsx corrotto and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com