如何通过代码将页脚的内容设置为“第一行的内容+页码”的格式？

tangqingfu

请教如何编写VBA 代码将页脚的内容自动生成为“文档第一页的内容 +空格+页码”这样的格式？即提取文档第一行的内容和页码作为页脚的内容（文档第一行的内容和页码之间有一个空格隔开）


该贴已经同步到 tangqingfu的微博

liuhoubin168

这个可以实现。
使用文档变量。
首先 用代码将页码定义为文档变量，变量为页码（word的文档变量可以为纯数字，很方便），将每页首行的内容赋值给这个变量；
然后 在每页插入这个文档变量域 变量就使用页码域。测试OK

{DOCVARIABLE  {PAGE   \* MERGEFORMAT}  \* MERGEFORMAT}   {PAGE   \* MERGEFORMAT}

liuhoubin168

如果只是文档第一行，而不每页第一行就更简单了。

tangqingfu

liuhoubin168 发表于 2013-6-7 21:30
如果只是文档第一行，而不每页第一行就更简单了。

能否就两种情况分别写出完整代码给兄弟测试（不分节的也可）

zhanglei1371

liuhoubin168 发表于 2013-6-7 21:17
这个可以实现。
使用文档变量。
首先 用代码将页码定义为文档变量，变量为页码（word的文档变量可以为纯数 ...

同求，学习学习……

liuhoubin168

Sub 第一页首行内容()
  Dim rngS As Range, rngE As Range, 第一页首行内容 As String
  Set rngS = ActiveDocument.Paragraphs(1).Range
  Set rngE = ActiveDocument.Paragraphs(1).Range.GoTo(what:=wdGoToLine, which:=wdGoToNext, Count:=1)
  第一页首行内容 = ActiveDocument.Range(rngS.Start, rngE.Start)
  ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter   '切换到页脚
  第一页首行内容 = Replace(第一页首行内容, Chr(10), "")
  第一页首行内容 = Replace(第一页首行内容, Chr(13), "")
  With Selection
  .WholeStory
  .Delete
  .TypeText 第一页首行内容 & " "
  Application.Run "InsertFieldchars"
  .Text = " page "
  End With
  ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
  ActiveWindow.View.ShowFieldCodes = False
End Sub

zhanglei1371

liuhoubin168 发表于 2013-6-8 09:17
Sub 第一页首行内容()
  Dim rngS As Range, rngE As Range, 第一页首行内容 As String
  Set rngS = Act ...

那{DOCVARIABLE  {PAGE   \* MERGEFORMAT}  \* MERGEFORMAT}   {PAGE   \* MERGEFORMAT} 该怎么用？
如何将页码定义为文档变量呢？

tangqingfu

liuhoubin168 发表于 2013-6-8 09:17
Sub 第一页首行内容()
  Dim rngS As Range, rngE As Range, 第一页首行内容 As String
  Set rngS = Act ...

谢谢，能否在代码中添加下面的情况：
1、页脚内容设置为居中对齐
2、自动更新域

zhanglei1371

.Text = " page "
  End With
两句中间加上
        .Fields.Update
        .ParagraphFormat.Alignment = wdAlignParagraphCenter

liuhoubin168

Sub 获取每页首行内容()
On Error Resume Next
Dim reg As Rectangle
ActiveWindow.View = wdPrintView                                '强制到页面视图
For j = 1 To Selection.Information(wdNumberOfPagesInDocument)  '循环每页
   For Each reg In ActiveWindow.Panes(1).Pages(j).Rectangles    '循环每页的矩形区域
     If reg.Range.StoryType = wdMainTextStory Then              '判断矩形区域是否为正文
        ActiveWindow.View = wdPrintView                         '强制到页面视图
        If Len(reg.Range.Text) > 0 And Asc(reg.Range.Text) <> 12 Then
          Debug.Print Replace(Replace(reg.Lines(1).Range.Text, Chr(13), ""), Chr(10), "")
        End If
     End If
   Next
Next
End Sub