以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  纸张横向页脚对齐问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132934)
--  作者：qaz17909
--  发布时间：2019/4/2 16:18:00
--  纸张横向页脚对齐问题
如下代码生成页眉和页脚，当纸张方向为纵向时，页眉和页脚都是分散居中的，但是当纸张方向为横向时，页眉和页脚的位置变得很别扭，这是怎么回事？另外想给字体加粗，怎么写？ 
Dim app As New MSWord.Application
                try
                    Dim doc = app.Documents.Open(dlg.FileName)
                    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
                    app.ActiveWindow.Selection.WholeStory
                    app.ActiveWindow.Selection.TypeBackspace
                    app.ActiveWindow.Selection.Font.Size = 10
                    app.ActiveWindow.Selection.TypeText(Text:="54545" & vbTab & "54545555555555" & vbTab & "34534535345")
                    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageFooter
                    app.ActiveWindow.Selection.WholeStory
                    app.ActiveWindow.Selection.TypeBackspace
                    app.ActiveWindow.Selection.Font.Size = 12
                    app.ActiveWindow.Selection.TypeText(Text:="54545" & vbTab & "54545555555555" & vbTab & "34534535345")
                    app.ActiveWindow.ActivePane.View.SeekView =  MSWord.WdSeekView.wdSeekMainDocument
                    app.Visible = False
                    app.Documents.Save
                    Doc.Close
                catch ex As exception
                    msgbox(ex.message)
                    app.Quit
                finally
                    app.Quit
                End try

[此贴子已经被作者于2019/4/2 16:59:50编辑过]
--  作者：有点甜
--  发布时间：2019/4/2 17:18:00
--  

参考

 

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\\test.doc")
   
    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.TypeBackspace
    app.ActiveWindow.Selection.Font.Size = 10
    app.ActiveWindow.Selection.TypeText(Text:="54545" & vbTab & "54545555555555" & vbTab & "34534535345")
    app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageFooter
   
    app.Selection.HeaderFooter.LinkToPrevious = False
    app.Selection.HeaderFooter.Range.ParagraphFormat.Alignment = msword.WdParagraphAlignment.wdAlignParagraphCenter
    Dim s = "54545" & vbTab & "54545555555555" & vbTab & "34534535345"
    app.ActiveWindow.ActivePane.Selection.InsertAfter(s)
   
    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
--  作者：qaz17909
--  发布时间：2019/4/2 19:43:00
--  
如何给字体加粗。另外，纸张方向为纵向的时候是好的，但是横向的时候，好像两边不会分散对齐，挤在中间了。
--  作者：有点蓝
--  发布时间：2019/4/2 20:26:00
--  
参考：http://www.foxtable.com/webhelp/scr/2121.htm
--  作者：qaz17909
--  发布时间：2019/4/2 21:50:00
--  
加粗问题已经解决，但用app.ActiveWindow.Selection.ParagraphFormat.Alignment = MSWord.WdParagraphAlignment.wdAlignParagraphCenter 的时候三组字符统一居中或左对齐右对齐，现想实现第一组左对齐，第二组居中，第三组右对齐，可否指导下，网上一直找不到。
--  作者：有点蓝
--  发布时间：2019/4/2 22:00:00
--  
只能统一设置