Перейти из форума на сайт.Реклама на Ru.Board


Система IP-видеонаблюдения "Линия". Скачать бесплатную демо-версию для 16 камер. НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Word VBA

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Открыть новую тему     Написать ответ в эту тему

Gena1971



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
angel1980
Вставь в таблице строку сверху, а потом преобразуй в текст.
Или вырежь всю таблицу, вставь абзац а после него верни таблицу. Возможно надо будет вырезать таблицу и плюс хоть один абзац после неё в этом случае. Я просто не помню как вырезание произойдёт если вся таблица выделена.
----------
Только как это относится к VBA?

Всего записей: 2490 | Зарегистр. 25-01-2005 | Отправлено: 18:32 05-12-2016 | Исправлено: Gena1971, 18:33 05-12-2016
angel1980

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Gena1971
Спасибо за ответ! Что-то подобное я и собирался сделать, когда совсем отчаялся найти "правильный" способ. Но решил, что, возможно, это у меня какое-то затмение, и быть такого не может чтобы для простой операции "вставить элемент" требовались костыли в виде добавления строк, их преобразования и т. п.
На самом деле задача в том, чтобы найти в документе все сноски, находящиеся в таблицах, и вынести их над или под таблицу, оставив на старом месте номера текстом в верхнем регистре. И все шло хорошо, пока не наткнулся на невозможность вставить что-либо возле таблицы простой командой (это касательно вопроса, как это относится к VBA).

Всего записей: 4 | Зарегистр. 15-06-2007 | Отправлено: 19:15 05-12-2016
aequit

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
angel1980
Sub tabltx()
ActiveDocument.Tables(1).Select
Selection.Collapse Direction:=wdCollapseEnd
Selection.TypeText "И все шло хорошо, пока не наткнулся на " _
& "невозможность вставить что-либо возле таблицы простой командой." & Chr(13)
End Sub

Всего записей: 180 | Зарегистр. 17-11-2005 | Отправлено: 19:39 15-01-2017
aljabr

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!
В MS WORD пытаюсь смастерить следующее.
Нужно просто выделить (мышкой) словосочетание и нажать клав. сокращение, чтобы...
Выделить словосочетание серым фоном + к словосочетанию добавляется примечание.

Код:
 
Sub Gray()
'
' Gray  
'
'
Options.DefaultHighlightColorIndex = wdGray25
Selection.Range.HighlightColorIndex = wdGray25
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.Comments.Add _
Range:=Selection.Range, Text:="review this"
End Sub
 

Проблема в том что примечание добавляется только на последнее слово, а не на все выделенное (мышкой) словосочетание.
 
PS
В идеале было бы отлично если бы вместо review this можно мыло вставить имеющийся текст из буфера обмена.

Всего записей: 394 | Зарегистр. 19-09-2009 | Отправлено: 10:50 22-07-2017 | Исправлено: aljabr, 13:21 22-07-2017
svs123456789

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
нет ли у кого ссылки на скрипт,  который
обходит все таблицы в документе и присваивает им свойство "выравнивать по содержимому" и повторять заголовки ?

Всего записей: 2416 | Зарегистр. 10-04-2003 | Отправлено: 17:58 23-12-2017
DenSyo

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
нет ли у кого ссылки на скрипт,  который  
обходит все таблицы в документе и присваивает им свойство "выравнивать по содержимому" и повторять заголовки ?

 

Код:
For Each t In ActiveDocument.Tables
    t.Rows.First.HeadingFormat = wdToggle
    t.AutoFitBehavior wdAutoFitContent
Next

Всего записей: 77 | Зарегистр. 19-01-2008 | Отправлено: 09:16 25-12-2017
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Word VBA

Имя:
Пароль:
Сообщение

Для вставки имени, кликните на нем.

Опции сообщенияДобавить свою подпись
Подписаться на получение ответов по e-mail
Добавить тему в личные закладки
Разрешить смайлики?
Запретить коды


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2018

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru