Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Замена символов "ПИ" в таблице ворд перед эспортом в эксель - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена символов "ПИ" в таблице ворд перед эспортом в эксель (Макросы/Sub)
Замена символов "ПИ" в таблице ворд перед эспортом в эксель
Leprotto Дата: Пятница, 25.08.2017, 15:12 | Сообщение № 21
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 145
Репутация: 2 ±
Замечаний: 0% ±

Excel 2016
Сорри, приложил
К сообщению приложен файл: ConvertFromWord.xlsm (18.0 Kb)
 
Ответить
СообщениеСорри, приложил

Автор - Leprotto
Дата добавления - 25.08.2017 в 15:12
Manyasha Дата: Пятница, 25.08.2017, 21:40 | Сообщение № 22
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Leprotto, из справки: https://msdn.microsoft.com/en-us....1).aspx
Цитата
Note NoHTMLFormatting will only matter when Format = "HTML". In all other cases, NoHTMLFormatting will be ignored.
You must select the destination range before you use this method.

без NoHTMLFormatting работает
[vba]
Код
    'вставка обработанного текста
    ThisWorkbook.Sheets(1).PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False ', NoHTMLFormatting:=True
[/vba]


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеLeprotto, из справки: https://msdn.microsoft.com/en-us....1).aspx
Цитата
Note NoHTMLFormatting will only matter when Format = "HTML". In all other cases, NoHTMLFormatting will be ignored.
You must select the destination range before you use this method.

без NoHTMLFormatting работает
[vba]
Код
    'вставка обработанного текста
    ThisWorkbook.Sheets(1).PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False ', NoHTMLFormatting:=True
[/vba]

Автор - Manyasha
Дата добавления - 25.08.2017 в 21:40
Leprotto Дата: Пятница, 25.08.2017, 21:57 | Сообщение № 23
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 145
Репутация: 2 ±
Замечаний: 0% ±

Excel 2016
Manyasha, до вставки обработанного текста даже не доходит
Ошибка все там же [vba]
Код
Selection.Find.Execute Replace:=2
[/vba]
Хотите, подключитесь по таймвьюверу и убедитесь
 
Ответить
СообщениеManyasha, до вставки обработанного текста даже не доходит
Ошибка все там же [vba]
Код
Selection.Find.Execute Replace:=2
[/vba]
Хотите, подключитесь по таймвьюверу и убедитесь

Автор - Leprotto
Дата добавления - 25.08.2017 в 21:57
Leprotto Дата: Суббота, 26.08.2017, 08:18 | Сообщение № 24
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 145
Репутация: 2 ±
Замечаний: 0% ±

Excel 2016
Вопрос решился на ветке Работа/фриланс.
Всем спасибо за участие!!!
 
Ответить
СообщениеВопрос решился на ветке Работа/фриланс.
Всем спасибо за участие!!!

Автор - Leprotto
Дата добавления - 26.08.2017 в 08:18
Pelena Дата: Суббота, 26.08.2017, 08:48 | Сообщение № 25
Группа: Админы
Ранг: Местный житель
Сообщений: 19184
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
А в чём была причина? Секрет?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеА в чём была причина? Секрет?

Автор - Pelena
Дата добавления - 26.08.2017 в 08:48
RAN Дата: Суббота, 26.08.2017, 09:40 | Сообщение № 26
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Колитесь, до кончика хвоста любопытно, что, и почему там не работало.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеКолитесь, до кончика хвоста любопытно, что, и почему там не работало.

Автор - RAN
Дата добавления - 26.08.2017 в 09:40
Leprotto Дата: Суббота, 26.08.2017, 09:43 | Сообщение № 27
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 145
Репутация: 2 ±
Замечаний: 0% ±

Excel 2016
Не секрет ))
Делали вчера на домашнем ноуте. Хотел позже выложить рабочий код после обкатке на работе.
А по сути были какие-то глюки с подключением вордовской библиотеки, в том числе через раннее связывание.
В итоге помогло после открытия ворда делать обработку (replace) в сохраненной копии файла.
 
Ответить
СообщениеНе секрет ))
Делали вчера на домашнем ноуте. Хотел позже выложить рабочий код после обкатке на работе.
А по сути были какие-то глюки с подключением вордовской библиотеки, в том числе через раннее связывание.
В итоге помогло после открытия ворда делать обработку (replace) в сохраненной копии файла.

Автор - Leprotto
Дата добавления - 26.08.2017 в 09:43
AndreTM Дата: Суббота, 26.08.2017, 12:22 | Сообщение № 28
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
Поясню поподробнее:

У Андрея были странные проблемы. Судя по всему, связано с конкретной сборкой Офиса и возможным наличием в системе/реестре "артефактов" от других версий Офиса.
Во первых, ошибка при подключении DLL Ворда (MSWORD.OLB), именно в момент исполнения CreateObject(). При этом, понятное дело, при позднем связывании - глюки вылезают только при обращении к специфичным свойствам/методам "недоподключившегося" объекта, а при раннем связывании - ошибка появляется уже в момент выполнения CreateObject. Простой пользователь сможет вылечить, только снеся все Офисы и установив заново только нужный... :)
Во-вторых, на некоторых компьютерах, если файл Word открыть в режиме только для чтения (wordApplication.Documents.Open ,,True) - то COM-сервер отказывается выполнять команды, связанные с модификацией контекста документа. Решили не заморачиваться, а работать с копией файла-источника (открываем документ в "обычном" режиме, "сохраняем как" к себе под нужным именем, работаем уже с новым файлом).


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
СообщениеПоясню поподробнее:

У Андрея были странные проблемы. Судя по всему, связано с конкретной сборкой Офиса и возможным наличием в системе/реестре "артефактов" от других версий Офиса.
Во первых, ошибка при подключении DLL Ворда (MSWORD.OLB), именно в момент исполнения CreateObject(). При этом, понятное дело, при позднем связывании - глюки вылезают только при обращении к специфичным свойствам/методам "недоподключившегося" объекта, а при раннем связывании - ошибка появляется уже в момент выполнения CreateObject. Простой пользователь сможет вылечить, только снеся все Офисы и установив заново только нужный... :)
Во-вторых, на некоторых компьютерах, если файл Word открыть в режиме только для чтения (wordApplication.Documents.Open ,,True) - то COM-сервер отказывается выполнять команды, связанные с модификацией контекста документа. Решили не заморачиваться, а работать с копией файла-источника (открываем документ в "обычном" режиме, "сохраняем как" к себе под нужным именем, работаем уже с новым файлом).

Автор - AndreTM
Дата добавления - 26.08.2017 в 12:22
KuklP Дата: Суббота, 26.08.2017, 15:11 | Сообщение № 29
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
М-да. У меня в системе ноута 2003 и 2010 (Экс-Ворд) установлены и 2003, 2007 и 2010 портативные, все работавшие в этой системе. Проверял свой код на 3 и 10. Оба нормально работали с макросом. Как можно было наломать библиотеки даже не представляю. Причем не на одном компе %) ТС реально кулхацкер B)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеМ-да. У меня в системе ноута 2003 и 2010 (Экс-Ворд) установлены и 2003, 2007 и 2010 портативные, все работавшие в этой системе. Проверял свой код на 3 и 10. Оба нормально работали с макросом. Как можно было наломать библиотеки даже не представляю. Причем не на одном компе %) ТС реально кулхацкер B)

Автор - KuklP
Дата добавления - 26.08.2017 в 15:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена символов "ПИ" в таблице ворд перед эспортом в эксель (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!