Log In
Register
Home
December 5, 2016
Offline
I want to split a document preserving the format try using the following VB scripts but failed to keep the format after file split into 110 files .
Can someone help to rectify the errors
Sub Split()
Dim i As Long, Source As Document, Target As Document, Letter As Range
Set Source = ActiveDocument
For i = 1 To Source.Sections.Count
Set Letter = Source.Sections(i).Range
Set Target = Documents.Add
Target.Range = Letter
Target.Sections(1).PageSetup.SectionStart = wdSectionContinuous
Source.Range.FormattedText = Target.Range.FormattedText
Target.SaveAs FileName:="C:\DATA\" & "Letter to Creditor inviting views - " & i
Target.Close
Next i
End Sub
December 5, 2016
Offline
Pls respond with better codes
Thanks
Trusted Members
October 17, 2018
Offline
What if you tell us more first?
You don't give any version information and I doubt very much that this is an Excel question
December 5, 2016
Offline
Sorry this is Word document macro request.
Trusted Members
October 17, 2018
Offline
I'm out then
December 5, 2016
Offline
Thanks
VIP
Trusted Members
December 7, 2016
Offline
Hello,
I asked Copilot. Don't know if it works though.
Skickades av Copilot:
Sub Split()
Dim i As Long, Source As Document, Target As Document, Letter As Range
Set Source = ActiveDocument
For i = 1 To Source.Sections.Count
Set Letter = Source.Sections(i).Range
Set Target = Documents.Add
' Copy the formatted text from the source to the target
Target.Range.FormattedText = Letter.FormattedText
' Ensure the section start type is continuous
Target.Sections(1).PageSetup.SectionStart = wdSectionContinuous
' Save the new document with a unique name
Target.SaveAs FileName:="C:\DATA\" & "Letter to Creditor inviting views - " & i & ".docx"
' Close the new document
Target.Close
Next i
End Sub
Key Changes:
- FormattedText Property: Use
Letter.FormattedText
instead of
Source.Range.FormattedTextto ensure the formatting of each section is preserved.
- File Extension: Added
.docx
to the
SaveAsfilename to ensure the files are saved in the correct format.
Give this a try and see if it resolves the formatting issues. If you encounter any further problems, feel free to ask!
Br,
Anders
1 Guest(s)
