Question

使用VBA宏创建单词时遇到问题。

在我的文档中，我们有很多部分，我们需要重置每个部分的标题。在第1部分中，我们添加了图像1。在第2部分中，我们添加了图像2。

但目前，图像1和图像1都是图像2添加到第1部分，而在第2部分我们设置：LinkToPrevious = False

我们应该做些什么或解决这个问题？谢谢，

Answer 1

这里我的src：p_appWord.Selection.Sections（p_appWord.Selection.Sections.count）.Headers（wdHeaderFooterPrimary）.LinkToPrevious = False p_appWord.Selection.Sections（p_appWord.Selection.Sections.count）.Headers（wdHeaderFooterPrimary）.Range.Delete

sh003_Logo.Shapes("LOGO_ENG").Copy
Set hdr = sec.Headers(wdHeaderFooterPrimary)
hdr.Range.PasteSpecial Placement:=wdFloatOverText, DataType:=wdPasteMetafilePicture
hdr.Range.ParagraphFormat.Alignment = wdAlignParagraphRight
hdr.Range.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly
hdr.Range.ParagraphFormat.LineSpacing = 18
hdr.Range.InsertAfter "P-PageNumber" & vbLf & p_docNo
hdr.Range.Fields.Add Range:=hdr.Range.Words(3), Type:=wdFieldEmpty, Text:="PAGE", PreserveFormatting:=False
hdr.Range.Words(5).Font.Bold = True
hdr.Range.Words(5).Font.Size = 18

VBA-重置Word文档中每个部分的标题

1 个答案: