Есть ли способ использовать таблицу поиска в MS Word VBA?

Question

Я создаю форму макроса в Word VBA, которая позволяет пользователям вводить неделю и значение веса, которое будет вычислять для них процентиль.Я строю это на основе таблицы из книги, которая выглядит следующим образом (извините, я пока не знаю, как добавить таблицы к вопросам переполнения стека):

процентиль 10-й 50-й 90-й

Week1 ........ 3 .... 12 .... 34

Week2 ........ 5 .... 17 .... 39

Неделя3 ........ 8 .... 21 .... 42

В настоящее время мой код VBA выглядит следующим образом:

If Week = 1 then
   If Weight < 3 then
   Selection.TypeText "less than 10th percentile for age"
   ElseIf Weight = 3 then
   Selection.TypeText "10th percentile for age"
   ElseIf Weight < 12 then
   Selection.TypeText "less than 50th percentile for age"
   ElseIf Weight = 12 then
   Selection.TypeText "50th percentile for age"
   ElseIf Weight < 34 then
   Selection.TypeText "less than 90th percentile for age"
   ElseIf Weight = 34 then
   Selection.TypeText "90th percentile for age"
   ElseIf Weight > 34 then
   Selection.TypeText "greater than 90th percentile for age"
   End If
ElseIf Week = 2 then
   If Weight < 5 then
   Selection.TypeText "less than 10th percentile for age"
...

Таблица на самом деленамного больше, чем 3 столбца и 3 строки, так что вы можете себе представить, что это очень утомительно.Сама таблица не должна быть видимой для пользователя, а закодирована за кулисами.Мне интересно, если вместо того, чтобы печатать весь код, как я делал выше, есть ли способ добавить к нему таблицу, чтобы дальнейшее обслуживание значений было более простым.Спасибо!

Я использую Word 2016.