No artigo de hoje, gostaríamos de mostrar a você 2 maneiras de alterar textos em lote para sobrescrito ou subscrito em seu documento do Word.
Às vezes, precisamos converter certos textos em sobrescritos ou subscritos em documentos do Word, principalmente quando há várias ocorrências do mesmo texto. Nessas circunstâncias, a substituição em lote é a solução ideal. Por isso, oferecemos dois métodos rápidos para você realizar essa tarefa.
Método 1: Use o recurso "Localizar e substituir"
Nos próximos conteúdos, usaremos o exemplo “DataNumen Word Repair v2.5” como nossa demonstração. Nosso objetivo é substituir o “v2.5” como subscrito.
- Em primeiro lugar, clique na aba “Início”.
- Em seguida, clique em “Substituir” para abrir a caixa de diálogo “Localizar e substituir”.
- Primeiro digite “v2.5” na caixa de texto “Localizar”. Não se esqueça de inserir um espaço antes do texto.
- Em seguida, digite “v2.5” na caixa de texto “Substituir por”. Não há espaço antes do texto desta vez.
- Em seguida, clique no botão "Mais" para expandir mais opções.
- Agora clique em “Formatar” e escolha “Fonte”.
- Na caixa de diálogo "Localizar fonte", marque a caixa "Sobrescrito" ou "Subscrito".
- Em seguida, clique em “OK”.
- Por fim, clique no botão “Substituir tudo”.
Você pode conferir o efeito aqui:
Método 2: substituição em lote executando macro do Word
- Para começar, pressione “Alt+F11” para acionar o editor VBA.
- Em seguida, clique no projeto “Normal” e na guia “Inserir” a seguir.
- Escolha "Módulo" no menu suspenso.
- Em seguida, clique duas vezes no novo módulo para abrir a área de codificação.
- Cole a seguinte macro lá:
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
- Clique em “Executar”.
- Primeiro, há a caixa "Selecionar texto". Insira o texto da descoberta e clique em "OK". Neste caso, digite “v2.5”.
- Depois, há a caixa "Substituir texto". Insira o texto de substituição e clique em "OK". Digite “v2.5”.
Se você precisar alterar os textos para sobrescrito, pode usar esta 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
Corrigir erros de documento
Erros de digitação são comuns para a maioria de nós. Um erro de digitação no Word pode resultar em um problema. documento corrompido arquivo. Para resolver esse problema, você precisa obter uma ferramenta qualificada e profissional para recuperar o documento quebrado.
Introdução do autor:
Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo xlsx corrompido e pdf reparar produtos de software. Para mais informações visite www.datanumen.com