uses OleAuto; var MSWord: Variant; begin MsWord := CreateOleObject('Word.Basic'); MsWord.FileNewDefault; MsWord.TogglePortrait; end;