It might have occurred to you when working with integers in VBA for Word that you get  the following error:

This error generally occurs when  you are doing arithmetic operations on integer values that result in:

1. Values larger than 32767
2. Values smaller than -32768

This is because integers only accept values in the range [-32768, 32767]. Numbers larger than 32767 or smaller than -32768 must be stored in a Long variable. In some office applications this conversion is done implicitly (i.e VBA for Excel). In VBA for word the conversion must be done explicitly.

All the following codes will result in an error:

Dim intValue As Integer
intValue = -500 * 500


Dim intValue As Integer
intValue = 32767 + 1


Dim intValue As Integer
intValue = 32768


Dim i As Integer
For i = 1 To 32766
...
Next i 

Solution:

Dim lngValue As Long
lngValue = -CLng(500) * CLng(500)

Dim lngValue As Long
lngValue = CLng(32767) + CLng(1)

Dim lngValue As Long
lngValue = 32768 

Dim i As Long
For i = 1 To 32766
...
Next i


If you need assistance with your code, or you are looking for a VBA programmer to hire feel free to contact me. Also please visit my website  www.software-solutions-online.com