Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.01.2009, 02:46   #1
rzrwolf
Пользователь
 
Регистрация: 19.10.2008
Сообщений: 22
По умолчанию Сложное копирование в Word.

Имеется excel файл с расчитанными 2 значениями и подписями к ним в соседних ячейках обозначающими что это за значение.

Нужно заменить этими данными в уже созданном файле WORD имеющиеся там данные которые находятся в определенном месте документа по нажатию кнопки.

Использую код
Цитата:
Sub zz()
Filename = Application.GetOpenFilename(filefil ter:="Документы MSWord (*.doc), *.doc", Title:="Выберите файл шаблона", MultiSelect:=False)
If Filename = RTrim(LTrim("False")) Then
MsgBox "Необходимо выбрать файл!"
Exit Sub
End If

Set WApp = CreateObject("Word.Application")



Set ActDoc = WApp.dOCUMENTS.Open(Filename)
ActDoc.ActiveWindow.Selection.Find. Text = "{FIO}"
ActDoc.ActiveWindow.Selection.Find. Replacement.Tex t = "Ианов"
ActDoc.ActiveWindow.Selection.Find. Forward = True
ActDoc.ActiveWindow.Selection.Find. Wrap = wdFindAsk
ActDoc.ActiveWindow.Selection.Find. Execute Replace:=wdReplaceAll


WApp.Visible = True
End Sub
(в прикрепленном примере все есть)


Проблема состоит в том, что не могу задать в написании кода те значения которые мне нужны для поиска (они написаны специальными символами шрифтом symbol). Как это сделать? Я пробовал заменять их определенным обозначениями (например LAMBDA) и искать по ним

И еще возникла проблема с форматированием текста при его вставке в WORD - как его сделать точно таким же как в ячейке Excel?
А именно - пропадает настройка подстрочный или надстрочный шрифт и некоторые символы меняются на крякозябры...
Вложения
Тип файла: rar primer.rar (14.5 Кб, 14 просмотров)

Последний раз редактировалось rzrwolf; 11.01.2009 в 03:37.
rzrwolf вне форума
Старый 11.01.2009, 05:09   #2
tolikman
Форумчанин
 
Регистрация: 25.08.2008
Сообщений: 159
По умолчанию

по поводу копированя - Недавняя тема "Макрос для копирования" - тема достаточно подробно рассмотрелась.

на счет поиска, попробуй:
Код:
sub fff()
MsgBox Selection.Range.Text
end sub
выдели нужную формулу
запусти эту процедуру
и попробуй искать то что она показывает
activedocument.range.goto What:="что?то?там"
может даст результат.
tolikman вне форума
Старый 11.01.2009, 05:48   #3
rzrwolf
Пользователь
 
Регистрация: 19.10.2008
Сообщений: 22
По умолчанию

ОПа, спасибо за ссылочку, видимо проглядел эту тему

А тот метод что вы предложили - работает но ищется не все.. В некоторых местах просто знак вопроса пишется.

Последний раз редактировалось rzrwolf; 11.01.2009 в 06:09.
rzrwolf вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование Word из в Excel Юрийpirs2008 Microsoft Office Excel 2 31.12.2008 05:11
Копирование данных из Excell в Word Dimon_isu Microsoft Office Excel 6 13.02.2008 17:38
TURBO PASCAL 7.0 сложное задание Nook Помощь студентам 14 26.02.2007 19:10
Создание wap сайта – совсем не сложное дело! Hallo Обсуждение статей 14 04.01.2007 17:12