Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 10.09.2019, 19:26   #1
stasys
Новичок
 
Регистрация: 10.09.2019
Сообщений: 1
Репутация: 10
По умолчанию Исправить макрос

макрос не работает, исправьте ошибку пожалуйста

Код:
Function ChangeFileCharset_UTF8noBOM(ByVal filename$, Optional ByVal SourceCharset$) As Boolean
    On Error Resume Next: Err.Clear
    DestCharset$ = "utf-8"
    With CreateObject("ADODB.Stream")
        .Type = 2
        If Len(SourceCharset$) Then .Charset = SourceCharset$        ' 
        .Open
        .LoadFromFile filename$        ' загружаем данные из файла
        FileContent$ = .ReadText        ' считываем текст файла в переменную FileContent$
        .Close
        .Charset = DestCharset$        ' назначаем новую кодировку "utf-8"
        .Open
        .WriteText FileContent$
 
        'Write your data into the stream.

        Dim binaryStream As Object
        Set binaryStream = CreateObject("ADODB.Stream")
        binaryStream.Type = 1
        binaryStream.Mode = 3
        binaryStream.Open
        'Skip BOM bytes
        .Position = 3
        .CopyTo binaryStream
        .Flush
        .Close
        binaryStream.SaveToFile filename$, 2
        binaryStream.Close
    End With
    ChangeFileCharset_UTF8noBOM = Err = 0
End Function
_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 10.09.2019 в 21:11.
stasys вне форума   Ответить с цитированием
Старый 10.09.2019, 21:28   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,857
Репутация: 5617
По умолчанию

Цитата:
Сообщение от stasys Посмотреть сообщение
макрос не работает, исправьте ошибку пожалуйста
какая ошибка?

p.s. я вряд ли помогу, я не силён в VBA Word, но чем больше Вы сообщите о проблеме, тем больше шанс получить помощь.
Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сделала запись макроса на 4х строчках, в итоге он выполняет 4 строки а мне нужно 10000, можно ли просто исправить мой макрос? Татьяна0602 Microsoft Office Word 14 09.04.2019 18:18
Исправить Макрос cfkhellboy1992 Microsoft Office Excel 5 21.04.2015 08:37
Помогите исправить макрос vba www_www Помощь студентам 0 16.12.2014 02:08
Исправить макрос не хватает опыта. Steepka Microsoft Office Excel 4 23.09.2013 20:13
как исправить макрос? Nicolas_46 Microsoft Office Excel 2 07.01.2013 17:16


22:51.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.