![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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 Подскажите пожалуйста как правильно написать |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
![]()
По поводу взятия данных из Word-таблицы.
В конце каждой ячейки Word-таблицы всегда есть два символа:
Пример кода: Код:
|
![]() |
![]() |
![]() |
#3 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]() Код:
Лучше день потерять — потом за пять минут долететь!©
|
![]() |
![]() |
![]() |
#4 |
Новичок
Джуниор
Регистрация: 17.04.2013
Сообщений: 2
|
![]()
Приклоняюсь перед великим енотом
![]() Скрипт твою строку так и не смог заставить работать но тоже благодарю ![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Можно ли как-нибудь удалить, а затем вставить в нужное место в текстовике текст, не копируя весь документ. | 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 |