Note: The other languages of the website are Google-translated. Back to English

Belgeyi kelimede birden çok belgeye nasıl ayırabilirim?

Birden fazla belgeye bölmeniz gereken büyük bir kelime belgeniz varsa, bu eğitimi okumak için birkaç dakikanızı ayırın. Bu eğitim, size bir belgeyi birden çok belgeye bölmek için iki yöntem gösterecektir.


VBA ile belirtilen sınırlayıcıya göre Word belgesini böl

Belgeyi manuel olarak birden çok belgeye bölmek yerine, bu yöntem bir Word belgesini Word'de belirtilen sınırlayıcıyla bölmek için bir VBA sunar. Lütfen aşağıdaki işlemleri yapın:

1. Basın Alt + F11 Microsoft Visual Basic for Application penceresini açmak için birlikte tuşları;

2. tıklayın Ekle > modülve ardından yeni açılan Modül penceresine VBA kodunun altına yapıştırın.

VBA: Word Belgesini Sınırlayıcıya Göre Birden Çok Belgeye Böl

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. Sonra tıklayın koşmak düğmesine veya VBA'yı uygulamak için F5 tuşuna basın.

4. Microsoft Word belgesini açarken, devam etmek için lütfen Evet düğmesine tıklayın.

Not:
(1) Sınırlayıcınızı aşağıdaki gibi eklediğinizden emin olun: "///" Alt testte, ayırmak istediğiniz metnin her bölümü arasındaki belgeye. Ayrıca değiştirebilirsiniz "///" ihtiyacınızı karşılamak için herhangi bir sınırlayıcıya.
(2) Belgeleri değiştirebilirsiniz "Notlar" İhtiyaçlarınıza uyacak şekilde alt Testte.
(3) Bölünen belgeler, orijinal dosyayla aynı yere kaydedilecektir.
(4) Orijinal dosyanın sonuna sınırlayıcı eklemenize gerek yoktur, yaparsanız, böldükten sonra boş bir belge olacaktır.

VBA ile Word belgesini sayfaya bölün

İşte bir Word belgesini Word'de birden çok sayfaya hızlıca bölmenize yardımcı olacak başka bir VBA. Lütfen aşağıdaki işlemleri yapın:

1. Basın Alt + F11 Microsoft Visual Basic for Application penceresini açmak için birlikte tuşları;

2. tıklayın Ekle > modülve ardından yeni açılan Modül penceresine VBA kodunun altına yapıştırın.

VBA: Belgeyi Word'de Sayfaya Göre Birden Çok Belgeye Böl

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. Sonra tıklayın koşmak tuşuna basın veya tuşuna basın. F5 VBA'yı uygulamak için anahtar.

Not: Bölünen belgeler orijinal dosya ile aynı yere kaydedilecektir.


Kutools for Word kullanarak başlık / sayfa / bölüm sonu / sayfa sonu ile Word belgesini bölün

Kutools for Word yüklüyse, uygulayabilirsiniz Bölünmüş Word'de ihtiyaç duyduğunuz şekilde bir belgeyi sayfa, başlık, bölüm sonu veya sayfa sonuna göre kolayca birden çok belgeye bölme işlevi ..

Kutools for Word işinizi kolaylaştırmak ve word belgesini işleme yeteneğinizi geliştirmek için kullanışlı bir eklentidir. Ücretsiz Deneme 60 günler! Şimdi sahip ol!

1.Tıklayın Kutools Artı > Bölünmüş etkinleştirmek için Bölünmüş özelliği.

2. Ekrandaki Bölme iletişim kutusunu açarken aşağıdaki işlemleri yapabilirsiniz:

(1) Bölme yolunu seçin. Bölme ölçütü açılır liste.
Bu özellik 6 bölme yöntemini destekler: başlık 1, sayfa sonları, bölüm sonları, sayfalar, her n sayfada bir ve aşağıda gösterilen ekran görüntüsü gibi özel sayfa aralıkları:

(2) Araştır düğmesine tıklayın  belirtmek bölünmüş belgeleri içine kaydedeceğiniz hedef klasör;

(3) Yeni belge adlarının öneki olarak bir anahtar sözcük yazın. Belge Öneki kutu.

İpuçları:
(1) Geçerli belgeyi bölmeyi belirtirseniz Her n sayfada, numarayı belirtmeniz gerekir Her n sayfada Kutu;

