Добрый вечер.
Имеется в наличии макрос, который вставляет данные из excel в word. Пример что получается во вложении. Можно ли все, что не очерчено видимой таблицей заменить на пробелы.
Есть также макрос в word(пранирую заускать из excel), который заменяет границы на пробелы:
Sub ConvertTablesToText()
Dim TablesAmount As Long
With ActiveDocument.Tables 'с таблицами в активном документе Word'
If .Count = 0 Then
MsgBox "В документе " & ActiveDocument & " нет таблиц Excel и Word."
Else
TablesAmount = .Count 'запомнили, сколько таблиц было в документе до преобразования их в текст'
Do
.Item(1).ConvertToText vbTab 'преобразует первую таблицу (из имеющихся) в текст,'
'разделяя бывшие колонки символами табуляции'
TablesAmount = TablesAmount - 1
Loop Until TablesAmount = 0 'выходим; теперь все таблицы преобразованы в текст'
End If
End With
End Sub
End Sub
Не знаю, как заставить его оставить выделенные поля нетронутыми (документы всегда разные получаются).
Имеется в наличии макрос, который вставляет данные из excel в word. Пример что получается во вложении. Можно ли все, что не очерчено видимой таблицей заменить на пробелы.
Есть также макрос в word(пранирую заускать из excel), который заменяет границы на пробелы:
Sub ConvertTablesToText()
Dim TablesAmount As Long
With ActiveDocument.Tables 'с таблицами в активном документе Word'
If .Count = 0 Then
MsgBox "В документе " & ActiveDocument & " нет таблиц Excel и Word."
Else
TablesAmount = .Count 'запомнили, сколько таблиц было в документе до преобразования их в текст'
Do
.Item(1).ConvertToText vbTab 'преобразует первую таблицу (из имеющихся) в текст,'
'разделяя бывшие колонки символами табуляции'
TablesAmount = TablesAmount - 1
Loop Until TablesAmount = 0 'выходим; теперь все таблицы преобразованы в текст'
End If
End With
End Sub
End Sub
Не знаю, как заставить его оставить выделенные поля нетронутыми (документы всегда разные получаются).