以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  页眉文本位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129861)
--  作者：qaz17909
--  发布时间：2019/1/7 20:27:00
--  页眉文本位置

现可以用代码对word的页眉添加一个文本，现想在页眉靠左、居中和靠右三个位置分别添加三个不同的文本，如何实现？
--  作者：有点蓝
--  发布时间：2019/1/7 22:28:00
--  
Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("f:\\123.docx")
    
    app.ActiveWindow.View.Type = MSWord.WdViewType.wdOutlineView
    app.ActiveWindow.View.SeekView = MSWord.WdSeekView.wdSeekPrimaryHeader
    app.ActiveWindow.ActivePane.Selection.InsertAfter( "左边         中间            右边" )
    
    doc.save
    doc.close(Nothing,Nothing,Nothing)
    \'app.Visible = True
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try
--  作者：qaz17909
--  发布时间：2019/1/10 20:12:00
--  给一个word文本加上一个表格式的页眉
有一个本地word文本，想给他加上一个表格式的页眉，其中页眉中有页码和页数，且引用了字段，可以实现吗？
--  作者：有点甜
--  发布时间：2019/1/10 20:19:00
--  

参考

 

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

 
--  作者：qaz17909
--  发布时间：2019/1/10 20:33:00
--  

我要设计的页眉比较复杂，如附图


图片点击可在新窗口打开查看此主题相关图片如下：页眉.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2019/1/10 20:59:00
--  

1、看懂这个

 

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

 

2、如果要插入到一个已经存在的word里面，参考

 

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

 

3、不会做，具体实例发上来测试。

 
--  作者：qaz17909
--  发布时间：2019/1/10 21:39:00
--  
还是得麻烦老师了，附件里“未加页眉”是打算添加的文本，点击控件后选择该文本后，自动生成“加完页眉”的样式。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:页眉添加.rar
--  作者：有点甜
--  发布时间：2019/1/10 22:03:00
--  

参考代码

 

Dim app As New MSWord.Application
Dim app2 As New MSWord.Application
try
    Dim fileName = ProjectPath & "页眉模板.doc"
    Dim doc As Object = app.Documents.Open(fileName)
    app.ActiveWindow.Selection.WholeStory
    Dim r = Tables("表A").Current
    If app.ActiveWindow.Selection.Find.Execute("[名称]")  Then
        app.ActiveWindow.Selection.TypeText(Text:=r("名称"))
    End If
    If app.ActiveWindow.Selection.Find.Execute("[发布日期]")  Then
        app.ActiveWindow.Selection.TypeText(Text:=r("发布日期"))
    End If
    If app.ActiveWindow.Selection.Find.Execute("[实施日期]")  Then
        app.ActiveWindow.Selection.TypeText(Text:=r("实施日期"))
    End If
    app.ActiveWindow.Selection.WholeStory
    If app.ActiveWindow.Selection.Find.Execute("[版本]")  Then
        app.ActiveWindow.Selection.TypeText(Text:=r("版本"))
    End If
    doc.saved = True
    Dim count = doc.Characters.Count
    Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
    rng.Select()   \'全选
    rng.Copy()   \'拷贝
   
   
    Dim doc2 As Object = app2.Documents.Open(ProjectPath & "未加页眉.doc")
   
    app2.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
    app2.ActiveWindow.Selection.WholeStory
    app2.ActiveWindow.Selection.paste
    app2.ActiveWindow.ActivePane.View.SeekView =  MSWord.WdSeekView.wdSeekMainDocument
   
    app2.Visible = True
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.Quit
    app2.quit
finally
    \'app.Quit
    \'app2.quit
End try

 

 

 下载信息
图片点击可在新窗口打开查看点击浏览该文件:页眉添加.rar