Можете посоветовать ещё что-то для повышения производительности?
data_base.Cells(row_db, 6).ValueSub test()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdDocTwo As Word.Document
Dim wdDocThree As Word.Document
Dim wdDocFour As Word.Document
Set wdApp = CreateObject("word.Application")
wdApp.Visible = True
Set wdDoc = ThisDocument
Set wdDocTwo = wdApp.Documents.Add
Set wdDocThree = wdApp.Documents.Add
Set wdDocFour = wdApp.Documents.Add
wdDocTwo.Activate
AppActivate (wdDocTwo.Name)' эта строка выведет окно wdDocTwo на передний план
End SubThisDocument - это то откуда был вызван код. Sub test()
Dim wdApp As Object
Dim wdDoc As Word.Document
Dim wdDocTwo As Word.Document
Dim wdDocThree As Word.Document
Dim wdDocFour As Word.Document
Set wdApp = CreateObject("word.Application")
wdApp.Visible = True
Set wdDoc = ThisDocument
Set wdDocTwo = wdApp.Documents.Add
Set wdDocThree = wdApp.Documents.Add
Set wdDocFour = wdApp.Documents.Add
wdDocTwo.Activate
End SubThisDocument.Activate
ThisDocumnet.SetFocus{ тип расчета1: true, тип расчета2 : false}boolв директиву v-if?
про прежде временную оптимизацию слышал...)