Dalam artikel hari ini, kami ingin menunjukkan kepada Anda 2 cara untuk mengubah teks menjadi superskrip atau subskrip dalam dokumen Word Anda.
Terkadang, kita perlu mengubah teks tertentu dalam dokumen Word menjadi superskrip atau subskrip, terutama ketika terdapat beberapa instance teks yang sama. Dalam keadaan seperti itu, penggantian massal adalah yang paling kita butuhkan. Karena alasan ini, kami menawarkan 2 metode cepat untuk Anda menyelesaikan tugas tersebut.
Metode 1: Gunakan Fitur "Temukan dan Ganti"
Dalam konten yang akan datang, kami akan menggunakan sampel "DataNumen Word Repair v2.5 ”sebagai demonstrasi kami. Tujuan kami adalah untuk mengganti "v2.5" sebagai subskrip.
- Pertama dan terpenting, klik tab “Beranda”.
- Selanjutnya klik "Ganti" untuk membuka kotak dialog "Temukan dan Ganti".
- Pertama masukkan "v2.5" di kotak teks "Temukan apa". Jangan lupa memasukkan spasi sebelum teks.
- Kemudian masukkan "v2.5" di kotak teks "Ganti dengan". Tidak ada spasi sebelum teks kali ini.
- Selanjutnya klik tombol "Lainnya" untuk memperluas lebih banyak opsi.
- Sekarang klik "Format" dan pilih "Font".
- Di kotak dialog "Temukan Font", centang kotak "Superskrip" atau "Subskrip".
- Lalu klik "OK".
- Terakhir klik tombol "Ganti Semua".
Anda dapat memeriksa efeknya di sini:
Metode 2: Ganti Batch dengan Menjalankan Word Macro
- Untuk memulai, tekan "Alt + F11" untuk memicu editor VBA.
- Kemudian klik proyek "Normal" dan tab "Sisipkan" di sebelahnya.
- Pilih "Modul" pada menu drop-down.
- Selanjutnya klik dua kali pada modul baru untuk membuka area pengkodean.
- Tempel makro berikut di sana:
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
- Klik "Jalankan".
- Pertama ada kotak "Pilih teks". Masukkan teks temuan Anda dan klik "OK". Dalam kasus ini, ketik "v2.5".
- Lalu ada kotak "Ganti teks". Masukkan teks pengganti di sana dan klik "OK". Ketik "v2.5".
Jika Anda perlu mengubah teks menjadi superskrip, Anda dapat menggunakan makro ini:
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
Perbaiki Kesalahan Dokumen
Kesalahan penulisan bukanlah hal asing bagi sebagian besar dari kita. Kesalahan penulisan di Word dapat mengakibatkan... docx yang rusak mengajukan. Untuk mengatasi masalah tersebut, Anda perlu memegang alat yang berkualifikasi dan profesional untuk memulihkan dokumen yang rusak.
Pengantar Penulis:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xlsx rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com