+ Ответить в теме
Страница 4 из 5
ПерваяПервая 1 2 3 4 5 ПоследняяПоследняя
Показано с 31 по 40 из 46

Тема: Макрос для для замены слов в файле word из файла-словаря Excel

  1. #31
    coder Aslin is on a distinguished road
    Регистрация
    22.01.2018
    Возраст
    20
    Сообщений
    15
    Вес репутации
    1

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Спасибо, все работает на отлично. А скажите пожалуйста, как составить команду и куда ее вставить, что замененные слова выделялись цветом?
    И еще не посоветуете какие-нибудь учебники, чтобы научиться в совершенстве самой писать коды?

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #32
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    829
    Вес репутации
    16

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    В сети предлагают такой вариант выделения цветом :

    Код :
    1. Public Sub Test()
    2.  
    3. Dim iFileName$, iCount&, iArr As Variant
    4. Dim wb As Object, ws As Object
    5.  
    6. iFileName = ActiveDocument.Path & "\Словарь1з.xls"
    7.  
    8. Set wb = GetObject(iFileName)
    9. Set ws = wb.Worksheets("Лист1")
    10.  
    11. iArr = ws.Cells(1).CurrentRegion.Value
    12.  
    13. Application.ScreenUpdating = False
    14. Options.DefaultHighlightColorIndex = wdYellow
    15.  
    16. With ActiveDocument.Content.Find
    17.      .Replacement.Highlight = True
    18.      For iCount = 1 To UBound(iArr)
    19.          .Execute iArr(iCount, 1), , , , , , , , , iArr(iCount, 2), wdReplaceAll
    20.      Next
    21. End With
    22.  
    23. Application.ScreenUpdating = True
    24.  
    25. wb.Close False
    26.  
    27. End Sub

    Насчёт литературы не подскажу, но уверен, что в сети можно найти ответ и на этот вопрос.

  4. #33
    coder Aslin is on a distinguished road
    Регистрация
    22.01.2018
    Возраст
    20
    Сообщений
    15
    Вес репутации
    1

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Здравствуйте, данный макрос работает хорошо, но есть одно "НО". Можно ли как-то сделать чтобы искал именно целиком слово, а не его часть. То есть у меня есть замена "но" на "однако" и во всех словах где есть это словосочетание он заменяет его на "однако". Например, слово правоспособность поменялось на правоспосободнакость. Как это исправить?

  5. #34
    coder Aslin is on a distinguished road
    Регистрация
    22.01.2018
    Возраст
    20
    Сообщений
    15
    Вес репутации
    1

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    И еще один вопрос, заметила, что не все слова он заменяет на синонимы...... не смотря на то, что они есть в словаре

  6. #35
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    829
    Вес репутации
    16

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    1) Используйте опцию Только слово целиком, т.е.

    Код :
    1. Public Sub Test()
    2.  
    3. Dim iFileName$, iCount&, iArr As Variant
    4. Dim wb As Object, ws As Object
    5.  
    6. iFileName = ActiveDocument.Path & "\Словарь1з.xls"
    7.  
    8. Set wb = GetObject(iFileName)
    9. Set ws = wb.Worksheets("Лист1")
    10.  
    11. iArr = ws.Cells(1).CurrentRegion.Value
    12.  
    13. Application.ScreenUpdating = False
    14. Options.DefaultHighlightColorIndex = wdYellow
    15.  
    16. With ActiveDocument.Content.Find
    17.      .Replacement.Highlight = True
    18.      For iCount = 1 To UBound(iArr)
    19.          .Execute Trim(iArr(iCount, 1)), , True, , , , , , , Trim(iArr(iCount, 2)), wdReplaceAll
    20.      Next
    21. End With
    22.  
    23. Application.ScreenUpdating = True
    24.  
    25. wb.Close False
    26.  
    27. End Sub

  7. #36
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    829
    Вес репутации
    16

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    2) Тому может быть несколько причин :

    - в конце\начале слова, которое подлежит замене, наличествует один(или более) пробел(ов). для борьбы с этим безобразием используйте VB(A) функцию Trm (см. код из предыдущего сообщения)
    - в словаре, между словами, наличествует пустая строка. в этом случае currentregion просто отбросит всё, что находится после первой пустой строки. бороться с этим можно, либо не создавая пустых строк, либо отказавшись от использования текущей области (см. самые первые примеры топика)
    - возможно также, что этих слов просто нет, например, они либо в словаре, либо в тексте набраны с "незаметными" ошибками. или, что хуже, при их написании была использована не только кириллица, но и латиница, типа cлово (здесь c это eng)

    Если Вы уверены, что все три варианта мимо, то опять нужны примеры, doc и xls

  8. #37
    coder Aslin is on a distinguished road
    Регистрация
    22.01.2018
    Возраст
    20
    Сообщений
    15
    Вес репутации
    1

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Проверила по пунктам, все у меня в порядке, без пробелов и т.д.
    Кстати, сделал прокрутку при помощи отмены действия, оказывается, он некоторые слова два раза заменяет синонимами. Я думала, что он дойдет до конца текста и остановится
    Вложения

  9. #38
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    829
    Вес репутации
    16

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    Нет информации о том какие слова не были заменены.

  10. #39
    coder Aslin is on a distinguished road
    Регистрация
    22.01.2018
    Возраст
    20
    Сообщений
    15
    Вес репутации
    1

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    не были заменены предусмотренных, иных

  11. #40
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    829
    Вес репутации
    16

    По умолчанию Re: Макрос для для замены слов в файле word из файла-словаря Excel

    вместо слова предусмотренных написано , предусмотенных (A134)
    слово иных (A60) меняется на прочих (B60) а затем Вы опять заставляете макрос менять всё обратно, т.е. прочих (A140) на иных (B140)

+ Ответить в теме
Страница 4 из 5
ПерваяПервая 1 2 3 4 5 ПоследняяПоследняя

Похожие темы

  1. Подсчет слов и пробелов в текстовом файле
    Здание подсчитать слова и пробелы в текстовом файле. { FILE *file; char *fname = "ReadMe.txt"; char result_string= "none"; int word=1;...
    от fyzyz в разделе C и C++
  2. Макрос для word
    Добрый день, уважемые форумчане... Вообщем такая проблема, не могли бы подсказать, как правильно написать скрипт на VBA, работать должен вот...
    от КИС в разделе MS Office и VB(A).
  3. Макрос конветации excel файла в .txt
    Спасибо Всем
    от chiiv в разделе MS Office и VB(A).
  4. Поиск фраз и слов палиндромов в файле-словаре
    Помогите пожалуйста с решением следующей задачи: Дан файл, содержащий большой словарь русских слов и выражений. Составить программу, которая...
    от Anastasija2203 в разделе задачи на Паскале и Delphi
  5. Макрос для Microsoft Excel Worksheet в документе Microsoft Word
    Как, используя макросы в Microsoft Word: 1) Установить заданное число строк и столбцов для Microsoft Excel WorkSheet? 2) Присвоить значения...
    от AleksP в разделе MS Office и VB(A).

Ваши права

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