Dim tmpAppWord As Word.Application
kodunu ekler misiniz?
En başta Option Explicit satırı olduğundan önce tmpAppWord tanımlanmalı. Bu hata ondan kaynaklanıyor. Set tmpAppWord = CreateObject("Word.Application") satırının üstüne