(2) Mevcut belgeyi özel sayfa aralıklarına göre bölmeyi belirtirseniz, bu özel sayfa aralıklarını virgülle ayırarak girmeniz gerekir. Sayfa kutu, örneğin, kutuya 1, 3-5, 12 yazın.

3. Tıkla Ok bölmeyi başlatmak için düğmesine basın.

Ardından, geçerli belge belirtilen bölme yöntemiyle bölünür ve yeni belgeler hedef klasöre toplu olarak kaydedilir.

Birden çok Word belgesini Firefox, Chrome, Internet olarak sekmeli taramak ve düzenlemek Keşfet 10!

Firefox / Chrome / IE'de birden çok web sayfasını görüntülemeye ve ilgili sekmelere kolayca tıklayarak aralarında geçiş yapmaya aşina olabilirsiniz. Burada Office Tab, tek bir Word penceresinde birden çok Word belgesine göz atmanıza ve sekmelerine tıklayarak aralarında kolayca geçiş yapmanıza olanak tanıyan benzer işlemleri destekler. Tüm özellikleri ücretsiz deneme için tıklayın!
Firefox olarak tek pencerede birden çok sözcük belgesine göz atın


İlgili makaleler:



Önerilen Word Üretkenlik Araçları

 

Kutools For Word - Word İçin 100'den Fazla Gelişmiş Özellik,% 50 Zaman Kazanın

  • Karmaşık ve tekrarlanan işlemler saniyeler içinde tek seferlik işlem yapılabilir.
  • Klasörler arasında birden çok görüntüyü aynı anda Word belgesine ekleyin.
  • Birden çok Word dosyasını klasörler arasında istediğiniz sırada birleştirin ve birleştirin.
  • Geçerli belgeyi başlık, bölüm sonu veya diğer kriterlere göre ayrı belgelere bölün.
  • Dosyaları Doc ve Docx, Docx ve PDF, ortak dönüştürme ve seçim için araçlar koleksiyonu vb. Arasında dönüştürün ...
