Кто хочет Избавиться от неверно указана единица измерения

Если Вы хотите избавиться от сообщения "неверно указана единица измерения" при формировании отчета из Access в Word
Напишите примерно вот такую фунцию, в которую передается либо ".", либо ",".
Перед строчкой Set wrd = New Word.Application, передаете ",", а после оканчания формирования отчета, передаете "."

Function Separator(DecimalSeparator As String)
'Изменение региональных настроек
Const PathSeparator = "HKEY_CURRENT_USER\Control Panel\International\sDecimal"
Dim MyReg As Object
Set MyReg = CreateObject("WScript.Shell")
If MyReg.RegRead(PathSeparator) <> DecimalSeparator Then
MyReg.RegWrite PathSeparator, DecimalSeparator, "REG_SZ"
End If
Set MyReg = Nothing
End Function

Надеюсь это еще кому-нибудь поможет. УДАЧИ

Если это кому-нибудь помогло, оставьте свое мнение. :)

Это значит вот так вот взять да и разрешить в reg писать. ну-ну....

Все это можна заменить простой Str функцией.