请问各位大虾Delphi如何操作word插入页码、页眉、页脚？

Question

如题；

Answer 1

还顺便问一下，如何调用word宏

Answer 2

Delphi如何操作word插入页码、页眉、页脚？急呀！！！！！！

Answer 3

还在问啊！告诉你查Word的VBA帮助
帮你看一下，下面是Word2000VBA中的相关内容：PageNumbers 集合对象由 PageNumber 对象组成的集合，代表一个页眉或页脚中的页码。使用 PageNumbers 集合可用 PageNumbers 属性返回 PageNumbers 集合。下例将活动文档的第一节首页码设为 3。ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) _
    .PageNumbers.StartingNumber = 3
可用 Add 方法在一个页眉或页脚中添加页码。下例在第一节的首页脚中添加一个页码。With ActiveDocument.Sections(1)
    .Footers(wdHeaderFooterPrimary).PageNumbers.Add _
        PageNumberAlignment:=wdAlignPageNumberLeft, _
        FirstPage:=False
End With
在含有多个节的文档中添加或修改页码时，需在每节中分别进行修改，或将 LinkToPrevious 属性设为 True。可用 PageNumbers(index)（其中 index 为索引号）返回一个 PageNumber 对象。大多数情况下，一个页眉或页脚只含有一个页码（索引号为 1）。下例将活动文档内第一节的首页眉中的起始页码居中。ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) _
    .PageNumbers(1).Alignment = wdAlignPageNumberCenter

Answer 4

OLE专业户来了！！！在Word中根据自己的操作录制一个宏，然后转成Delphi代码。
以下代码已经过测试，楼主看需要自己修改吧。uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
    vWordApp, vActWin: Variant;
begin
    vWordApp := CreateOleObject('Word.Application');
    vWordApp.Documents.Open('C:\ccrun\123.doc');
    vWordApp.Visible := true; // 可视，只在调试时用，可屏蔽    vWordApp.Selection.Sections.item(1).Footers.item(1).PageNumbers.Add(
            2, // PageNumberAlignment:= wdAlignPageNumberRight
            True); //  FirstPage:=True    vActWin := vWordApp.ActiveWindow;
    if vActWin.View.SplitSpecial <> 0 then // wdPaneNone
        vActWin.Panes(2).Close;    if (vActWin.ActivePane.View.Type = 1) or // wdNormalView
            (vActWin.ActivePane.View.Type = 2) then // wdOutlineView
        vActWin.ActivePane.View.Type := 3; // wdPrintView
    vActWin.ActivePane.View.SeekView := 9; // wdSeekCurrentPageHeader    vWordApp.Selection.TypeText('页眉');
    if vWordApp.Selection.HeaderFooter.IsHeader Then
        vActWin.ActivePane.View.SeekView := 10 // wdSeekCurrentPageFooter
    else
        vActWin.ActivePane.View.SeekView := 9; // wdSeekCurrentPageHeader    vWordApp.Selection.TypeText('页脚');
    vActWin.ActivePane.View.SeekView := 0; // wdSeekMainDocument    // ...
    // 加入自己的代码
end;