Гляньте пожалуйста опытным глазом. У меня есть в коде такой фрагмент:
| Код |
|---|
Dim WordApp As Object
Const sBookmark_1 As String = "Закладка_1"
Const sBookmark_2 As String = "Закладка_2"
Const sBookmark_3 As String = "Закладка_3"
|
и так до 1000.
Второй фрагмент:
| Код |
|---|
WordApp.ActiveDocument.Bookmarks(sBookmark_2).Range.Text = Sheets("1").Cells(s, 4)
WordApp.ActiveDocument.Bookmarks(sBookmark_3).Range.Text = Sheets("1").Cells(s, 6)
WordApp.ActiveDocument.Bookmarks(sBookmark_4).Range.Text = Sheets("1").Cells(s, 7)
WordApp.ActiveDocument.Bookmarks(sBookmark_5).Range.Text = Sheets("1").Cells(s, 8) |
и так до 1000.
И третий:
| Код |
|---|
WordApp.ActiveDocument.Bookmarks(sBookmark_1).Delete
WordApp.ActiveDocument.Bookmarks(sBookmark_2).Delete
WordApp.ActiveDocument.Bookmarks(sBookmark_3).Delete
|
и так до 1000.
Вопрос можно как то написать вроде:
Заранее благодарен.
