Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tinqasam id-dokument f'dokumenti multipli bil-kelma?

Jekk għandek dokument bil-kelma kbir li għandek bżonn biex tinqasam f'dokumenti multipli, ħu ftit minuti biex taqra dan it-tutorja. Dan it-tutorja ser jurik żewġ metodi għall-qsim ta 'dokument f'diversi dokumenti.

Dokument tal-Kelma Miftuħa b'delimiter speċifikat b'VBA

Dokument ta 'Dikjarazzjoni Split bil-paġna b'VBA

Dokument tal-Kelma Miftuħa skont l-intestatura / paġna / pawsa tas-sezzjoni / pawża bl-użu ta 'Kutools għall-Kelma

Faċli maqsum dokument wieħed ta 'Kelma għal dawk multipli bil-paġni, paġni tas-sezzjoni / paġni, jew intestatura f'daqqa!

Meta titqabbel mat-tqassim ta 'dokument ta' Kelma permezz tal-ikkupjar u l-ippakkjar, Kutools for Word ser iħaffefek taħdem u ttejjeb l-effiċjenza tax-xogħol tiegħek b'mod drammatiku permezz tal-karatteristika Split tagħha, li tista 'taqsam malajr il-ftuħ attwali tal-Word document għal dawk multipli bil-paġna, waqfa, jew bl-Intestatura 1 kif għandek bżonn. Ikklikkja għal prova b'60 b'xejn!
Dokumenti maqsuma skond il-paġna

Kutools għall-Kelma: Żid 100 Karatteristiċi Avvanzati Ġodda għall-Kelma 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Uffiċċju Tab: Jippermettu Tabbed Editjar u Browsing fl-Uffiċċju, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Classic għall-Uffiċċju: Ġib Fittex Qadim ta 'Uffiċċju 2003 Lura għall-Uffiċċju 2007, 2010, 2013, 2016 u 2019.

vleġġa bużżieqa tal-lemin blu Dokument tal-Kelma Miftuħa b'delimiter speċifikat b'VBA

Minflok ma taqsam id-dokument f'diversi dokumenti manwalment, dan il-metodu se jintroduċi VBA biex jinqasam dokument Word mid-delimiter speċifikat fil-Kelma. Agħmel kif ġej:

1. Istampa Alt + F11 ċwievet flimkien biex tiftaħ it-tieqa Microsoft Visual Basic għal Applikazzjoni;

2. Ikklikkja Daħħal > Moduli, u mbagħad paste taħt il-kodiċi VBA fit-tieqa l-ġdida tal-Modulu tal-ftuħ.

VBA: Dokument Miftuħ ta 'Kelma f'dokumenti Multipli minn 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. Imbagħad ikklikkja Mexxi buttuna jew agħfas il-buttuna F5 biex tapplika l-VBA.

4. Fil-popping out dokument Microsoft Word, jekk jogħġbok ikklikkja l-buttuna Iva biex jimxi 'l quddiem.

Nota:
(1) Kun żgur li żżid id-delimitru tiegħek bħala l-istess bħal "///" fis-sotto-test għad-dokument bejn kull taqsima tat-test li tixtieq tissepara. Ukoll, tista 'tbiddel "///" għal kwalunkwe delimiters biex tissodisfa l-ħtieġa tiegħek.
(2) Tista 'tibdel id-dokumenti "Noti" fis-Sub Test biex jaqdi l-bżonnijiet tiegħek.
(3) U d-dokumenti diviżorji se jiġu ffrankati fl-istess post bil-fajl oriġinali.
(4) M'għandekx bżonn li żżid id-delimiter sat-tmiem tal-fajl oriġinali, jekk tagħmel dan, ikun hemm dokument vojt wara l-qsim.


vleġġa bużżieqa tal-lemin blu Dokument ta 'Dikjarazzjoni Split bil-paġna b'VBA

Hawnhekk hawn VBA ieħor biex jgħinek malajr taqsam dokument wieħed ta 'Kelma għal multipli għal kull paġna f'Kelma. Agħmel kif ġej:

1. Istampa Alt + F11 ċwievet flimkien biex tiftaħ it-tieqa Microsoft Visual Basic għal Applikazzjoni;

2. Ikklikkja Daħħal > Moduli, u mbagħad paste taħt il-kodiċi VBA fit-tieqa l-ġdida tal-Modulu tal-ftuħ.

VBA: Dokument maqsum f'dokumenti multipli b'Paġna fil-Kelma

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. Imbagħad ikklikkja Mexxi buttuna jew press F5 ċavetta biex tiġi applikata l-VBA.

Nota: Id-dokumenti diviżorji se jiġu ffrankati fl-istess post bil-fajl oriġinali.


vleġġa bużżieqa tal-lemin blu Dokument tal-Kelma Miftuħa skont l-intestatura / paġna / pawsa tas-sezzjoni / pawża bl-użu ta 'Kutools għall-Kelma

Jekk għandek installat Kutools għall-Kelma, tista 'tapplika tagħha Split funzjoni li faċilment taqsam dokument wieħed f'ħafna dawk bil-paġna, l-intestatura, is-sezzjoni waqfa, jew pawża tal-paġni kif għandek bżonn fil-Kelma.

