Microsoft Office Forums - View Single Post - [Solved] Macro for moving one cell down from current position

macropod · 04-07-2011, 04:44 PM

In that case, you could use code like:

Code:

Sub LMSI_Office()
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
  .Bookmarks("BookmarkName").Range.Fields(1).Result.Select
End With
End Sub

where "BookmarkName" is the bookmark name of the formfield you want to go to.