Šajā rakstā mēs vēlamies jums iepazīstināt ar 3 metodēm, kā mainīt konkrētu vārdu pirmā burta stilu jūsu Word dokumentā.
Viens no kopējiem dokumenta formatēšanas noteikumiem ir lielo burtu lietošana katra teikuma sākumā. Bet dažos īpašos gadījumos, piemēram, strādājot pie mākslas dokumenta, mums ir jāievēro īpašas prasības.
Un šajā ierakstā mēs parādīsim 3 veidus, kā mainīt vārdu pirmā burta stilu atbilstoši 3 dažādām prasībām.
1. metode: mainiet katra dokumenta vārda pirmās burta stilu
- Pirmkārt un galvenokārt, nospiediet taustiņu kombināciju “Alt+F11”, lai atvērtu VBA redaktoru programmā Word.
- Pēc tam kreisajā kolonnā noklikšķiniet uz “Normal”.
- Pēc tam izvēlnes joslā noklikšķiniet uz “Ievietot”.
- Nolaižamajā izvēlnē noklikšķiniet uz “Modulis”.
- Tagad veiciet dubultklikšķi uz jaunā moduļa, lai to atvērtu, un ielīmējiet tur šādus kodus:
Sub ChangeStyleOfFirstLetterInWords()
Dim objWord As Range
For Each objWord In ActiveDocument.Words
' Change the font size for the first letter in every word.
objWord.Characters(1).Font.Size = 16
' Set Bold font for the first letter in every word.
objWord.Characters(1).Font.Bold = True
' Change the font color for the first letter in every word.
objWord.Characters(1).Font.Color = wdColorGreen
Next
End Sub
- Visbeidzot, noklikšķiniet uz “Palaist”.
Lūk, rezultāts:
Piezīmes:
-
Characters(1).Font.Size = 16
Tas nosaka pirmā burta fonta lielumu 16. Mainiet numuru, kā vēlaties.
-
Characters(1).Font.Bold = True
Šajā rindā pirmais burts ir treknrakstā. Ja jums nav nepieciešams, “True” var mainīt uz “False”.
-
Characters(1).Font.Color = wdColorGreen
Šis attiecas uz burtu zaļu krāsu. Apmeklējiet šo saiti, lai izvēlētos vēlamo krāsu: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)
2. metode: mainiet pirmā vārda pirmās vēstules stilu visos teikumos
- Pirmkārt, instalējiet un palaidiet makro, kā parādīts 1. metodē.
- Pēc tam aizstājiet ar šo makro:
Sub ChangeStyleOfFirstLetterInSentence()
Dim objSentence As Range
For Each objSentence In ActiveDocument.Sentences
' Change the font size for the first letter in every sentence.
objSentence.Words(1).Characters(1).Font.Size = 16
' Set Bold font for the first letter in every sentence.
objSentence.Words(1).Characters(1).Font.Bold = True
' Change the font color for the first letter in every sentence.
objSentence.Words(1).Characters(1).Font.Color = wdColorGreen
Next
End Sub
Pārbaudiet rezultātu:
3. metode: Mainiet pirmā vārda pirmās burta stilu visos punktos
- Līdzīgi instalējiet un palaidiet makro, veicot 1. metodē norādītās darbības.
- Pēc tam izmantojiet šo makro:
Sub ChangeStyleOfFirstLetterInParagraphs()
Dim objParagraph As Word.Paragraph
For Each objParagraph In ActiveDocument.Paragraphs
' Change the font size for the first letter in every paragraph.
objParagraph.Range.Words(1).Characters(1).Font.Size = 16
' Set Bold font for the first letter in every paragraph.
objParagraph.Range.Words(1).Characters(1).Font.Bold = True
' Change the font color for the first letter in every paragraph.
objParagraph.Range.Words(1).Characters(1).Font.Bold = True
Next
End Sub
Skatīt ekrānuzņēmumu:
Labākā pieeja datu zudumu apstrādei
Tas var būt ļoti saspringts, ja ir kritiski dati. Tādēļ jums jāzina, kā rīkoties šādā katastrofā. Un, protams, labākais risinājums ir iegūt a doc remonts lietderība. Ar to jūs varat atgūt savus datus īsākajā laikā.
Autora ievads:
Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp Excel remonts un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar




