0

最近我在工作中一直在与出版商斗争，最近的担忧是软件无法提供简单的自动更新“总页数”计数。

我决定研究宏来寻找解决方案，但由于我对 VBA 的了解有限，我只能在遇到障碍之前变得如此胖。

我想创建一个在打开文档时自动启动的宏，并尽可能频繁地更新母版页中的文本框。文本框应显示“Y 页的 X”，但由于出版商的限制，只有“X”会自动更新，而不使用宏。

我现在拥有的：

Private WithEvents PubApp As Publisher.Application

Private Sub Document_Open()
 Set PubApp = Publisher.Application
End Sub

Private Sub PubApp_WindowPageChange(ByVal Vw As View)
 MsgBox "Your publication contains " & _
 ActiveDocument.Pages.Count & " page(s)."
End Sub

宏在文档打开时自动启动，并在用户每次更改页面时创建一个带有总页码的弹出窗口。

所以，我完成了目标的前半部分，但在其余部分我需要一些帮助。

4

2 回答 2

1

这是一个适用于任何有同样问题的人的工作宏

Private WithEvents PubApp As Publisher.Application

Private Sub Document_Open()
 Set PubApp = Publisher.Application
End Sub

Private Sub PubApp_WindowPageChange(ByVal Vw As View)

  Dim mp As MasterPages
  Set mp = ActiveDocument.MasterPages

  With mp.Item(1)
   .Shapes(19).TextFrame.TextRange.Text = ""
   .Shapes(19).TextFrame.TextRange.InsertPageNumber
   .Shapes(19).TextFrame.TextRange.InsertBefore _
            NewText:="Page "
    If ActiveDocument.Pages.Count > 9 Then
        .Shapes(19).TextFrame.TextRange.InsertAfter _
            NewText:=" of " & _
            ActiveDocument.Pages.Count
    Else
        .Shapes(19).TextFrame.TextRange.InsertAfter _
            NewText:=" of 0" & _
            ActiveDocument.Pages.Count
    End If
  End With

End Sub

XInmp.Item(X)标识您的母版页（如果您有多个）。

YinShapes(Y)标识目标文本框。

该宏在后台运行，无需主动输入，并在每次页面更改时刷新目标文本框的内容。

由于文档中使用的自动页码格式是“ 01, 02, 03 ... 11, 12 13” 0，因此如果所述数字低于10.

我确信有更优雅的方法可以解决这个问题，但是，至少它有效。

于 2015-03-17T10:04:53.643 回答
0

对于其他试图研究有关使用 Publisher 中的 VBA 以编程方式更改母版页中的页眉或页脚的有限信息的人来说，这是一个澄清。此技巧还包括说明如何将文本添加到标题的左侧、中心、右侧部分：

所有功劳归于 M.Baroni

Function FixHeader1()
  Dim mp As MasterPages
  Set mp = ActiveDocument.MasterPages
  With mp.Item(1)
   .Header.TextRange.text = "My Publication" & vbTab
   .Header.TextRange.InsertPageNumber
   .Header.TextRange.InsertAfter NewText:=vbTab & MonthName(Month(Date)) & " " & Year(Date)
  End With
End Function
于 2017-12-28T19:01:20.060 回答