Ձեր Word փաստաթղթում տառատեսակը փոխարինելու 3 հեշտ եղանակ

Այս հոդվածում մենք ցանկանում ենք ձեզ ցույց տալ 3 հեշտ և արդյունավետ մեթոդներ՝ ձեր Word փաստաթղթում որոշակի տառատեսակը փոխարինելու համար:

Փաստաթուղթը Word-ում մշակելու համար հաճախ պահանջվում է ավելին, քան խմբագրում: Օրինակ, մենք պետք է հաշվի առնենք նաև այնպիսի տարրեր, ինչպիսիք են ոճը, էջի դասավորությունը և այլն։ Եվ բոլոր տեսակներից մեկը տառատեսակի օգտագործումն է։ Հաշվի առնելով, որ մենք, ամենայն հավանականությամբ, բավականին հաճախ փոխում ենք տառատեսակը մեկ այլ տառատեսակի, այստեղ մենք ունենք 3 եղանակ, որոնք կօգնեն մեզ հեշտությամբ լուծել առաջադրանքը:

Մեթոդ 1. Օգտագործեք «Գտիր և փոխարինիր» հատկությունը

1. Նախ և առաջost, կտտացրեք «Տուն» ներդիրին:
2. Այնուհետև սեղմեք «Փոխարինել» «Խմբագրում» խմբում:
3. Հաջորդը «Գտնել և փոխարինել» երկխոսության վանդակում, համոզվեք, որ գտնվում եք «Փոխարինել» ներդիրում: Տեղադրեք ցուցիչը «Գտեք ինչ» վանդակում և համոզվեք, որ այն դատարկ է:
4. Սեղմեք «Ավելին» կոճակը ներքևի ձախ անկյունում՝ ավելի շատ տարբերակներ ընդլայնելու համար:
5. Այժմ նախ կտտացրեք «Ձևաչափը»:
6. Այնուհետև ընտրեք «Տառատեսակը»՝ «Գտնել տառատեսակը» տուփը բացելու համար:
7. Ընտրեք «Տառատեսակը», որը ցանկանում եք փոխարինել:
8. Հաջորդը կտտացրեք «Լավ»:
9. Այնուհետև տեղադրեք տեղադրման ցուցիչը «Փոխարինեք» տեքստային վանդակում և համոզվեք, որ մեկ նիշ չկա:
10. Կրկնեք 5-րդ և 6-րդ քայլերը: Միայն այս անգամ «Գտնել տառատեսակը» վանդակում դուք պետք է ընտրեք այն տառատեսակը, որով ցանկանում եք փոխարինել: Այնուհետև սեղմեք «OK»:
11. Ի վերջո, կտտացրեք «Փոխարինել բոլորը» «Գտիր և փոխարինիր» դաշտում:

Մեթոդ 2. Օգտագործեք մակրո տառատեսակը մեկ փաստաթղթում փոխարինելու համար

1. Նախ, սեղմեք «Alt+ F11»՝ Word VBA խմբագրիչը գործարկելու համար:
2. Դրանից հետո կտտացրեք «Նորմալ», ապա «Տեղադրել»
3. Ընտրեք «Մոդուլ»՝ «Նորմալ» նախագծի տակ նոր մոդուլ տեղադրելու համար:
4. Հաջորդը կրկնակի սեղմեք դրա վրա՝ խմբագրման տարածքը բացելու համար:
5. Տեղադրեք հետևյալ ծածկագրերը.

Sub ReplaceFontForOneDocument()
  Dim objSingleWord As Range
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objSingleWord In .Words
      If objSingleWord.Font.Name = "Calibri" Then
        objSingleWord.Font.Name = "Times New Roman"
      End If
    Next
  End With
End Sub

6. Ի վերջո, հիշեք, որ սեղմեք «Գործարկել» կոճակը:

Նշումներ:

1. Կոդի տողում «Եթե ​​objSingleWord.Font.Name = «Calibri» Ապա», փոխարինել «gaugesփաստաթղթի տառատեսակով, որն այլևս պետք չէ:
2. Կոդի տողում «Font.Name = «Times New Roman»», փոխել «Times նոր հռոմեական« այն տառատեսակով, որը ցանկանում եք կիրառել ֆայլի համար:

Մեթոդ 3. Գործարկել մակրո՝ մի քանի փաստաթղթերում տառատեսակը փոխարինելու համար

Վերոհիշյալ 2 մեթոդները բոլորը խոսում են մեկ փաստաթղթում տառատեսակը փոխարինելու հրահանգների մասին: Այժմ եկեք տեսնենք, թե ինչպես փոխարինել տառատեսակը բազմաթիվ փաստաթղթերում: Այստեղ լուծումը, իհարկե, Word մակրո գործարկումն է:

1. Սկսենք, դասավորեք բոլորը tarփաստաթղթեր ստանալ մեկ թղթապանակում:
2. Այնուհետև բացեք Word-ը և գործարկեք VBA խմբագրիչը և կոդի խմբագրման տարածքը՝ օգտագործելով 2-րդ մեթոդի քայլերը:
3. Հաջորդը տեղադրեք հետևյալ կոդերը.

Sub BatchReplaceFont()
  Dim objDoc As Document
  Dim objSingleWord As Range
  Dim strFile As String, strFolder As String
 
  'Initialization
  strFolder = "C:\Users\Test\Desktop\test files\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  'Replace a specific font with another in all files under the same folder.
  While strFile <> ""
  Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
  For Each objSingleWord In objDoc.Words
    If objSingleWord.Font.Name = "Calibri" Then
      objSingleWord.Font.Name = "Time New Roman"
    End If
  Next objSingleWord
 
  objDoc.Save
  objDoc.Close
  strFile = Dir()
  Wend
End Sub

4. Վերջապես սեղմեք «Run» կոճակը:

Նշումներ:

1. «Calibri»-ն այն տառատեսակն է, որը ձեզ հարկավոր չէ, իսկ «Time New Roman»-ն այն տառատեսակն է, որը դուք ցանկանում եք:
2. Կոդի տողում «strFolder = «C:\Users\Test\Desktop\test files\»»,«C:\Users\Test\Desktop\test ֆայլեր\” ներկայացնում է թղթապանակի ուղին: Եվ մի մոռացեք վերջին»\«հետևելով ճանապարհին.

Ուղղեք բառի զարմանալի սխալները

Սխալները կարող են ժամանակ առ ժամանակ հայտնվել Word-ում: Եվ հետևանքը մահացու է մեր Word ֆայլերի համար: Word-ի զարմանալի փլուզումները հաղթահարելու եղանակներից մեկը հաճախ կրկնօրինակելն է: Հետո վախենալու բան չկա։ Մեկ այլ միջոց է ֆայլերը հետ կանչելն այն բանից հետո, երբ դրանք կոռումպացված են, այսինքն՝ ա Word docx սխալների վերանորոգման արտադրանք.

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված xls վերականգնման գործիք և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com