Vba word mettre en mode paysage

bonjour a tous,
je souhaite ouvrir un nouveau document word et l'enregistrer en le renommant ( jusque la pas de problème) mais au format paysage et c'est la que ca coince voici mon code (n'étant pas un dieu en vba c'est certainement le code du siècle :p)

Dim nomfich As String
Dim appwd As Word.Application

Set appwd = CreateObject("Word.Application")


appwd.Documents.Add
appwd.Visible = True


With appwd.ActiveDocument


.PageSetup.Orientation = Microsoft.Office.Interop.Word.WdOrientation.wdOrientLandscape
.SaveAs FileName:=nomfich
End With

au niveau de l'avant dernière ligne j'obtiens un "objet requis" a cause du document vide??
j'ai trouver ce code sur un autre forum peut-être qu'il n'est pas adéquat pour ouvrir un document au format paysage a l'ouverture...

merci a ceux qui se pencherons sur cette question :)