C#如何设置Word页脚？

刘苏

Word页脚设置是个比较头疼的问题

在Word中录制宏难以产生代码，即使产生代码都不能直接执行，要转化成C#有点困难



需求：
奇偶页不同

奇数页  右对齐  微软雅黑  四号字体     格式：  - 1 -

偶数页  左对齐  微软雅黑  四号字体     格式： - 2 -

MSDN参考资料
https://msdn.microsoft.com/zh-cn/library/ms178795.aspx?cs-save-lang=1&cs-lang=csharp

望帮助！！

tmtony

Word还真没弄过，
你所说的 左对齐，右对齐 是针对此页所有内容，还是只是页码

刘苏

tmtony 发表于 2016-4-9 07:59
Word还真没弄过，
你所说的 左对齐，右对齐 是针对此页所有内容，还是只是页码

页码
来自: 微社区

tmtony

int OddAndEvenPagesHeaderFooter {get; set;}
应该是整型
bool OddAndEvenPagesHeaderFooter { get; set; }
逻辑型
设置为-1 或 0 即可

[img]file:///D:\Users\tmtony\AppData\Local\Temp\8LDO48C$8@[GWU0353$FOVS.png[/img]https://msdn.microsoft.com/zh-cn/library/office/microsoft.office.interop.excel.pagesetup.oddandevenpagesheaderfooter.aspx
或 System.Boolean.  可出来值

晕 ，excel 和word 好像不同
excel是boolean
word是 int
[img]file:///D:\Users\tmtony\AppData\Roaming\Tencent\Users\18449932\QQ\WinTemp\RichOle\PZO[~UQVVZ1[Z%DCWF%H9}B.png[/img]

word你就用 int型
file:///D:\Users\tmtony\AppData\Roaming\Tencent\Users\18449932\QQ\WinTemp\RichOle\)EDTBF1%KCT8QCUVR5LBESP.png
可以为3种值
Can be True, False, or wdUndefined.
  
true 就是 -1
false 就是 0

实际上还是逻辑值，只是因为word还有个 wdUndefined
所以 要用 int
你填 1  或 -1 值
看看哪个可以
不行，再用int.parse
app.ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = int.Parse("-1");

刘苏

tmtony 发表于 2016-4-9 12:13
int OddAndEvenPagesHeaderFooter {get; set;}
应该是整型
bool OddAndEvenPagesHeaderFooter { get; set ...

谢谢王站指导

页码设置的需求麻烦王站再帮忙看一下

Word录制宏有限制，有一些操作没法录制，弄起来也是蛮纠结的，加上英语不好
奇数页  右对齐  微软雅黑  四号字体     格式： - 1 -
偶数页  左对齐  微软雅黑  四号字体     格式： - 2 -

tmtony

你是说 设置 字体？
你把属性贴出来

闻启学

Sub test()
    Application.ScreenUpdating = False
    With ActiveDocument.Sections(1)
        .PageSetup.OddAndEvenPagesHeaderFooter = True
        With .Footers(wdHeaderFooterPrimary)
            With .PageNumbers
                .Add PageNumberAlignment:=wdAlignPageNumberRight
                .NumberStyle = wdPageNumberStyleNumberInDash
            End With
            With .Range.Frames(1)
                .HorizontalPosition = wdFrameRight
                With .Range.ParagraphFormat
                    .Alignment = wdAlignParagraphRight
                    .CharacterUnitRightIndent = 1
                End With
            End With
        End With
        With .Footers(wdHeaderFooterEvenPages).Range.Frames(1)
            .HorizontalPosition = wdFrameLeft
            With .Range.ParagraphFormat
                .Alignment = wdAlignParagraphLeft
                .CharacterUnitLeftIndent = 1
            End With
        End With
    End With
    Application.ScreenUpdating = True
End Sub

在网上找到VBA 代码

刘苏

闻启学 发表于 2016-4-9 22:47
Sub test()
    Application.ScreenUpdating = False
    With ActiveDocument.Sections(1)

谢谢····

刘苏

C#代码 纠结了一天多，终于搞定了，感谢 @只为设计 全程指导

1.             //关闭屏幕更新
   
2.             app.ScreenUpdating = false;
   
3. 
   
4.             //设置奇数页页脚
   
5.             word.HeaderFooter secFooter = app.ActiveDocument.Sections[1].Footers[word.WdHeaderFooterIndex.wdHeaderFooterPrimary];
   
6.             secFooter.PageNumbers.Add(PageNumberAlignment:word.WdPageNumberAlignment.wdAlignPageNumberInside);
   
7.             secFooter.PageNumbers.NumberStyle = word.WdPageNumberStyle.wdPageNumberStyleNumberInDash;
   
8.             secFooter.Range.Font.Name = "方正仿宋_GBK";
   
9.             secFooter.Range.Font.Size = int.Parse("14");
   
10.             
    
11.             //设置奇偶页不同
    
12.             app.ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = int.Parse("-1");
    
13. 
    
14.             //设置偶数页页脚
    
15.             word.HeaderFooter secEven = app.ActiveDocument.Sections[1].Footers[word.WdHeaderFooterIndex.wdHeaderFooterEvenPages];
    
16.             secEven.PageNumbers.Add(PageNumberAlignment: word.WdPageNumberAlignment.wdAlignPageNumberOutside);
    
17.             secEven.PageNumbers.NumberStyle = word.WdPageNumberStyle.wdPageNumberStyleNumberInDash;
    
18.             secEven.Range.Font.Name = "方正仿宋_GBK";
    
19.             secEven.Range.Font.Size = int.Parse("14");
    
20. 
    
21.             //清除奇数页页眉横线
    
22.             app.ActiveWindow.ActivePane.View.SeekView = word.WdSeekView.wdSeekPrimaryHeader;
    
23.             app.Selection.ClearFormatting();
    
24. 
    
25.             //清除偶数页页眉横线
    
26.             app.ActiveWindow.ActivePane.View.SeekView = word.WdSeekView.wdSeekEvenPagesHeader;
    
27.             app.Selection.ClearFormatting();
    
28. 
    
29.             //退出页眉视图
    
30.             app.ActiveWindow.ActivePane.View.SeekView = word.WdSeekView.wdSeekMainDocument;
    
31. 
    
32.             //启用屏幕更新
    
33.             app.ScreenUpdating = true;

复制代码

tmtony

强！