مشکل در اجرای یک کد در ویژوال بیسیک مایکروسافت

آقا من دارم دیوانه میشم
یک ماکرو برای فایل وورد مایکروسافت انتخاب کردم که این باشه
چیزی که توی این صفحه است
من به این خیلی نیاز دارم
http://www.vbaexpress.com/kb/getarticle.php?kb_id=140
ولی مشکل اینه که زمانی که این ماکرو رو اجرا میکنم فقط یکی از متون در فایل مورد نظرم split میشه و این اررور رو میگیرم
Run-Time error '5152':
This is not a valid file name.
Try one or more of the following:
*Check the path to make sure it was typed coerrectly.
*Select a file from the list of files and folders.

من به هیچ وجه برنامه نویسی بلد نیستم ولی این خط رو میگه اشتباه از اونه
ActiveDocument.SaveAs FilePath & "\" & FileName(x) & ".doc"
ولی من نمیدونم چیش رو باید عوض کنم
هر کاری کردم نشد
فایل مورد نظر من توی یک درایو دیگه جز c قرار داره
ممنون میشم واقعا کمک کنید چون خیلی فوریه