专家坐堂-怎样用狐表打开WORD文档时，将文档的页脚和页眉换成我特定的页脚页眉Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样用狐表打开WORD文档时，将文档的页脚和页眉换成我特定的页脚页眉  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59069)

--  作者：zhaohj611718
--  发布时间：2014/10/29 11:08:00
--  怎样用狐表打开WORD文档时，将文档的页脚和页眉换成我特定的页脚页眉
怎样用狐表打开WORD文档时，将文档的页脚和页眉换成我特定的页脚页眉，给我个指点

--  作者：有点甜
--  发布时间：2014/10/29 11:14:00
--

用foxtable操作word的vba

具体控制页眉页脚的知识点可以去网上查一下

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    app.Documents.Open(fileName)
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
finally
    \'app.Quit
End try

--  作者：zhaohj611718
--  发布时间：2014/10/29 12:18:00
--
能直接给我写一段代码么，比如我的电脑d:\\test.doc文件，原来文件的页脚页眉我先自动把它去掉，然后换成我自己设置好的页脚页眉，然后打开。非常感谢！！！

--  作者：有点甜
--  发布时间：2014/10/29 14:15:00
--

参考

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc As Object = app.Documents.Open(fileName)

    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
    app.ActiveWindow.Selection.TypeText(Text:="自己的页眉")
    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument

    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    \'app.Quit
End try

--  作者：lihe60
--  发布时间：2014/10/29 14:22:00
--

以下是引用有点甜在2014-10-29 14:15:00的发言：

参考

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc As Object = app.Documents.Open(fileName)

    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
    app.ActiveWindow.Selection.TypeText(Text:="自己的页眉")
    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument

    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    \'app.Quit
End try

以前的页眉如何去掉？

--  作者：zhaohj611718
--  发布时间：2014/10/29 14:22:00
--

谢谢

--  作者：zhaohj611718
--  发布时间：2014/10/29 16:48:00
--

新的页眉加上了，但旧的页眉没有去掉

--  作者：有点甜
--  发布时间：2014/10/29 16:53:00
--
Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc As Object = app.Documents.Open(fileName)

    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.TypeBackspace
    app.ActiveWindow.Selection.TypeText(Text:="自己的页眉")
    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument

    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    \'app.Quit
End try

--  作者：zhaohj611718
--  发布时间：2014/10/30 14:13:00
--
这样设置完页脚和页眉后，页脚页眉的字体怎么修改呀？有办法么

--  作者：有点甜
--  发布时间：2014/10/30 14:17:00
--
Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc As Object = app.Documents.Open(fileName)

    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.Font.Size = 18
    app.ActiveWindow.Selection.TypeBackspace
    app.ActiveWindow.Selection.TypeText(Text:="自己的页眉")
    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument

    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    \'app.Quit
End try