Sub TableTags()
'Dim docOld As Document
' Dim rngDoc As Range
' Dim tblDoc As Table
''MsgBox (ActiveDocument.Tables.Count) [COLOR="Green"]' это я себе выводил кол-во табличек[/COLOR]
If ActiveDocument.Tables.Count >= 1 Then
For Each Table In ActiveDocument.Tables
[COLOR="Green"]' а в след. строчках я пытался как-то записать
' вставку текста (или символа)
' вместо таблицы, но VB пишет, что такой метод
' для объекта таблица не существует.
' В отличие от метода DELETE- это всегда пожалуйста ("грохнем все!") [/COLOR]
With Table 'ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range
'aTable.Cell(Row:=1, Column:=1)Text:="Cell 1,1"
'.Delete
.TypeText Text:="все что угодно"
'ActiveDocument.Range Text:="все что угодно"
End With
'aTable.Range.Text = "tablee"
Next Table
End If
End Sub
Как заменить все таблицы в документе на спецсимвол?
Вот такой очередной убогий вопрос :o.
Мне надо, что бы все встречающиеся в вордовском доке таблицы были бы заменены на какй-нить лихой спецсимвол (типа Alt+0165). Потому что потом я весь этот текст закидываю в программу верстки и таблицы все равно разваливаются. И в верстке мне нужны просто метки, по которым я бы мог отследить места, где должна быть таблица и потом бы уже вставлял ее как объект Ворда.
Я написал так (нарыл в примерах из хелпа из Ворда):
Подскажите, если не трудно, как правильно дописать этот кусочек, чтобы VB не тошнило от моей тупости :o
Мне надо, что бы все встречающиеся в вордовском доке таблицы были бы заменены на какй-нить лихой спецсимвол (типа Alt+0165). Потому что потом я весь этот текст закидываю в программу верстки и таблицы все равно разваливаются. И в верстке мне нужны просто метки, по которым я бы мог отследить места, где должна быть таблица и потом бы уже вставлял ее как объект Ворда.
Я написал так (нарыл в примерах из хелпа из Ворда):
Код:
Подскажите, если не трудно, как правильно дописать этот кусочек, чтобы VB не тошнило от моей тупости :o