Cum se completează documentul Word Salvare
Se pare că întrebarea este prea simplu. Deci, pentru el pentru ultima jumătate de oră am găsit o mulțime de răspunsuri de genul „aceste probleme nu sunt abordate, așa cum au fost discutate“
Vă rog să-mi un link.
Konrektno pe această temă:
Deschideți șablonul, am modifica și de a salva sub un alt nume.
Asta e tot. verifica imediat # XA0, ea fileexists - găsește. Deși vizual îl văd. FileExists începe să-l vadă numai după ce sa deschis și aproape de Ward sau după repornirea unui computer.
Procedura ...
var
# XA0 VR1, VR2, VR3: OleVariant;
începe
Dacă FileExists (ExtractFileDir (Application.ExeName) + „Shablon.doc„), apoi începe # 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; încerca
# 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; în sfârșit
# XA0; # XA0; # XA0; WA.Disconnect;
# XA0; # XA0; # XA0; WA.Free;
# XA0; # XA0; end;
# XA0; # XA0, în cazul în care nu FileExists (VR2 + VR3)) apoi ShowMessage ( "Da") # XA0;
# XA0; # XA0; altfel ShowMessage ( "Nu");
# XA0; end;
se încheie;
eliminați încercare. și în cele din urmă a se vedea în cazul în care se produce o eroare. Înainte de a salva cazul documentului pur și simplu nu vine.
putea
FileExists (VR2 + "" + VR3))?
și de ce nu a specificat imediat calea completă către VR3?
Vă mulțumesc pentru atenție.
nici nu arunca o eroare.
Cine a văzut că procesul Winword.exe după procedura isponeniya nu este finalizată, aceasta continuă să stea.
> # XA0; # XA0; # XA0; WA.ChangeFileOpenDirectory (VR2);
crezi că ceea ce se întâmplă în îndeplinirea acestei metode?
Cred că schimbarea directorului de lucru Ward. Am nevoie de acest lucru, un alt director pentru a salva fișierul.
> Procesul de Winword.exe după procedura isponeniya nu este finalizată,
> Continuă să stea
WA.Quit ()
> Cred că schimbarea directorului de lucru Ward. Ai nevoie de asta,
> Un alt director pentru a salva fișierul.
director de schimbare, care poate fi văzut în dialogul „fișierul deschis“. Nu deschide nimic, ci dimpotrivă, se menține. În acest scop, există o comunicare a DefaultFilePath (pentru detalii vezi. Pentru un VBA Word dreapta).
> Clickmaker,> umbra
Mulțumesc. Am făcut fără a deschide dosarul.
După WA.Quit Ward descărcate.
FileExists (VR2), în cazul în care VR2, în contrast cu codul de mai sus, numele fișierului complet de ieșire, încă nu se poate vedea fișierul.
> FileExists (VR2), în care VR2, spre deosebire de cele de mai sus
> Cod, full-destinație nume de fișier, încă nu se poate vedea
> File.
>
pentru că nu este acolo. și iată-l în dosarul de documente implicit, pe care îl puteți vedea când te uiți în instrumentele Word \ Options meniu, tab-ul „aspect“.
> Pentru că nu este acolo. și iată-l în dosarul de documente
> default
și că el va ajunge acolo, chiar dacă specificați calea completă la SAVEAS?
Cum ar fi „toate drumurile duc la Roma“?
> Umbra [10]
După executarea codului am vedea fișierul cu ochii proprii într-un anumit director. Dar, toate la fel. Vă mulțumesc pentru atenție.
Eroare mea, logic. Fixe.
După aplicarea placi tale [2]. [6]. [7] a mers.
Va multumesc tuturor.