ActiveDocument.Tables(1).Cell(2, 1).Select
With Selection
.Range.Text = "test"
.FormFields.Add Range:=Selection.Range, _
Type:=wdFieldFormTextInput
End With
why doesn't the text show before the textinput .. pls enlighten me thanks
anyone pls help
Printable View
ActiveDocument.Tables(1).Cell(2, 1).Select
With Selection
.Range.Text = "test"
.FormFields.Add Range:=Selection.Range, _
Type:=wdFieldFormTextInput
End With
why doesn't the text show before the textinput .. pls enlighten me thanks
anyone pls help
I think you might have to refresh the screen after you add the text ...
This is from the Word VBA HelpHeap:
ScreenRefresh turns on screen updating for just one instruction and then immediately turns it off. Subsequent instructions don't update the screen until screen updating is turned on again with the ScreenUpdating property.
Example
This example turns off screen updating, opens Test.doc, inserts text, refreshes the screen, and then closes the document (with changes saved).
Dim rngTemp As Range
ScreenUpdating = False
Documents.Open FileName:="C:\DOCS\TEST.DOC"
Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
rngTemp.InsertBefore "new"
Application.ScreenRefresh
ActiveDocument.Close SaveChanges:=wdSaveChanges
ScreenUpdating = True