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


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

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

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


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


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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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")


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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"


 回到顶部