Kutools għall-Kelma hija addizzjoni addattata biex tiffaċilita x-xogħol tiegħek u ttejjeb il-ħila tiegħek li tipproċessa dokument verbali. Trial b'xejn għal jiem 45! Ġibu issa!

1. Ikklikkja Kutools Aktar > Split biex tippermetti l-karatteristika Split.
Dokumenti maqsuma tad-dok 001

2. Fid-djalogu Split tal-ftuħ fl-iskrin, jekk jogħġbok (1) speċifika l-folder ta 'destinazzjoni li inti se tiffranka d-dokumenti maqsuma, (2) Iċċekkja l-kriterji li se taqsamhom mill-punt Split bi drop down list, u (3) ikklikkja l-buttuna OK buttuna. Ara l-screenshot:

U issa d-dokument kurrenti ta 'Kelma huwa maqsum skond il-kriterji speċifikati (Intestatura 1 fil-każ tiegħi), u l-folder destinazzjoni jinfetaħ awtomatikament b'dokumenti maqsuma. Ara l-screenshot:
Dokumenti maqsuma tad-dok 002

Nota: Din il-karatteristika Split meraviljuża wkoll tappoġġja dokument maqsum wieħed ta 'Kelma b'paġna, b'waqfa tal-paġni, u b'taqsima li tinqasam faċilment fil-Kelma. Ara hawn taħt screenshots:

Iddeskrivi dokument wieħed ta 'Kelma għal dawk multipli skond il-paġna:

Iddeskrivi dokument wieħed ta 'Kelma għal dawk multipli permezz ta' pawża:

Iddeskrivi dokument wieħed ta 'Kelma għal dawk multipli bit-taqsima pawża:

Tabbed browsing & editjar Dokumenti multipli ta 'Kelma bħala Firefox, Chrome, Internet Esplora 10!

Tista 'tkun familjari li tara paġni web multipli f'Filter / Chrome / IE, u taqleb bejniethom billi tikklikkja t-tabs korrispondenti faċilment. Hawnhekk, Office Tab jappoġġja proċessar simili, li jippermettilek tfittex dokumenti ta 'Kelma multipli f'wieħed Tieqa tal-Kelma, u faċilment taqleb bejniethom billi tikklikkja t-tabs tagħhom. Ikklikkja għall-karatteristiċi kollha mingħajr prova!
Fittex dokumenti ta &#39;kliem multipli f&#39;tieqa waħda bħala Firefox


vleġġa bużżieqa tal-lemin bluArtikli relattivi:

Jingħaqdu dokumenti multipli u jżommu l-format fil-kelma




Kutools għall-Kelma

Aktar minn 100 Advanced Functions għal Word 2003, 2007, 2010, 2013, 2016 u 2019

shot-kutools-700-225-kte

Karatteristiċi Aktar | Free download | Biss $ 39.00 għal mijiet ta 'funzjonijiet

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.
    Maya · 2 months ago
    The split works great for me but on page in the merge file turns into 1.5 pages - something with the page layout (+ additional empty page at the end). any ideas how to go around that?
  • To post as a guest, your comment is unpublished.
    Lisa · 7 months ago
    The Split Word By Document with VBA worked for me, but it is adding a blank page at the end of each document. Is there a way around this?
    • To post as a guest, your comment is unpublished.
      Savvyno · 2 months ago
      I am working on this as well but have not found a way to do it besides manually.
    • To post as a guest, your comment is unpublished.
      Steve · 5 months ago
      Does not work at all for me. Goes through the motions but no documents are saved. Maybe because I am using .DOCX files?
      • To post as a guest, your comment is unpublished.
        Savvy · 2 months ago
        After playing with this code for over an hour I discovered you have to save the document you mail merged then you can run the code on the saved document that has all the pages you need to split up. Hope this helps.
        • To post as a guest, your comment is unpublished.
          Steve · 2 months ago
          I always start with a newly-saved document. I found the split documents were actually saved somewhere (I forget; doesn't matter) they were text only - all the formatting had been dropped.
      • To post as a guest, your comment is unpublished.
        Steve · 5 months ago
        Maybe something to do with Windows 7 settings? Thoughts from anyone?
  • To post as a guest, your comment is unpublished.
    Fenice · 8 months ago
    Mais comment garder une mise en page complexe (image de fond, marges, etc) ?
    Great but how to keep the lay-out (background image, margins ?)
  • To post as a guest, your comment is unpublished.
    Andrew · 9 months ago
    Can you split the document based on Heading 1 styles as your "delimiter".
    • To post as a guest, your comment is unpublished.
      kellytte · 3 months ago
      Hi Andrew,
      The VBA script can split the entire document by page. If you need to split by heading 1, we suggest to try Kutools for Word’s Split (Document) feature.
  • To post as a guest, your comment is unpublished.
    SHUBAM AWASTHI · 1 years ago
    i need to split the document using page range. for example i wanted to split 1 to 10 page in another document. how i can do it