Yorumları sıralama ölçütü
Yorumlar (45)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yukarıdaki VB kodunu kullanarak word belgesini bölmeye çalıştığımda, tüm görüntüleri ve eklenmiş nesneleri kaldırarak bölünmesi.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Dhamo'nunkine benzer bir problem yaşıyorum. Birçok gömülü içerik denetimi içeren büyük bir dosyayla başladım. VB kodunu kullanarak Word dosyamı böldüğümde, içerik kontrollerinin tümü normal metne dönüştürüldü. Orijinalin biçimlendirmesini kaybetmeden bir dosyayı bölmenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba. Bu komut dosyalarını kullanarak .doc'u belge başına bir sayfa değil nasıl bölebilirim? Örneğin belge başına 10 veya 5 sayfa
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili ekip, Belgeyi birden çok tek sayfalı belgeye bölmek için VBA iyi çalışıyor, ancak sorun bölünmüş belgelerin tablo biçimlerine sahip olmamasıdır. (ana belgedeki tablo biçimleri, bölünmüş belgelerde tablo olarak biçimlendirilmez). Makroları alabilirsem şimdiden teşekkürler, böylece ana belgedeki tablo biçimleri bölünmüş belgelerde bozulmaz
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok yardımcı oldunuz. Orijinal belgemin 'salt okunur' seti vardı. Bu yeni belgelere aktarılmıyor. Bu eklemek mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kutools for Word, salt okunur belgeler için çalışmaz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ne yazık ki, Kutools ile sayfaları bölemiyorum. Ne yapabilirim? Bu hata mesajını alıyorum: Informationen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. **************** Ausnahmetext ************** System.NotSupportedException: Das angegebene Pfadformat wird nicht unterstützt. bei System.Security.Util.StringExpressionSet.CanonicalizePath(String path, Boolean needFullPath) bei System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Boolean needFullPath) bei System.Security.Permissions.FileIOPermission,FileIOPermission.FileIOPermission AccessControlActions denetimi, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) bei System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean checkForDuplicates,IO Boolean need) InternalCreateDirectoryHelper(String path, Boolean checkHost) ve System.IO.Directory.CreateDirectory(String path) ve Kutools.FormDocumentSplit.€ () ve Kutools.FormDocumentSplit.› (Object “ , EventArgs ”.Forms.WindowsControl) System.Windows.Forms.Button.OnClick(EventArgs e) ve System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) ve System.Windows.F için OnClick(EventArgs e) orms.Control.WmMouseUp(Message& m, MouseButtons düğmesi, Int32 tıklamaları) System.Windows.Forms.Control.WndProc(Message& m) ve System.Windows.Forms.ButtonBase.WndProc(Message& m) ve System.Windows.Forms. System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) ve System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) ve System.Windows.Forms.NativeWindow.Callback( için Button.WndProc(Message& m) IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir emekli için Windows XNUMX'nin eski yöntemine ne olduğunu anlaması çok zor, bu program biz yaşlı insanlar için çok kolaydı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Makronuz çalışıyor GERÇEKTEN Ancak, bölünmüş belgelerin dar kenar boşluklarını ve iki sütun düzenini korumasını istiyorum. Yargılamadan(!) daha çok şans eseri, bunu manuel olarak başarmayı başardım ve sonuç tam olarak istediğim gibi oldu. Daha sonra makro kaydediciyi kullandım ancak bunu başarmak için kaydedilen kodu değiştirmek için Word VBA bilgisine sahip değilim. Yardım edebilir misin? Şimdiden teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
İlk bölünmüş belge kodunu denedim ve işe yaramadı. Üç bölüme ayırdığını söyledi, ama yapmadı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İlk VBA, geçerli belgeyi "///" sınırlayıcısına göre böler. Belgenize "///" ayırma sınırlayıcısını eklediniz mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Unut gitsin, harf sayılarıyla birkaç kez denedim, işe yaramadı, sonra yorumlarımı sildiğini gördüm. Sadece ilk kodun benim için işe yaramadığını not etmek için, belgeyi üç bölüme ayırdığını söyledi, ancak yapmadı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ana dosyayı böldükten sonra dosyaların adını nasıl değiştireceğini bilen var mı, adları dosyanın başlığına göre değiştirmek istiyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA Kodunu yaptım: belgeyi sınırlayıcıya göre birden çok belgeye böldüm, belgeyi bölüyor ama ne yazık ki grafikler siliniyor, ayrıca biçimlendiriliyor. Bunun bir çözümü var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
makro kodu için teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler, bu çok yardımcı oldu!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bana biraz zaman kazandırdın, teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler !

Bir soru Tüm bölünmüş belgeleri PDF'ye kaydetmek için herhangi bir fikriniz var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
"VBA ile Sayfaya Göre Word Belgesini Böl" bölümündeki kodu kullandım. Belgeleri bölmeye çalıştı ancak biçimlendirmeyi bozdu - 2 sayfada olması gerekenin bunun yerine 5'te olmasına neden oldu. Kodla oynadım ve bir çözüm buldum.


Bu satırı değiştirdim: docSingle.Range.Paste 'pano içeriğini yeni belgeye yapıştırın

bu satırla: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Umarım bu, biçimlendirme sorunları yaşayan bazılarınıza yardımcı olur.
Bu yorum sitedeki moderatör tarafından en aza indirildi
"VBA ile Sayfaya Göre Word Belgesini Böl" bölümündeki kodu kullandım. Orijinal başlığı tüm yeni dosyalarda korumak için kodu nasıl değiştirmeliyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
bireysel birleştirme eklentileri gibi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bölme (Belge) özelliği Kutools for Word, kullanıcıların bir Word belgesini başlık 1, sayfa sonu, bölüm sonu veya sayfa ile bölmelerine yardımcı olabilir.
Ek olarak, Kutools for Word, birden fazla Word belgesini bir araya getirmek için Birleştirme özelliğini de içerir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sayfa aralığını kullanarak belgeyi bölmem gerekiyor. örneğin başka bir belgede 1 ila 10 sayfayı bölmek istedim. Nasıl yapabilirim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba - aynı sorum var, bunu yapmanın herhangi bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Belgeyi Başlık 1 stillerine göre "sınırlayıcınız" olarak bölebilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Andrew,
VBA komut dosyası, tüm belgeyi sayfaya bölebilir. 1. başlığa göre bölmeniz gerekiyorsa, Kutools for Word'ün Böl (Belge) özelliğini denemenizi öneririz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İndirilen yem hiç açılmıyor. Uzun süre beklemek.
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır