Բառի խախտումները ձեր Word փաստաթղթում արագ տեղադրելու 3 եղանակ

Այս հոդվածում մենք կկենտրոնանանք ցույց տալու ձեր Word փաստաթղթում բաժինների ընդմիջումները արագ տեղադրելու 3 եղանակներ:

Բաժինների ընդմիջումները օգտակար են փաստաթուղթը բաժինների, գլուխների և այլն բաժանելու համար: Բացի այդ, բաժինների ընդմիջումները զետեղելը տարբեր էջերի վրա տարբեր վերնագրեր կամ էջատակներ տեղադրելու անփոխարինելի մասն է:

Սովորաբար, մենք ստիպված կլինենք անցնել էջը և գտնել կուրսորը պատշաճ դիրքում: Հաջորդը կտտացրեք «Էջի դասավորությունը» և «Ընդմիջումներ» կոճակին: Եվ ապա բացվող ընտրացանկում ընտրեք հատվածի ընդմիջման տեսակը: Նման ընթացակարգը երբեմն կարող է հոգնեցուցիչ լինել: Հետեւաբար, մենք ուզում ենք փրկել ձեզ սովորական ռեժիմից և ընդունել արագ և կեղտոտ լուծում:

Մեթոդ 1. Հատուկ էջի վրա տեղադրեք հատվածի ընդմիջում

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

Sub InsertBreakOnSpecificPage()
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  Selection.Collapse wdCollapseEnd
  Selection.InsertBreak Type:=wdSectionBreakContinuous
End Sub

7. Այժմ կոդերը կատարելու համար կտտացրեք «Գործարկել» կամ սեղմել «F5»:
8. Հաջորդը, հուշման դաշտում մուտքագրեք նպատակային էջի էջի համարը: Եվ սեղմեք «Լավ»՝ շարունակելու համար:

Մինչ այժմ դուք ներդրել եք հատվածի ընդմիջում 2-րդ էջի վերջում:

Նշում:

Եթե ​​ուզում եք բաժինների ընդմիջումների օգտագործմամբ բաժանել մի քանի անընդմեջ էջեր որպես բաժին, ապա ձեզ հարկավոր է երկու անգամ տեղադրել բաժնի ընդմիջումը, մեկը նախորդ բաժնի վերջին էջի վերջում և մեկը այս նոր բաժնի վերջին էջի վերջում: ,

Նման դեպքում առաջին ընդմիջումը տեղադրելու ժամանակ պետք է հիշել, որ մուտքագրեք ճիշտ համարը, որը նախորդ բաժնի վերջին էջի էջի համարն է:

Մեթոդ 2. Փաստաթղթի յուրաքանչյուր էջում տեղադրեք հատվածի ընդմիջում

1. Նախ, տեղադրեք և գործարկեք մակրոը ՝ ճշգրիտ հետևելով վերը նշված քայլերին:
2. Դրանից հետո մակրոն փոխարինեք այսով.

Sub InsertBreakOnEachPage()
  Dim nTotalPageNumber As Integer
 
  For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Collapse wdCollapseEnd
    Selection.InsertBreak Type:=wdSectionBreakContinuous
  Next
End Sub

Այս մակրոը ներդնում է բաժնի ընդմիջում ընթացիկ փաստաթղթի յուրաքանչյուր էջի վերջում:

Մեթոդ 3. Բազմաթիվ փաստաթղթերի յուրաքանչյուր էջում տեղադրեք հատվածի ընդմիջում

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

Sub InsertBreaksIntoMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim nTotalPageNumber As Integer
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber
      Application.Browser.Target = wdBrowsePage
      ActiveDocument.Bookmarks("\page").Range.Select
      Selection.Collapse wdCollapseEnd
      Selection.InsertBreak Type:=wdSectionBreakContinuous
    Next
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Մակրոը պետք է գործարկի «seննարկել» պատուհանը: Ընտրեք այն թղթապանակը, որտեղ պահում եք փաստաթղթերը և կտտացրեք «Լավ»:

Գործընթացը կտևի ոչ ավելի, քան մի քանի վայրկյան:

Փաստաթղթերի կոռուպցիայի հարմար գործիք

Հիասթափեցնող փորձ է վնասված փաստաթղթերի հետ հանդիպելը: Նման սցենարում լավ և հուսալի գործիք է, որը կարող է օգնել վերանորոգել Word փաստաթղթերը կկարողանան շատ ազատել անհանգստությունը: Հետեւաբար, վերանորոգման գործիք ընտրելիս պետք է չափազանց զգույշ լինել: Անբավարար օգտակարությունը կարող է հետագա վնաս պատճառել:

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

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