TargetSection.DifferentFirstPage = sourceSection.DifferentFirstPage
PageSettings.Landscape = ĭim margins As SectionMargins = targetSection.Margins Private Shared Sub ApplySectionSettings(ByVal sourceSection As Section, ByVal targetSection As Section)ĭim pageSettings As SectionPage = targetSection.Page ' This method copies page layout parameters ' Copy a section's page layout parametersĪpplySectionSettings(sourceSection, section)ĭim range As DocumentRange = target.AppendDocumentContent(sourceSection.Range, InsertOptions.KeepSourceFormatting)ĭim targetShapes As ReadOnlyShapeCollection = (range) Section.StartType = SectionStartType.NextPage ' to insert each merged section to the new page Public Shared Sub AppendSection(ByVal target As Document, ByVal source As Document, ByVal sourceSection As Section) SectionsMerger.AppendSection(targetDoc, sourceDoc, section) ' Append each document section one-by-one SourceProcessor.LoadDocument(filenames(i))įor Each section As Section In sourceDoc.Sections ' Load each document to the source processorįor i As Integer = 0 To filenames.Count - 1
DOC MERGE FREE PDF
Shared Function MergeDocuments(ByVal filenames As List(Of String)) As Documentĭim targetProcessor As New RichEditDocumentServer()ĭim targetDoc As Document = targetProcessor.Documentĭim sourceProcessor As New RichEditDocumentServer()ĭim sourceDoc As Document = sourceProcessor.Document A Word add-in to provide the facility to merge to individual Word documents and PDF documents, and to split documents that have already been merged to a new. Using (var wordProcessor = new RichEditDocumentServer()) )
0 kommentar(er)
