Потому что Excel не знает констант wdOrientPortrait и wdOrientLandscape. Они только для Word. Замените их числовыми значениями, которые соответствуют этим константам и все будет работать.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...