python-docx 标题_使用Python docx放置标题

(关于这个问题已经过时了……)

我在我的项目中使用了一个变通方法，其中我的“客户”希望通过以下方式在不同的页面中使用不同的标题：使用python docx和分节符创建文档

使用两个参数执行word宏文件(.xlsm)：(1)fileName=path，docTitle=title，即要插入页脚的文档。

宏文件将打开新创建的文档，并添加已在宏文件中的页眉和页脚。如果页眉和页脚文本需要更改，则需要对其进行修改。

Pyton代码：wd = win32com.client.Dispatch("Word.Application")

wd.Visible = False

doc = wd.Documents.Open(pathToDOCM) # path here

wd.Run("Main.RunMain",fileName, docTitle) # 2 args

doc.Close()

del wd

VBA代码：VBA (inside *.xlsm) code:

Sub RunInside()

Call RunMain("C:\Users\???\dokument.docx", "test")

End Sub

Sub RunMain(wordDocument As String, wordTitle As String)

' Create Headers

Call CreateHeaders(wordDocument, wordTitle)

End Sub

Sub CreateHeaders(wordDocument As String, wordTitle As String)

Dim i As Integer

Dim outputName As String

Dim aDoc As Document

Dim oApp As Word.Application

Dim oSec As Word.Section

Dim oDoc As Word.Document

Dim hdr1, hdr2 As HeaderFooter

Dim ftr1, ftr2 As HeaderFooter

'Create a new document in Word

Set oApp = New Word.Application

'Set oDoc = oApp.Documents.Add

Set oDoc = oApp.Documents.Open(wordDocument)

'Set aDoc as active document

Set aDoc = ActiveDocument

oDoc.BuiltInDocumentProperties("Title") = wordTitle

For i = 1 To 9:

Set hdr1 = aDoc.Sections(i).Headers(wdHeaderFooterPrimary)

Set hdr2 = oDoc.Sections(i).Headers(wdHeaderFooterPrimary)

Set ftr1 = aDoc.Sections(i).Footers(wdHeaderFooterPrimary)

Set ftr2 = oDoc.Sections(i).Footers(wdHeaderFooterPrimary)

If i > 1 Then

With oDoc.Sections(i).Headers(wdHeaderFooterPrimary)

.LinkToPrevious = False

End With

With oDoc.Sections(i).Footers(wdHeaderFooterPrimary)

.LinkToPrevious = False

End With

End If

hdr1.Range.Copy

hdr2.Range.Paste

ftr1.Range.Copy

ftr2.Range.Paste

Next i

outputName = Left(wordDocument, Len(wordDocument) - 5)

outputName = outputName + ".pdf"

oDoc.SaveAs outputName, 17

oDoc.Close SaveChanges:=wdSaveChanges

Set oDoc = Nothing

Set aDoc = Nothing

End Sub

最后备注：

代码循环遍历不同的部分并复制粘贴页眉和页脚。它还将文档保存到*.PDF。