Preserve formatting in a word doc that I am importing excel data to via VBA/docvariables?

I am attempting to import data into a very structured word document (i.e., a form with lots of tables, aligned fields, etc. packed together) from excel via docvariables. I've got the actual data transfer worked out, but the formatting is a nightmare. Basically if anything expands or shifts at all the whole document falls apart. I looked into using content controls in word or docvariables in publisher, but neither seem to be supported. Are there other methods to 'lock-in' the original structure of the word document and force the imported data to conform to a specified space?

I've got proprietary content in my files but could mockup some analogues if necessary. However, my general questions would be:

1. Is there a way to 'lock' all content in a word document in place, such that anything that is subsequently imported won't alter the original formatting?

2. Is there a way to put constraints on docvariables such that, e.g., font size would dynamically adjust down to fit within specified parameters?


I can put this into actual files if necessary, but the gist of it would be a word doc with fields like this (where the goal is to keep the 'Name:', 'Client ID:', and 'Date:' positioning the same no matter what the length of the imported doc variable content is):

Name: {DOCVARIABLE LastName \* CHARFORMAT}, {DOCVARIABLE FirstName \* CHARFORMAT} Client ID: {DOCVARIABLE ClientID \* CHARFORMAT} Date: {DOCVARIABLE Date \* CHARFORMAT}


The excel/VBA end of it would be along the lines of:

Private Sub dataExport Click()

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

Dim backgroundData(1 To 4) As String

backgroundData(1) = "LastName"
backgroundData(2) = "FirstName"
backgroundData(3) = "ClientID"
backgroundData(4) = "Date"

Dim wbBook As Workbook
Dim wsSheet As Worksheet

Set wbBook = ThisWorkbook
Set wsSheet = wbBook.Worksheets("Data")

wsSheet.Range(Cells(Selection.Row, 2), Cells(Selection.Row, 5)).Select

bckgrndData = Selection

Instantiate the Word Objects.
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open(wbBook.Path & "\Report.Template.docx")

For i = 1 To 4
With wdDoc
.Variables.Add Name:=(backgroundData(i)), Value:=bckgrndData(1, (i))
.Fields.Update
End With
Next i

Thanks- yes, I may not have articulated this well but after doing additional reading it seems that using Word tables is the way to go for this issue.