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

liuhoubin168

获取每页首行内容并添加到页码位置.rar (20.2 KB, 下载次数: 41)

2013-6-8 20:18 上传

点击文件名下载附件

sqhsqhli

鼓掌。。。。。

tangqingfu

zhanglei1371 发表于 2013-6-8 09:25
那{DOCVARIABLE  {PAGE   \* MERGEFORMAT}  \* MERGEFORMAT}   {PAGE   \* MERGEFORMAT} 该怎么用？
如 ...

谢谢张兄的分享！如果想将页码格式设置“-1-”这样的样式，而非“1”这样的样式，该如何修改代码？

tangqingfu

liuhoubin168 发表于 2013-6-8 20:18

先收藏，再慢慢学习！谢谢liuhoubin168兄！

zhanglei1371

tangqingfu 发表于 2013-6-9 15:27
谢谢张兄的分享！如果想将页码格式设置“-1-”这样的样式，而非“1”这样的样式，该如何修改代码？

那就更简单了：
从        .TypeText 第一页首行内容 & " "到end with之间改成：
        .TypeText 第一页首行内容 & " "
        .TypeText "-"
        .MoveLeft
        Application.Run "InsertFieldchars"
        .text = " page "
        .Fields.Update
        Selection.MoveRight
        Selection.Delete
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
    End With

tangqingfu

zhanglei1371 发表于 2013-6-9 20:21
那就更简单了：
从        .TypeText 第一页首行内容 & " "到end with之间改成：
        .TypeText 第 ...

测试发现，还是显示为“1”这样的格式，而非"-1-"这样的格式，能否请张兄再看一下？

zhanglei1371

tangqingfu 发表于 2013-6-9 23:21
测试发现，还是显示为“1”这样的格式，而非"-1-"这样的格式，能否请张兄再看一下？

方才电脑出问题了，代码这样：
    With Selection
        .WholeStory
        .Delete
        .TypeText 第一页首行内容 & " "
        .TypeText "--"
        .MoveLeft
        Application.Run "InsertFieldchars"
        .text = " page "
        .Fields.Update
        Selection.MoveRight
       .ParagraphFormat.Alignment = wdAlignParagraphCenter
    End With

tangqingfu

zhanglei1371 发表于 2013-6-10 01:40
方才电脑出问题了，代码这样：
    With Selection
        .WholeStory

测试通过，谢谢张兄！

tangqingfu

zhanglei1371 发表于 2013-6-10 01:40
方才电脑出问题了，代码这样：
    With Selection
        .WholeStory

添加的结果为“Unit 8 Topic 2 -- 1 --”这样的样式。
请教张兄如何修改代码，使之为“第一行的内容+两个半角空格+页码”的格式？
即“Unit 8 Topic 2  - 1 -”这样的样式。（页码前后为分别为一个“－”的连接符）

zhanglei1371

  .TypeText "--"
换成  .TypeText "     --"
有时电脑会生成两个减号，和电脑有关，此时将两个减号换成一个试试：  .TypeText "  -"