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

Dim tmpAppWord As Word.Application

kodunu ekler misiniz?