创建带页脚的Word文档

最新推荐文章于 2021-02-25 08:28:01 发布

勾吴江南

最新推荐文章于 2021-02-25 08:28:01 发布

阅读量895

点赞数

分类专栏： OpenXml Wordprocessing Document Office Development 文章标签： path module fp string 文档

本文链接：https://blog.csdn.net/TX_OfficeDev/article/details/7821844

版权

Office Development 同时被 3 个专栏收录

134 篇文章 0 订阅

订阅专栏

OpenXml

26 篇文章 0 订阅

订阅专栏

Wordprocessing Document

9 篇文章 0 订阅

订阅专栏

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