紧急：求一个程序源代码！！要求用delphi设计一个和word有关的程序！？？

[size=12px]要求：1.把word文件等分成可以设定的分数！
      2.可以运行制定好的word宏文件！[/size]
提供参考文件：一界面类似图：
和word宏内容
Sub Macro20080101()
'
'Macro20080101 Macro
' word电子书制作
'
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(0.3)
        .BottomMargin = CentimetersToPoints(0.3)
        .LeftMargin = CentimetersToPoints(0.3)
        .RightMargin = CentimetersToPoints(0.3)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.75)
        .PageWidth = CentimetersToPoints(6)
        .PageHeight = CentimetersToPoints(8)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeLineGrid
    End With
End Sub