Microsoft Office Forums - View Single Post - [Solved] Linking fields to pull values from one field to another

macropod · 01-27-2016, 02:25 PM

The macro could be fairly simple. For example, suppose the 'Document Number' paragraph is the always first in the document and the table is always the last table in the document:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim StrTmp As String, i As Long
With ActiveDocument
  StrTmp = Replace(Split(.Paragraphs(1).Range.Text, ": ")(1), vbCr, "")
  With .Tables(.Tables.Count)
    For i = 0 To 5
      .Cell(5, i + 2).Range.Text = Split(StrTmp, "-")(i)
    Next
  End With
End With
Application.ScreenUpdating = True
End Sub

There's a bit of guesswork in the above regarding your table, as I'm not quite sure of its layout.