I need to add about 200 TextBox Shapes to a document through Visual
Basic using Word 9.0 Library

The Code i use is:
Set textBox22 = wordDoc.Shapes.AddTextbox(msoTextOrientationHorizontal,
10, y, 100, 15)

Then i add formatting:

      With textBox22
           .Name = "TextBox" & i
           With .TextFrame
               .MarginTop = 0
               .MarginLeft = 0
               .TextRange = "sdfgsf"
               With .TextRange
                   .Bold = True
                   .Font.Name = "Verdana"
                   .Font.Size = 12
               End With
           End With
       End With

This all works like a charm...  except it works SLOOOOOOOW

The first 30 or so controls are added at a reasonable speed (i have a
counter and a progressbar to monitor the process)
After that it starts to slow down more and more....
On textbox 150  it adds about one textbox per second...  Very Slow!!!!!

I tried following:
Turned off spelling and grammar checking, Word app is not visible while
textboxes are added, I even used LockWindowUpdate TOGETHER with
ScreenUpdating = False. Didn't help.  Still slow....

Here's the code for you to try. Visual Basic 6.0. Add a reference to
the Word library before running the code. Add a progressbar to Form1
and name it PB1.

The code adds 300 textboxes to a word document and sets margins and
font format options. if you comment the formatting (all With..End With)
the code runs faster.

P.S.  I HAVE tried it on different computers, and no they were not 486,
but decent p4 machines. And it must be done from outside, thus i can't
use the code from within a word macro.

[CODE]

Dim wA As Word.Application
Dim wD As Word.Document

Private Sub Command1_Click()

   PB1.Min = 1 'PROGRESSBAR
   PB1.Max = 300

   Dim ttt As Word.Shape, y As Long
   y = 10

   wA.ScreenUpdating = False

   For i = 1 To 300
       PB1.Value = i
       y = y + 18

       Set tB = wD.Shapes.AddTextbox(msoTextOrientationHorizontal, 10,
y, 100, 15)

       With tB
           .Name = "TextBox" & i
           With .TextFrame
               .MarginTop = 0
               .MarginLeft = 0
               .TextRange = "Sample Text"
               With .TextRange
                   .Bold = True
                   .Font.Name = "Verdana"
                   .Font.Size = 12
               End With
           End With
       End With
   Next

   wA.ScreenUpdating = True

   wA.Visible = True
End Sub

Private Sub Form_Load()
   Set wA = New Word.Application

   wA.Options.CheckGrammarAsYouType = False
   wA.Options.CheckGrammarWithSpelling = False
   wA.Options.CheckSpellingAsYouType = False
   wA.Options.CheckHangulEndings = False
   'wA.Options.Pagination = False

   Set wD = wA.Documents.Add
   wD.Activate
   wD.ShowSpellingErrors = False
   wD.ShowGrammaticalErrors = False

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   On Error Resume Next
   wA.Quit wdDoNotSaveChanges
   
End Sub