Имеется файл Word-а. В нем есть несколько частей, отделённых друг от друга пустой строчкой. Каждую часть (всю сразу, не по строчкам) поочереди надо скопировать в буфер обмена, произвести над ней некоторые действия в теле программы, затем скопировать в буфер вторую часть текста и так далее. Количество таких частей может быть разным. Вопрос. Как скопировать такую часть в буфер? Так открываем документ | Код | var Document:Variant; ... begin ...
WordApplication:=TWordApplication.Create(self); WordDocument:=TWordDocument.Create(self); WordApplication.Connect; WordApplication.Visible:=false; Document:=WordApplication.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); WordDocument.ConnectTo(WordApplication.ActiveDocument); WordApplication.Options.CheckSpellingAsYouType:=False; WordApplication.Options.CheckGrammarAsYouType:=False;
... end; |
|