Kidokezo: Lugha zingine ni Google-Ilitafsiriwa. Unaweza kutembelea English toleo la kiungo hiki.
Ingia
x
or
x
x
Daftari
x

or

Jinsi ya kupasia hati katika nyaraka nyingi kwa neno?

Ikiwa una hati kubwa ya neno ambayo unahitaji kupasuliwa katika nyaraka nyingi, pata dakika chache kusoma mafunzo haya. Mafunzo haya yatakuonyesha njia mbili za kugawanya hati katika nyaraka nyingi.

Piga hati ya Neno na mtangazaji maalum na VBA

Split hati ya neno na ukurasa na VBA

Fungua hati ya neno kwa kichwa / ukurasa / sehemu ya kuvunja / ukurasa wa kuvunja kwa kutumia Kutools kwa Neno

Fungua kwa urahisi hati moja ya Neno kwa sehemu nyingi kwa ukurasa, kuvunja sehemu / ukurasa, au kuelekea mara moja!

Ikiwa kulinganisha na kugawanisha hati ya Neno kwa kuiga na kuifanya, Kutools kwa Neno itasaidia kufanya kazi, na kuboresha ufanisi wa kazi yako kwa kiasi kikubwa kwa kipengele chake cha Split, ambacho kinaweza kupasua haraka hati ya sasa ya ufunguzi wa Neno kwa sehemu nyingi kwa ukurasa, kwa kuvunja sehemu, na ukurasa kuvunja, au kwa kichwa cha 1 kama unahitaji. Bofya kwenye jaribio la bure la siku ya 60!
nyaraka za kupitisha kwa ukurasa

Kutools kwa Neno: Ongeza Makala mpya ya Advanced ya 100 Neno 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Tabia ya Ofisi: Wezesha Uhariri wa Tabbed na Utafutaji katika Ofisi, Kama Chrome, Firefox, IE 8 / 9 / 10.
Menyu ya Classic ya Ofisi: Kuleta Angalia Kale ya ofisi ya 2003 Nyuma kwa Ofisi 2007, 2010, 2013, 2016 na 2019.

Mshale wa bluu wa kulia Piga hati ya Neno na mtangazaji maalum na VBA

Badala ya kugawanyika hati katika hati nyingi kwa manually, njia hii itaanzisha VBA ili kugawanya hati ya Neno na mtangazaji maalum katika Neno. Tafadhali fanya kama ifuatavyo:

1. Bonyeza Alt + F11 funguo pamoja ili kufungua Microsoft Visual Basic kwa dirisha la Maombi;

2. Bonyeza Ingiza > Modules, na kisha kuweka chini ya VBA code katika dirisha mpya kufunguliwa dirisha.

VBA: Toka Nakala ya Hati katika Nyaraka nyingi na Delimiter

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
'delimiter & filename
SplitNotes "///", "Notes "
End Sub

3. Kisha bonyeza Kukimbia kifungo au bonyeza F5 ufunguo wa kutumia VBA.

4. Katika hati ya Microsoft Word, tafadhali bofya kifungo cha Ndiyo kuendelea.

Kumbuka:
(1) Hakikisha kuongeza mchezaji wako sawa na "///" katika mtihani mdogo kwenye hati kati ya kila sehemu ya maandishi unayotaka kuitenganisha. Pia, unaweza kubadilisha "///" kwa wabunifu wowote ili kukidhi mahitaji yako.
(2) Unaweza kubadilisha nyaraka "Vidokezo" katika mtihani mdogo ili kukidhi mahitaji yako.
(3) Na nyaraka za kugawanyika zitahifadhiwa kwenye sehemu moja na faili ya awali.
(4) Huna haja ya kuongeza mchezaji hadi mwisho wa faili ya awali, kama unafanya, kutakuwa na hati tupu baada ya kugawanyika.


Mshale wa bluu wa kulia Split hati ya neno na ukurasa na VBA

Hapa kuna VBA nyingine ili kukusaidia haraka kupasua hati moja ya Neno kwa nyingi na ukurasa katika Neno. Tafadhali fanya kama ifuatavyo:

1. Bonyeza Alt + F11 funguo pamoja ili kufungua Microsoft Visual Basic kwa dirisha la Maombi;

2. Bonyeza Ingiza > Modules, na kisha kuweka chini ya VBA code katika dirisha mpya kufunguliwa dirisha.

VBA: Split Document katika Nyaraka nyingi na Ukurasa katika Neno

Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen _
flicker a bit.
Set docMultiple = ActiveDocument 'Work on the active document _
(the one currently containing the Selection)
Set rngPage = docMultiple.Range 'instantiate the range object
iCurrentPage = 1
'get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
If iCurrentPage = iPageCount Then
rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page)
Else
'Find the beginning of the next page
'Must use the Selection object. The Range.Goto method will not work on a page
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
'Set the end of the range to the point between the pages
rngPage.End = Selection.Start
End If
rngPage.Copy 'copy the page into the Windows clipboard
Set docSingle = Documents.Add 'create a new document
docSingle.Range.Paste 'paste the clipboard contents to the new document
'remove any manual page break to prevent a second blank
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
'build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
docSingle.SaveAs strNewFileName 'save the new single-paged document
iCurrentPage = iCurrentPage + 1 'move to the next page
docSingle.Close 'close the new document
rngPage.Collapse wdCollapseEnd 'go to the next page
Loop 'go to the top of the do loop
Application.ScreenUpdating = True 'restore the screen updating
'Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub 

