Перенос большого количества данных из Excel в Word

[maksim_serg]

Sub Fill()

Dim WA As Object, WD As Object

Set WA = CreateObject("Word.Application")
Set WD = WA.Documents.Open("C:\shablon.docx")

' здесь цикл по перебору всех значений в excel, допустим:
for i=1 to 900
WD.Range.Find.Execute FindText:=Cells(1, i), ReplaceWith:=Cells(3, i), Replace:=2
next

WA.Visible = True
Set WA = Nothing

End Sub

в первой строке содержиться нечто вроде тегов типа "[переменная]", в третьей данные на которые надо заменить

[IgorGO]

Можете поделиться макросом?

Ksardex, выступлю в роли прорицателя:
для того, чтобы Вы убедились, что он не подходит Вам, как два предыдущих?

[Ksardex]

Сообщение от maksim_serg

for i=1 to 900

Поясните, пожалуйста, за что отвечает эта строка?

Сообщение от maksim_serg

Sub Fill()
WD.Range.Find.Execute FindText:=Cells(1, i), ReplaceWith:=Cells(3, i), Replace:=2

Правильно ли я понял, что таким образом заменяется 2 (в данном случае) значения? Сохраняется ли ограничение на 255 символов?

Сообщение от IgorGO

Ksardex, выступлю в роли прорицателя:
для того, чтобы Вы убедились, что он не подходит Вам, как два предыдущих?

Не понимаю к чему этот комментарий. Я ищу решение проблемы, если Вы не можете предложить что-то стоящее или поделиться советом, то прошу не засорять тему.

[maksim_serg]

Replace - Variant Specifies how many replacements are to be made: one, all, or none. Can be any WdReplace constant. =2, просто Excel не знает что такое WdReplace

Replace:=0 ничего не менять
Replace:=1 поменять первое значение
Replace:=2 поменять все найденые значения

[maksim_serg]

если Вы не можете предложить что-то стоящее или поделиться советом, то прошу не засорять тему.


аххххха. Да он больше меня знает)

[Ksardex]

Сообщение от maksim_serg

Replace - Variant Specifies how many replacements are to be made: one, all, or none. Can be any WdReplace constant. =2, просто Excel не знает что такое WdReplace

А вот это уже хорошо.
Вопрос об ограничении кол-ва символов все еще открыт.

Сообщение от maksim_serg

если Вы не можете предложить что-то стоящее или поделиться советом, то прошу не засорять тему.


аххххха. Да он больше меня знает)

Однако сообщение уважаемого модератора крайне несодержательно.

[maksim_serg]

мой код на VB, разберетесь?

[Ksardex]

Сообщение от maksim_serg

мой код на VB, разберетесь?

Постараюсь деваться то некуда

[maksim_serg]

With Word.Documents.Open(Fold & "\CreateDocTemp_" & (Thr + 1) & ".doc").Content.Find
                    Dim LSTR As String
                    For i = 2 To DataGridView1.ColumnCount - 1
                        LSTR = DataGridView1.Item(i, DocFilesThread(Thr, y)).Value

                        If Len(LSTR) > 255 Then
                            .Text = "{" & DataGridView1.Columns(i).HeaderText & "}"
                            .Replacement.Text = "{%%%}"
                            .Execute(Replace:=2)
                            .Text = "{%%%}"
                            Dim A() As String = StringToArray(LSTR, 250)
                            For Each str1 In A
                                .Replacement.Text = str1 & "{%%%}"
                                .Execute(Replace:=2)
                            Next
                            .Replacement.Text = ""
                            .Execute(Replace:=2)
                        Else
                            .Text = "{" & DataGridView1.Columns(i).HeaderText & "}"
                            .Replacement.Text = LSTR
                            .Execute(Replace:=2)
                        End If

                        Progres += 1
                    Next
 End With

    Public Function StringToArray(ByVal STR As String, ByVal LENGTH As Integer) As Array
        Dim n As Integer = 0
        Dim AR() As String
        ReDim AR(Math.Ceiling(Strings.Len(STR) / LENGTH) - 1)
        For i = 0 To Math.Ceiling(Strings.Len(STR) / LENGTH) - 1
            AR(i) = Mid(STR, i * LENGTH + 1, LENGTH)
        Next
        StringToArray = AR
    End Function

[Hugo121]

И чего это сообщение уважаемого модератора несодержательно? Это просто намёк, и довольно "толстый".
Вот есть у Вас уже куча рабочего кода - пользуйтесь. Подгоняйте под свои неведомо какие файлы...
Это тоже намёк. Ещё толще