Word sənədinizdən fərdi səhifələri çıxarmağın 2 sürətli yolu

Bugünkü yazıda sizinlə Word sənədinizdən fərdi səhifələri çıxarmağın 2 sürətli yolunu bölüşmək istəyirik.

Bəzən Word sənədində hər səhifədə cədvəl kimi olduqca müstəqil məzmun ola bilər. Və yəqin ki, müxtəlif insanlara müxtəlif cədvəllər göndərməli olacaqsınız. Sonra hər səhifə olan hər cədvəli ayrıca fayl kimi saxlamalı olacaqsınız.

Ağlımıza gələn ilk fikir klassik surətdə yapışdırmaq olmalıdır. Bununla belə, seçimlə bağlı hər şey bəzən zəhlətökən ola bilər, çünki sürükləmək və seçmək heç bir seçim olmadan asanlıqla başa çata bilər. Bu səbəbdən sizə işi görmək üçün makrodan istifadə edərək 2 sürətli üsul tövsiyə edirik.

Metod 1: Cari səhifəni çıxarın və onu yeni sənəd kimi yadda saxlayın

1. İlk növbədə, kursoru çıxarmaq istədiyiniz səhifəyə yerləşdirin.
2. VBA redaktorunu işə salmaq üçün "Developer" sekmesini və sonra "Visual Basic" düyməsini basın. "Tərtibatçı" aktivləşdirilməyibsə, bunun əvəzinə "Alt + F11" düyməsini sıxmaq kifayətdir.
3. İkincisi, üzərinə klikləməklə “Normal” layihəyə keçin.
4. Sonra "Daxil et" sekmesini vurun və "Modul" seçin.
5. Redaktə sahəsini açmaq üçün yeni modulun üzərinə iki dəfə klikləyin.
6. Sonra aşağıdakı kodları ora yapışdırın:

Sub SaveCurrentPageAsANewDoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim strFileName As String
  Dim strFolder As String
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
  strFileName = InputBox("Enter file name here: ")
 
  '  Copy current page.
  objDoc.Bookmarks("\Page").Range.Select
  Selection.Copy
 
  '  Open a new document to paste the selection.
  Set objNewDoc = Documents.Add
  Selection.Paste
 
  objNewDoc.SaveAs FileName:=strFolder & "\" & strFileName & ".docx"
  objNewDoc.Close
End Sub

7. Nəhayət, "Çalış" düyməsini basın.

İndi 2 giriş qutusu olacaq. İlk giriş qutusunda yeni sənədi saxlamaq istədiyiniz yolu daxil edin. Və ikinci sənədin yeni adını daxil edin.

Metod 2: Hər bir səhifəni çıxarın və onu yeni sənəd kimi yadda saxlayın

Aşağıdakı makro sənədin hər bir səhifəsini çıxarmağa imkan verəcək.

1. Əvvəlcə sənədinizin ən əvvəlinə getmək üçün "Ctrl + Home" düyməsini basın.
2. Sonra makronu quraşdırmaq və işə salmaq üçün 1-ci üsuldakı eyni addımları yerinə yetirin.
3. Bu dəfə makronu bununla əvəz edin:

Sub SaveEachPageAsADoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim nPageNumber As Integer
  Dim strFolder As String
  Dim objFileName As Range
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
 
  '  Copy each page in the document to paste it into a new one.
  For nPageNumber = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Copy
 
    Set objNewDoc = Documents.Add
    Selection.Paste
 
    '  Save new doc with the name of "Page" & nPageNumber and get the first 20 characters of the new doc as part of the file name.
    Set objFileName = objNewDoc.Range(Start:=0, End:=20)
    objNewDoc.SaveAs FileName:=strFolder & "\" & "Page " & nPageNumber & " " & objFileName & ".docx"
    objNewDoc.Close
    Application.Browser.Next
  Next nPageNumber
End Sub

Word Problemləri ilə məşğul olun

Müxtəlif Word problemləri var və həmişə olacaq. Məsələ onları düzgün şəkildə həll etməyi öyrənməkdir. Ən tövsiyə olunan yol, əlbəttə ki, mürəkkəb bir şey əldə etməkdir. Söz bərpası alət. Çox gec olmadan məlumatlarınızı bərpa etmək üçün hər dəqiqədən istifadə etməlisiniz.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xarab xlsx və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com