Microsoft Office Forums - View Single Post

macropod · 04-06-2011, 03:05 PM

Hi Johnny,

Try:

Code:

Sub CopyField()
Dim StrResult As String, i As Integer
With ActiveDocument
  StrResult = .FormFields("LMSI_Office1").Result
  For i = 2 To 15
    .FormFields("LMSI_Office" & i).Result = StrResult
  Next
End With
End Sub

As for unprotecting/reprotecting the document, none of these macros I've posted needs that - they all run fine while the document is protected.