Foxtable(狐表)用户栏目专家坐堂 → [求助]VBA Word页眉页脚问题


  共有2219人关注过本帖树形打印复制链接

主题:[求助]VBA Word页眉页脚问题

帅哥哟,离线,有人找我吗?
pcxjxjhkw
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助]VBA Word页眉页脚问题  发帖心情 Post By:2015/6/19 15:02:00 [只看该作者]

如何用VBA设置Word的左、中、右页眉或页脚?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/19 15:04:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/6/19 15:05:00 [只看该作者]

老师,是分别设置左、中、右的页眉或页脚呀。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/19 15:06:00 [只看该作者]

一样的意思啊,你录制一个宏很难么

 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/6/19 15:16:00 [只看该作者]

录宏时无法分别设置左、中、右的页眉或页脚呀!

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/19 15:28:00 [只看该作者]

 

app.ActiveWindow.Selection.TypeText(Text:="54545" & vbTab & "54545555555555" & vbTab & "34534535345")


 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/6/19 16:49:00 [只看该作者]

追问:如何设置各自的字体?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/19 17:27:00 [只看该作者]

你自己录制一个宏真的很难吗?

 

    Selection.TypeText Text:="1234"
    Selection.Font.Color = wdColorRed 
    Selection.TypeText Text:="5678"
    Selection.Font.Size = 36
    Selection.TypeText Text:="9" & vbTab & "10"
    Selection.Font.Size = 12
    Selection.TypeText Text:=vbTab & "12345"


 回到顶部