创建带页脚的Word文档
Imports DocumentFormat.OpenXml.Packaging Imports System.Windows.Forms Imports DocumentFormat.OpenXml.Wordprocessing Imports DocumentFormat.OpenXml Module Module1 <STAThread()> Sub Main() Dim SFD As New SaveFileDialog Dim MDP As MainDocumentPart Dim Doc As Document Dim Body As Body Dim SP As SectionProperties Dim FP As FooterPart Dim Paragraph As Paragraph Dim Run As Run Dim Text As Text Dim FR As FooterReference Dim DSP As DocumentSettingsPart Dim Settings As Settings Dim CP As Compatibility Dim CPS As CompatibilitySetting Dim Path As String SFD.Filter = "Word Document|*.docx" SFD.ShowDialog() Path = SFD.FileName If Path.Length > 0 Then Using WPD As WordprocessingDocument = WordprocessingDocument _ .Create(Path, WordprocessingDocumentType.Document) MDP = WPD.AddMainDocumentPart Doc = New Document Body = New Body SP = New SectionProperties FP = MDP.AddNewPart(Of FooterPart)() FP.Footer = New Footer Paragraph = New Paragraph Run = New Run Text = New Text Text.Text = "Just a test" Run.Append(Text) Paragraph.Append(Run) FP.Footer.Append(Paragraph) FR = New FooterReference With FR .Type = HeaderFooterValues.Default .Id = MDP.GetIdOfPart(FP) End With SP.Append(FR) Body.Append(SP) Doc.Body = Body MDP.Document = Doc DSP = MDP.AddNewPart(Of DocumentSettingsPart)() Settings = New Settings CP = New Compatibility CPS = New CompatibilitySetting With CPS .Name = CompatSettingNameValues.CompatibilityMode .Uri = "http://schemas.microsoft.com/office/word" .Val = "14" End With CP.Append(CPS) Settings.Append(CP) DSP.Settings = Settings End Using Else MsgBox("Path is invalid") End If End Sub End Module
征诛志异,三让两家王朝;功同开辟,一桮万古江南。