You might replace:
.Text = "Your ""A"" Russian term here."

With a function to go out and get that text from a table cell in a reference word document, or a spreadsheet.

e.g.,
.Text = oRefDoc.Tables(1).Cell(1,3).Range.Text

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/