The code below is working fine the first time I run it, but when I need to run it a second time, it gives me this error:
Run Time er
If this is running in Excel then you probably need to specify that CentimetersToPoints is coming from the Word library. As it stands, VBA has to guess and sometimes it probably can't find it. So try:
wdApp.CentimetersToPoints