Hur man fetstil alla förekomster av samma ord i ett Word-dokument?
Om det finns flera "outlook"-texter i din Word-fil måste du nu formatera alla "outlook"-texter som fetstil. Hur skulle du kunna feta alla instanser av samma ord i ett stort Word-dokument så snabbt som möjligt?
Fetstil alla instanser av samma ord i ett Word-dokument med VBA-kod
Fetstil alla instanser av samma ord i ett Word-dokument med VBA-kod
Följande VBA-kod kan hjälpa dig att feta alla instanser av ett specifikt ord snabbt och enkelt, vänligen gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen:
VBA-kod: Fetstil alla instanser av samma ord
Sub BoldAll()
Dim xStr As String
xStr = InputBox("Please enter the word that you want to bold:", "KuTools for Word")
If Trim(xStr) = "" Then
MsgBox "Cann’t be empty!", vbInformation, "KuTools for Word"
End If
With ActiveDocument.Content.Find
.ClearFormatting
.Text = xStr
.Replacement.ClearFormatting
.Replacement.Font.Bold = True
.Replacement.Text = "^&"
.Wrap = wdFindStop
.Format = True
.Forward = True
.Execute Replace:=wdReplaceAll
End With
End Sub
3. När du har infogat koden och tryck sedan på F5 för att köra det, och en dialogruta öppnas för att påminna dig om att infoga ordet du vill ha fetstil, se skärmdump:
4. Och klicka sedan på OK knappen, och alla specifika ord har formaterats som fetstil på en gång.
Bästa kontorsproduktivitetsverktyg
Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!
🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll / Skriv om text / Sammanfatta dokument / Fråga för information baserat på dokument, allt i Word
📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF / Exportera sidor som bilder / Skriv ut flera filer samtidigt...
✏ Innehållsredigering: Batch Hitta och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...
🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Alla rubriker / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till vår Ta bort gruppen...
➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Diagonal linjebord / Bildtext för ekvation / Bild Bildtext / Tabelltextning / Flera bilder / Upptäck mer i Infoga grupp...
🔍 Precisionsval: Precisera specifika sidor / Tabellerna / former / rubrikerna / Förbättra navigering med mer Välj funktioner...
⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst / infoga repetitiv text automatiskt / växla sömlöst mellan dokumentfönster / 11 Konverteringsverktyg...