|
|
|
delphi + word
|
|||
|---|---|---|---|
|
#18+
Проблема не могу разобрать точнее попал в тупик, при попытке создание редатора теста, в ворде с такое структурой текста <!vopros (№вопроса)> сам вопрос с ответами <!otvet (№вопроса)> ten=(правильный ответ) <!set(№вопроса)> сама же тестовая программа работает без ошибок. Выдает ошибку что много граматических ошибок в файле temp. где у меня проблема? далее код procedure TForm1.Button1Click(Sender: TObject); var Template,asi, NewTemplate, indexi,SaveChanges: OleVariant; t:string; begin t:=extractfilepath(application.ExeName)+('primer.doc'); form1.OleContainer1.CreateObjectFromFile(t,false); form1.OleContainer1.Enabled:=true; asi:='Normal'; indexi:=1; NewTemplate:=false; SaveChanges:=extractfilepath(application.ExeName)+('temp.doc'); wapp.Create(nil); wapp.Connect; wapp.Documents.Add(asi,NewTemplate); wapp.Options.CheckGrammarAsYouType:=false; wapp.Options.CheckSpellingAsYouType:=false; template:=worddoc1.Range; WordDoc1.Paragraphs.Add(Template); // параграф #1 wapp.Visible:=false; button1.Enabled:=false; button3.Enabled:=true; end; procedure TForm1.Button3Click(Sender: TObject); var indexi,SaveChanges: OleVariant; t:string; begin if (radiogroup1.ItemIndex>-1)then begin wapp.Connect; wapp.ConnectTo(wapp.Documents.Item(indexi)); worddoc1.ConnectTo(wapp.Documents.Item(indexi)); worddoc1.Select; wapp.Options.CheckGrammarAsYouType:=false; wapp.Options.CheckSpellingAsYouType:=false; wapp.ActiveDocument.Select; wapp.Selection.Copy; form1.OleContainer1.Close; WordDoc1.Range.InsertAfter('<!vopros'+listbox1.Items[listbox1.itemindex]+'>'+#13+#13); worddoc1.Range.Paragraphs.Last.Range.Paste; WordDoc1.Range.InsertAfter('<!otvet'+listbox1.Items[listbox1.itemindex]+'>'+ 'ten='+inttostr(radiogroup1.ItemIndex+1)+'<!set'+listbox1.Items[listbox1.itemindex]+'>'+#13+#13); wapp.Options.CheckGrammarAsYouType:=false; wapp.Options.CheckSpellingAsYouType:=false; SaveChanges:=extractfilepath(application.ExeName)+('temp.doc'); worddoc1.SaveAs(savechanges); wapp.Visible:=true; form1.OleContainer1.Refresh; t:=extractfilepath(application.ExeName)+('primer.doc'); form1.OleContainer1.CreateObjectFromFile(t,false); //listbox1.Items.Insert(2,'12'); listbox1.Items.Add(inttostr(listbox1.ItemIndex+2)); listbox1.Selected[listbox1.ItemIndex+1]:=true; button4.Enabled:=true; radiogroup1.ItemIndex:=-1; end else showmessage('Введите вариант ответа'); end; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.09.2007, 13:25:25 |
|
||
|
|
start [/forum/topic.php?fid=61&tid=2182327]: |
0ms |
get settings: |
8ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
52ms |
get topic data: |
11ms |
get forum data: |
4ms |
get page messages: |
28ms |
get tp. blocked users: |
2ms |
| others: | 197ms |
| total: | 330ms |
| 0 / 0 |
