delphi - Inserting text into new Word 2010 file not working (Delhi XE2) -

-

i've written test program in deplhi xe2 create new word document (using wort 2010 , twordapplication), insert text it, , save both .doc file , .pdf file. 2 word components on form. works except text insertion. when open documents after fact both created empty.

it's frustrating work without docs regarding using vba equivalents word. if can point me twordapplication , tworddocument specs eternally grateful. but, immediate problem how insert text.

here's have:

procedure tform1.btngenerateclick(sender: tobject); var   snewtext: widestring; begin   snewtext := 'hello, world!' + #13;   { create word document, set text , close it. }   wordapplication1.visible := false;    wordapplication1.newdocument;   wordapplication1.selection.endof(wdstory, wdmove);   wordapplication1.selection.insertafter(snewtext);   wordapplication1.selection.endof(wdstory, wdmove);    if fileexists('d:\temp\mynewdocdup.doc')   deletefile('d:\temp\mynewdocdup.doc')   else ;   worddocument1.saveas('d:\temp\mynewdocdup.doc');    if fileexists('d:\temp\mynewdocdup.pdf')   deletefile('d:\temp\mynewdocdup.pdf')   else ;   worddocument1.saveas('d:\temp\mynewdocdup.pdf', 17);    worddocument1.close;   wordapplication1.disconnect; end;

jerry

it seems me problem document object worddocument1 not document in text added. text added fine, different document. here simple example demonstrates how it:

var   app: twordapplication;   doc: worddocument; .... app := twordapplication.create(nil); try   app.visible := false;   doc := app.documents.add(emptyparam, emptyparam, emptyparam, emptyparam);   app.selection.endof(wdstory, wdmove);   app.selection.insertafter('hello, world!');   app.selection.endof(wdstory, wdmove);   doc.saveas('c:\desktop\mynewdocdup.doc', emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam);   doc.saveas('c:\desktop\mynewdocdup.pdf', 17, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam);   doc.close(emptyparam, emptyparam, emptyparam);   app.quit;   app.free; end;

in real code you'd use named file format constants rather magic number 17.

note newdocument not create new document. instead need use documents.add make new document. note pain of binding – emptyparam arguments no fun @ all. if building large amount of code on top of office pays wrap such messy details.

as documentation office automation api, can found on msdn: http://msdn.microsoft.com/en-us/library/office/ee861527.aspx


Comments

Post a Comment

Popular posts from this blog

c# - Unity IoC Lifetime per HttpRequest for UserStore -

-
i'm trying clean default implementation of accountcontroller.cs comes out of box in new mvc5/owin security implementation. have modified constructor this: private usermanager<applicationuser> usermanager; public accountcontroller(usermanager<applicationuser> usermanager) { this.usermanager = usermanager; } also, have created lifetime manager unity looks this: public class httpcontextlifetimemanager<t> : lifetimemanager, idisposable { private httpcontextbase _context = null; public httpcontextlifetimemanager() { _context = new httpcontextwrapper(httpcontext.current); } public httpcontextlifetimemanager(httpcontextbase context) { if (context == null) throw new argumentnullexception("context"); _context = context; } public void dispose() { this.removevalue(); } public override object get...
Read more

Change the color of an oval at click in Java AWT -

-
i have draw ovals in java, , @ click change color. beginning tried change color after 20 ms, doesn't work. my code is: public class mycomponentnew extends frame { public graphics2d g2d; public mycomponentnew(string title) { super(title); setsize(400, 550); } @override public void paint(graphics g) { this.g2d = (graphics2d) g; this.g2d.setcolor(color.red); this.g2d.filloval(10, 55, 50, 100); } public void changecolor () { this.g2d.setcolor(color.blue); this.g2d.filloval(10, 55, 50, 100); } } and in class main method have: mycomponentnew m; m = new mycomponentnew("fereastra cu baloane"); m.setvisible(true); m.addwindowlistener(new windowadapter() { @override public void windowclosing(windowevent we) { system.exit(0); } }); try { thread.sleep(20); } catch(interruptedexception e) {} m.changecolor(); the color of oval remains red. ...
Read more

I am trying to solve the error message 'incompatible ranks 0 and 1 in assignment' in a fortran 95 program. -

-
i writing program in fortran find velocity of parachuting person in relation time. keep getting error can't fix. new programming , appreciated. the error is v(i+1)=v(i)+[32-((c*v(i)*v(i))/m)]*(h) 1 error: incompatible ranks 0 , 1 in assignment @ (1) and program is program para integer :: real :: v(11) !velocity real :: q !initial velocity real :: h !time step real :: c !drag coefficient real :: m !mass ! gravity equal 32 ft/s^2 write (*,*)'enter time step' read(*,*)h write(*,*)'enter initial velocity' read(*,*)q write(*,*)'enter drag coefficient' read(*,*)c write(*,*)'enter mass' read(*,*)m i=1,10 ! 1 10, 1 being interval. end v(i+1)=v(i)+[32-((c*v(i)*v(i))/m)]*(h) q=v(1) end program you cannot use [] normal parenthesis in expressions. array constructor, [ items ] means array items elements. end do should after line.
Read more