Salvar documento do Word aberto em delphi olecontainer - delphi, ms-word, ole

Eu tenho um documento do Word aberto em um contêiner ole. Eu gostaria de selecionar todo o texto (Ctrl-A), em seguida, copie para a área de transferência sem usar as teclas digitadas.

O segundo recurso desejado é a capacidade de salvar as alterações feitas no documento.

Respostas:

Talvez este código te ajude:

uses ComObj, Clipbrd;
...
var
Word : OLEVariant;
begin
Word := CreateOleObject("Word.Application");

// If you do not want to see word, set it to false.
Word.Visible := False;

//Open the word document.
Word.Documents.Open("C:myDocument.doc");

//Select all.
Word.ActiveDocument.Select;

//Copy to Clipboard.
Word.ActiveDocument.Range.Copy;

//Close the document.
Word.ActiveDocument.Close;

//Quit word.
Word.Quit;

//Free.
Word := unassigned;

//Now you can paste the text from clipboard.
Memo1.PasteFromClipboard;
end;