3. Kisha bonyeza Kukimbia kifungo au waandishi wa habari F5 ufunguo wa kutumia VBA.

Kumbuka: Nyaraka za kugawanyika zitahifadhiwa kwenye sehemu moja na faili ya awali.


Mshale wa bluu wa kulia Fungua hati ya neno kwa kichwa / ukurasa / sehemu ya kuvunja / ukurasa wa kuvunja kwa kutumia Kutools kwa Neno

Ikiwa una Kutools kwa Neno iliyowekwa, unaweza kuitumia Kupasuliwa kazi ili ugawanye hati moja kwa urahisi kwa njia nyingi kwa ukurasa, kichwa, sehemu ya kuvunja, au kuvunja ukurasa kama unahitaji kwa neno.

Kutools kwa Neno ni kuongezea vyema ili kupunguza kazi yako na kuboresha uwezo wako wa usindikaji hati ya neno. Jaribio la bure kwa siku 45! Pata Sasa!

1. Bonyeza Kutools Zaidi > Kupasuliwa ili kuwezesha kipengele cha Split.
doc kupasua nyaraka 001

2. Katika ufunguzi wa ufunguzi wa mazungumzo kwenye skrini, tafadhali (1) taja folda ya marudio utahifadhi nyaraka zilizogawanyika ndani, (2) Vigezo vya hundi utagawanyika na kutoka Kupasuliwa na onyesha orodha, na (3) bofya OK kifungo. Angalia skrini:

Na sasa hati ya Neno la sasa imegawanywa na vigezo maalum (Heading 1 katika kesi yangu), na folda ya marudio inafungua moja kwa moja na nyaraka za kupasuliwa. Angalia skrini:
doc kupasua nyaraka 002

Kumbuka: Kipengele hiki cha kupiga Split pia kinasaidia kugawanya hati moja ya Nakala na ukurasa, na kuvunja ukurasa, na kwa kuvunja sehemu kwa urahisi katika Neno. Tazama viwambo vilivyo chini:

Split hati moja ya Neno kwa nyingi nyingi kwa ukurasa:

Piga hati moja ya Neno kwa njia nyingi kwa kuvunja ukurasa:

Split hati moja ya Neno kwa nyingi nyingi kwa kuvunja sehemu:

Kuvinjari na kuhariri nyaraka nyingi za Neno kama Firefox, Chrome, Internet Vumbua 10!

Unaweza kuwa na ujuzi wa kuona tovuti nyingi kwenye Firefox / Chrome / IE, na ubadili kati yao kwa kubonyeza tabo zinazofaa kwa urahisi. Hapa, Ofisi ya Tabaka inasaidia usindikaji sawa, ambayo inakuwezesha kuvinjari nyaraka za Neno nyingi katika dirisha moja la Neno, na urahisi kubadili kati yao kwa kubonyeza tabo zao. Bofya kwa majaribio kamili ya jaribio la bure!
Vinjari hati nyingi za neno katika dirisha moja kama Firefox


Mshale wa bluu wa kuliaNyaraka za uhusiano:

Unganisha hati nyingi na kuweka muundo kwa neno




Kutools kwa Neno

Zaidi ya kazi za 100 za Juu kwa Neno 2003, 2007, 2010, 2013, 2016 na 2019

risasi-kutools-700-225-kte

Makala zaidi | bure Download | Tu $ 39.00 kwa mamia ya kazi

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    raid3n06 · 1 years ago
    like individual merge add ons
    • To post as a guest, your comment is unpublished.
      kelly001 · 1 years ago
      The Split (Document) feature of Kutools for Word can help users to split a Word document by heading 1, page break, section break, or page.
      In addition, Kutools for Word also includes Merge feature to merge multiple Word documents into one.
  • To post as a guest, your comment is unpublished.
    Jason · 1 years ago
    I used the code from the "Split Word Document By Page With VBA" section. How should I amend the code in order to maintain the original header in all of the new files?
  • To post as a guest, your comment is unpublished.
    Erica · 1 years ago
    I used the code from the "Split Word Document By Page With VBA" section. It worked to split the documents out but messed up the formatting - causing what should have been on 2 pages to be on 5 instead. I played around with the code and ended up finding a solution.


    I replaced this line: docSingle.Range.Paste 'paste the clipboard contents to the new document

    with this line: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

    Hope this helps some of you who've had formatting issues.
  • To post as a guest, your comment is unpublished.
    Michal · 1 years ago
    Thanks !

    One question do You have any idea to save all the split documents into PDF ?
  • To post as a guest, your comment is unpublished.
    Tjebbe · 1 years ago
    You just saved me a Sh*t load of time, thanks!