以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]VBA Word页眉页脚问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70360)

--  作者:pcxjxjhkw
--  发布时间:2015/6/19 15:02:00
--  [求助]VBA Word页眉页脚问题
如何用VBA设置Word的左、中、右页眉或页脚?谢谢
--  作者:大红袍
--  发布时间:2015/6/19 15:04:00
--  

 自己去录制宏

 

 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59069&skin=0

 


--  作者:pcxjxjhkw
--  发布时间:2015/6/19 15:05:00
--  
老师,是分别设置左、中、右的页眉或页脚呀。
--  作者:大红袍
--  发布时间:2015/6/19 15:06:00
--  
一样的意思啊,你录制一个宏很难么
--  作者:pcxjxjhkw
--  发布时间:2015/6/19 15:16:00
--  
录宏时无法分别设置左、中、右的页眉或页脚呀!
--  作者:大红袍
--  发布时间:2015/6/19 15:28:00
--  

 

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


--  作者:pcxjxjhkw
--  发布时间:2015/6/19 16:49:00
--  
追问:如何设置各自的字体?
--  作者:大红袍
--  发布时间: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"