Word құжатыңыздан жеке беттерді шығарудың 2 жылдам әдісі

Бүгінгі жазбада біз сіздермен Word құжатынан жеке беттерді алудың 2 жылдам әдісімен бөліскіміз келеді.

Кейде Word құжатында әрбір бетте кесте сияқты толығымен тәуелсіз мазмұн болуы мүмкін. Әртүрлі адамдарға әртүрлі кестелерді жіберу қажет болуы мүмкін. Содан кейін әр беттегі әрбір кестені жеке файл ретінде сақтау керек болады.

Біздің санамызға келетін бірінші идея классикалық көшіру және қою болуы керек. Дегенмен, таңдауды қамтитын кез келген нәрсе кейде тітіркендіргіш болуы мүмкін, өйткені сүйреп апару және таңдау мүлдем таңдаусыз оңай аяқталуы мүмкін. Осы себепті тапсырманы орындау үшін макросты қолданатын 2 жылдам әдісті ұсынамыз.

1-әдіс: Ағымдағы бетті шығарып, оны жаңа құжат ретінде сақтаңыз

1. Ең алдымен, курсорды бөліп алғыңыз келетін бетке орналастырыңыз.
2. VBA өңдегішін шақыру үшін «Әзірлеуші» қойындысын басыңыз, содан кейін «Visual Basic» түймесін басыңыз. «Әзірлеуші» іске қосылмаған болса, оның орнына «Alt+ F11» пернелерін басыңыз.
3. Екіншіден, оны басу арқылы «Қалыпты» жобаға өтіңіз.
4. Әрі қарай «Кірістіру» қойындысын басып, «Модуль» таңдаңыз.
5. Өңдеу аймағын ашу үшін жаңа модульді екі рет басыңыз.
6. Содан кейін келесі кодтарды қойыңыз:

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. Соңында, «Іске қосу» батырмасын басыңыз.

Енді 2 енгізу өрісі болады. Бірінші енгізу жолағында жаңа құжатты сақтағыңыз келетін жолды енгізіңіз. Ал екіншісіне жаңа құжат атауын енгізіңіз.

2-әдіс: Әрбір бетті шығарып, оны жаңа құжат ретінде сақтаңыз

Келесі макрос құжаттың әрбір жеке бетін шығаруға мүмкіндік береді.

1. Біріншіден, құжаттың ең басына өту үшін «Ctrl+ Home» түймесін басыңыз.
2. Содан кейін макросты орнату және іске қосу үшін 1-әдістегі бірдей қадамдарды орындаңыз.
3. Бұл жолы макросты осымен ауыстырыңыз:

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 мәселелерімен айналысу

Word бағдарламасында әртүрлі мәселелер бар және бола береді. Мәселе оларды дұрыс шешуді үйренуде. Әрине, ең ұсынылатын әдіс - күрделі тәсіл. Сөзді қалпына келтіру құрал. Тым кеш болмай тұрып, деректерді қалпына келтіру үшін әр минутты пайдалану керек.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. жемқор xlsx және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com