Hogyan kell a megőrzése a dokumentum szó
Hogyan kell a Mentés Word Document
Úgy látszik, a kérdés túl egyszerű. Tehát neki az utolsó fél óra találtam egy csomó választ, mint a „ezekkel a kérdésekkel nem foglalkozik, mivel azok már tárgyalt”
Kérem, adja meg a linket.
Konrektno a kérdés:
Nyissa meg a sablont, azt módosítani, és mentse más néven.
Ez minden. azonnal ellenőrizze # XA0, ez FileExists - megállapítja. Bár vizuálisan látom. FileExists kezdi látni csak ő nyílt és szoros a Ward vagy újraindítás után a számítógép.
Eljárás ...
var
# XA0 VR1, VR2, VR3: OleVariant;
kezdődik
Ha FileExists (ExtractFileDir (Application.ExeName) + Shablon.doc „), akkor kezdődik # XA0; # XA0; # XA0;
# XA0; WA.Free;
# XA0; WA: = TWordApplication.Create (MainForm);
# XA0; VR1: = ExtractFileDir (Application.ExeName) + „Shablon.doc„;
# XA0; VR2: = ExtractFileDir (Application.ExeName) + '\ DirOther \';
# XA0; VR3: = 'OtherDoc.doc';
# XA0; megpróbál
# XA0; # XA0; WA.Connect;
# XA0; # XA0; WA.Documents.Open (VR1, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, vr4, EmptyParam, EmptyParam, VR3, EmptyParam, # XA0; EmptyParam, EmptyParam, EmptyParam, EmptyParam);
# XA0; # XA0; WA.modifikatsiya;
# XA0; # XA0; # XA0; WA.ChangeFileOpenDirectory (VR2);
# XA0; # XA0; # XA0; WA.ActiveDocument.SaveAs (VR3, EmptyParam, EmptyParam, EmptyParam, # XA0; EmptyParam, EmptyParam, EmptyParam, EmptyParam, # XA0; EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, # XA0; EmptyParam, EmptyParam);
# XA0; # XA0; # XA0; # XA0;
# XA0; # XA0, végül
# XA0; # XA0; # XA0; WA.Disconnect;
# XA0; # XA0; # XA0; WA.Free;
# XA0; # XA0; end;
# XA0; # XA0, ha nem FileExists (VR2 + VR3)), akkor ShowMessage ( "Igen") # XA0;
# XA0; # XA0; máshol ShowMessage ( "No");
# XA0; end;
végén;
távolítsa el a próbát. és végre látni, ha hiba lép fel. Mielőtt mentse a dokumentumot ügy egyszerűen nem jön.
képes
FileExists (VR2 + "" + VR3))?
és miért nem azonnal adja meg a teljes elérési utat a VR3?
Köszönöm a figyelmet.
nem, nem dobja hibát.
Ki látta, hogy WINWORD.EXE folyamat után isponeniya eljárás nem fejeződött be, továbbra is lógni.
> # XA0; # XA0; # XA0; WA.ChangeFileOpenDirectory (VR2);
Mit gondol, mi történik a teljesítménye ezt a módszert?
Azt hiszem, a változó az aktuális könyvtárat Ward. Szükségem van erre, egy másik könyvtárba menteni a fájlt.
> WINWORD.EXE folyamat után isponeniya eljárás nem fejeződött be,
> Továbbra is lógni
WA.Quit ()
> Azt hiszem, a változó az aktuális könyvtárat Ward. Meg kell ezt,
> A másik könyvtárba menteni a fájlt.
változás könyvtár, ami látható a párbeszéd „Fájl megnyitása”. Nem nyit semmit, hanem éppen ellenkezőleg, megmarad. Erre a célra van közlése DefaultFilePath (a részleteket lásd. A Word VBA jobbra).
> Clickmaker,> umbra
Köszönöm. Csináltam megnyitása nélkül a mappát.
Miután WA.Quit Ward megtöltve.
FileExists (VR2), ahol VR2, ellentétben a fenti kódot, a teljes kimeneti fájl neve, még mindig nem látja a fájlt.
> FileExists (VR2), ahol VR2, ellentétben a fenti
> Kód, teljes cél fájl neve, még mindig nem lehet látni
> File.
>
mert nem létezik. és ott van az alapértelmezett mappák, ami akkor láthatjuk, ha megnézi az Ige Tools \ Options menü lap „elrendezés”.
> Mert nincs ott. és ott van a dokumentumok mappában
> alapértelmezett
és hogy ő lesz ott is, ha adja meg a teljes elérési utat a Mentés másként?
Mint például a „minden út Rómába vezet”?
> Umbra [10]
Végrehajtása után a kódot látom a fájlt a saját szemével az adott könyvtárban. De mindegy. Köszönöm a figyelmet.
Saját hiba, logikus. Fix.
Alkalmazása után a táblák. [2] [6]. [7] működött.
Köszönöm mindenkinek.