Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #2  
Old 12-04-2015, 05:41 AM
gmayor's Avatar
gmayor gmayor is offline Filename after splitting document Windows 7 64bit Filename after splitting document Office 2010 32bit
Expert
 
Join Date: Aug 2014
Posts: 4,137
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Maybe something like. I left in the numbering.
Code:
Option Explicit

Sub SplitNotes(delim As String)
Dim doc As Document
Dim arrNotes As Variant
Dim strPath As String
Dim strFilename As String
Dim I As Long
Dim X As Long
Dim oPara As Range
Dim Response As Integer
    ActiveDocument.Save
    strPath = ActiveDocument.Path
    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(Template:=ActiveDocument.FullName)
            doc.Range = arrNotes(I)
            Set oPara = doc.Paragraphs(1).Range
            oPara.End = oPara.End - 1
            strFilename = oPara.Text & Chr(32)
            doc.SaveAs strPath & "\" & strFilename & Format(X, "000")
            doc.Close True
        End If
    Next I
lbl_Exit:
    Set doc = Nothing
    Exit Sub
End Sub
Sub test()
'delimiter
    SplitNotes "XXX"
End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
Splitting Word Document based on line content TwiceOver Word VBA 23 10-12-2015 02:01 PM
Document Filename Generator for Referencing john.adams Word 10 03-26-2013 12:14 AM
Document splitting MsLavigne Word 2 05-09-2012 05:52 AM
Filename after splitting document Save Filename using Document Text Knawl Word 11 10-10-2011 03:00 AM
Filename after splitting document WORD 2003 Need help splitting a HUGE Document dlawson Word 4 04-14-2009 12:22 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 12:56 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft