Newsgroup: it.comp.lang.delphi
Titolo: Word - Creare documento Uso Bollo

Salve a tutti, nn riesco a creare da Delphi un documento Word x Uso
Bollo.
I passi che ho seguito sono i seguenti:
1) Registrazione macro Word x la creazione del documento "Uso Bollo"
2) Passaggio istruzioni della macro Vb in Delphi
ed è proprio il punto 2 che nn riesco a completare.
Eventualmente ho un modello "Uso Bollo.dot" che xò nn riesco a capire
come aprire da Delphi al posto del solito "Normal.dot" (questa è una
seconda possibilità ch epotrei prendere in considerazione)
Riporto di seguito le istruzioni Vb da convertire in Delphi..
_____________________________________________________________
With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2.5)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(2.7)
        .RightMargin = CentimetersToPoints(5)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .GutterPos = wdGutterPosLeft
    End With
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceAtLeast
        .LineSpacing = 28.35
        .Alignment = wdAlignParagraphJustify
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
    End With
__________________________________________________
Delphi 5, Word 2000, Win xp, componente Delphi TWordApplication
Grazie a tutti. Fabio 
fde@ngeli@
hotmail.com

 seconda possibilità ch epotrei prendere in considerazione)
Se prendi un documento gia' pronto per uso bollo, e lo apri con delphi e ci
scrivi quello che vuoi dentro?
Scarica TPOfficePartner di turbopower da sourceforge, dovresti trovare
tutto quello che ti serve.
Ciao
-- 
Morde. 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 Ciao
Grazie x i componenti che mi hai segnalato.. li sto provando.
Comunque per chi fosse interessato sono riuscito a trovare un modo 
alternativo... riporto le istruzioni utilizzate:
var
    Template, vFalse: olevariant;
begin
    Template:= 'C:\UsoBollo.dot';
    vFalse:= false;
    WordApplication1.Documents.Add (Template, vFalse);
......
End;