|
|
#4
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
| Tags |
| form field, macro, word 2003 |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Word Macro: Save file as text with current file name
|
jabberwocky12 | Word VBA | 2 | 10-22-2010 12:23 PM |
|
Moving formula range multiple cells when moving sum over one cell
|
FraserKitchell | Excel | 4 | 02-26-2010 10:38 AM |
| copy cell from sheet 2 to sheet 3 macro | slipperyjim | Excel Programming | 1 | 02-18-2010 01:31 AM |
|
Auto insert current month's name and current year
|
Styler001 | Word | 4 | 01-25-2010 06:40 PM |
| Auto-populate an MS Word table cell with text from a diff cell? | dreamrthts | Word Tables | 0 | 03-20-2009 01:49 PM |
Windows 7 32bit 
Office 2000
Threaded Mode