Microsoft Word a Delphi
Először is, néhány általános szempontot dolgozni MS Office Delphi. És az első dolog, amit meg fog tenni - ez létre fog hozni egy Word.Application objektumot. Alkotó ez az objektum teljesen ugyanúgy, mint a tárgy Excel.Application:
használja ComObj; var Szó: variáns; [. ] Eljárás CreateWord (const Látható: logikai); kezdődik Szó: = CreateOleObject ( 'Word.Application'); Word.Visible: = látható; végén;
Ez elég egyszerű. Akkor tudunk dolgozni az objektum az alábbiak szerint:
- Ahhoz, hogy hozzon létre egy Word dokumentumot a semmiből
- Meglévő dokumentum megnyitásához, és módosítsa a szöveget is, hogy a kívánt formát a dokumentumot.
Vegyük mindkét változatban, mivel mindkettő vannak előnyei és hátrányai.
1. Hozzon létre egy Microsoft Word dokumentum Delphi a semmiből.
Ahhoz, hogy hozzon létre egy új dokumentumot kell futtatni az Add módszerrel a dokumentumok gyűjtését, azaz a.:
ezen művelet után már kezd működni az okmányokat őt név vagy index a gyűjteményben. Ön is létrehozhat egy új dokumentumot egy sablonból (* .dot). Ehhez ugyanazt Add módszer, de az egyik bemeneti paramétere - az út, hogy a sablon fájlokat:
Egyetértek veled, Nail. És mindig megpróbál, csak hogy minimálisra csökkenjen a felesleges költségeket a programok fejlesztését. Meggyőzni egy személy lehet, különösen akkor, ha a kezét „ubezhdalka” formájában egy árlistát :) De ha tudok önmagában kliens program nem függ a vásárlási program - szinte lehetetlen meggyőzni. Egy egyszerű példa - az egyetem. Az egyetem vásárlások kanapé központosított és egységes széket a dob mit vesz - ez csak rendszeresen adományoz az egyetemi alap meghatározott százaléka a jövedelem, és mindig friss, puha és nem számít, meg kell vezesse ezt a szoftvert, vagy ne - erőltettek balvanku és menj szettek . Tanszék szükséges nem szabványos programm például létrehozunk olyan listákat diákok csak bizonyos okokból (nem feltétlenül szexuális), és így egy dokumentumot, mondjuk a miniszter a minisztérium, oktatási művészek, stb hogy a feldolgozott tovább, hozott valamit, stb Gondolod, hogy mi az első követelmény ebben az esetben? Bejelentés Word / Excel-fájlt. Csak zaiknis által Oo - megfojtani :).
ZY Egy link a könyvtár - köszönhetően ogromennoe mert párhuzamos, csak hogy megpróbálja barátkozni Lazarus GS - része a könyvtár és hasznos csak
Alimbek Hiji.
Itt a szöveg a makró:
[Kód]
Sub Makros1 ()
'
„Macro Makros1
'
'
A ListGalleries (wdNumberGallery) .ListTemplates (1) .ListLevels (1)
.NumberFormat = "% 1".
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints (0,63)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints (1,27)
.TabPosition = wdUndefined
.ResetOnHigher = 0
.StartAt = 1
a .Font
.Bold = wdUndefined
.Dőlt = wdUndefined
.Áthúzás = wdUndefined
.Alsó index = wdUndefined
.Superscript = wdUndefined
.Árnyék = wdUndefined
.Vázlat = wdUndefined
.Domborítás = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Rejtett = wdUndefined
.Underline = wdUndefined
.Color = wdUndefined
.Méret = wdUndefined
.Animáció = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = ""
végződésű
.LinkedStyle = ""
végződésű
ListGalleries (wdNumberGallery) .ListTemplates (1) .name = ""
Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate: = _
ListGalleries (wdNumberGallery) .ListTemplates (1), ContinuePreviousList: = _
Hamis, ApplyTo: = wdListApplyToWholeList, DefaultListBehavior: = _
wdWord10ListBehavior
Selection.TypeText Text: = "1. pont"
Selection.TypeParagraph
Selection.TypeText Text: = "2. pont"
Selection.TypeParagraph
Selection.TypeText Text: = "3. pont"
Selection.TypeParagraph
Selection.Range.ListFormat.RemoveNumbers NumberType: = wdNumberParagraph
Selection.TypeText Text: = "End of számozott lista"
End Sub
[/ Code]
Elnézést a hülye kérdés, de hogyan kell ezt a funkciót a kódban? Ebben az értelemben, hogy például meg kell változtatni vonalak több helyen, hogy van, mert ez szükséges többször. Először is, nem vette észre, hogy ez nem egy eljárás, azt hittem, csak egy külön nyilatkozatot többször is, de aztán észrevette, hogy a funkció, és nem tudja kitalálni, hogyan kell hívni, mert a hívás után kell lennie az értékadó operátor.
És hívj többször a kódot. Funkció eredmény - logikai. Ha a helyettesítő szöveget sikeres, a függvény értéke igaz, The, egyébként hamis. Ha nem helyettesíti a szöveget, fontos-e vagy sem, a hívást az alábbiak szerint:
kezdődik
// itt valami kód
FindAndReplace ( 'text', 'szövegcseréhez');
// ismét coca majd a kódot
FindAndReplace ( 'Szöveg2' 'helyébe text2');
végén;
Vagy így ESDI további munka attól függ, hogy a szöveg helyébe e vagy sem:
kezdődik
// itt valami kód
ha FindAndReplace ( 'text', 'szövegcseréhez'), majd
FindAndReplace (Text2 'helyébe text2)
más
ShowMessage ( „Nem helyettesíti a string»szöveg«”)
végén;