|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.04.2013, 08:34 | #1 |
Новичок
Джуниор
Регистрация: 17.04.2013
Сообщений: 2
|
Скопировать текст содержащийся в ячейке таблицы и вставить этот текст в место документа помеченное закладкой.
Всем привет.
Задача: Скопировать текст содержащийся в ячейке таблицы и вставить этот текст в место документа помеченное закладкой. Мой код: ActiveDocument.Tables(1).Cell(1, 5).Select 'Выделяю ячейку в таблице текст которой нужно скопировать Selection.copy 'Копирую текст в буфер обмена 'в ворде в ручную ставлю закладку и называю ее My_BookMark On Error Resume Next Selection.GoTo What:=wdGoToBookmark, Name:="My_BookMark" If Err Then MsgBox "Закладка не была установлена" 'Переставляю курсор в место закладки Selection.Paste 'Вставляю текст который был скопирован К сожалению у меня вставляеться целиком ячейка с полями причем в туже таблицу с которой я ее копировал, а мне нужен текст ячейки и чтоб он вставлялся в место в котором установлена закладка My_bookmark Подскажите пожалуйста как правильно написать |
17.04.2013, 10:07 | #2 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
По поводу взятия данных из Word-таблицы.
В конце каждой ячейки Word-таблицы всегда есть два символа:
Пример кода: Код:
|
17.04.2013, 13:54 | #3 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Код:
Лучше день потерять — потом за пять минут долететь!©
|
17.04.2013, 19:51 | #4 |
Новичок
Джуниор
Регистрация: 17.04.2013
Сообщений: 2
|
Приклоняюсь перед великим енотом огромное спасибо viter.alex
Скрипт твою строку так и не смог заставить работать но тоже благодарю |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Можно ли как-нибудь удалить, а затем вставить в нужное место в текстовике текст, не копируя весь документ. | Jony217 | PHP | 3 | 17.01.2013 10:11 |
программно в 1 таблице, 1 строке, 1 ячейке таблицы Ворд сделать нужный текст | Ципихович Эндрю | Microsoft Office Word | 5 | 31.05.2012 04:21 |
переход на заданный сайт или как вставить в заданное место заданный текст | Biker89 | Общие вопросы Delphi | 23 | 29.05.2011 01:59 |
Залить цветом диапазон (строку таблицы), если в последней ее ячейке есть текст | MasterLee | Microsoft Office Excel | 5 | 08.12.2010 09:47 |
Как скопировать текст в буфер обмена с одного edit-a и вставить в другой | SeRhy | Общие вопросы Delphi | 2 | 26.07.2008 23:02 |