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

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

  1. #21
    dummy KapitanFracas is on a distinguished road
    Регистрация
    02.03.2016
    Возраст
    29
    Сообщений
    7
    Вес репутации
    0

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

    Tak. Все идет по плану

    открывает диалог, я нахожу вордовский файл, выходит сообщение с именем выбранного файла,

    ...и зависает навечно, естественно в ворде ниче не заменяется. Прерываю, выдается сообщение об ошибке Run-time error 4198.

    Целиком саб такой:


    Private Sub Test()


    Dim iFileName As Variant
    iFileName = Application.GetOpenFilename("Word Files (*.doc*), *.doc*")

    If iFileName <> False Then
    MsgBox iFileName, , ""
    Else
    MsgBox "Select file", vbCritical, ""
    End If
    If iFileName <> "" Then
    With Range(Cells(2, "A"), Cells(Rows.Count, "B").End(xlUp))
    iArrText = .Value: iCount = UBound(iArrText)
    End With

    Set iWordApp = CreateObject("Word.Application")
    iWordApp.Visible = False


    Do
    Set iWordDoc = iWordApp.Documents.Open(iPath & iFileName)

    With iWordDoc.Content.Find
    For iCounter = 1 To iCount
    .Execute FindText:=iArrText(iCounter, 1), _
    ReplaceWith:=iArrText(iCounter, 2), Replace:=2 'wdReplaceAll
    Next
    End With

    iFileName = Dir: iWordDoc.Close -1 'wdSaveChanges
    Loop Until iFileName = ""

    iWordApp.Quit

    End If

    End Sub


    Подозреваю что в сабе осталось что то связанное с множественными файлами но не могу понять в которой строке
    Последний раз редактировалось KapitanFracas; 11.03.2016 в 15:44.

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

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

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

    KapitanFracas, Если и дальше будут сыпаться ошибки, связанные с автоматизацией, то Вам нужно будет обратить своё внимание именно на них ...
    Вложения

  4. #23
    dummy KapitanFracas is on a distinguished road
    Регистрация
    02.03.2016
    Возраст
    29
    Сообщений
    7
    Вес репутации
    0

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

    да супер, работает. жаль что наложились другие проблемы. спасибо огромное

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

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

    Если другие проблемы, связаны конкретно с заменой, то тему можно продолжить ...

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

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

    Здравствуйте, может кто-нибудь помочь с написанием макроса. У меня есть готовый макрос с интернета для замены слов синонимами из тезерауса ворда, а мне бы хотелось, чтобы он находил слова и словосочетания и заменял синонимами из созданного мною словаря (можно в эксель). Пыталась разобраться у вас в форуме, но не до конца поняла, работает ли ваш макрос или нет. Попробовала его в ворде. Не работает(.
    Всем заранее спасибо, если поможете.

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

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

    Насчёт словосочетаний не знаю, но если выложите небольшой фрагмент документа (.doc) и Вашего собственного словаря (.xls), то, возможно, ответ и найдётся.

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

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

    Здравствуйте, не получается загрузить, пишет мол слишком большой, не подскажите как быть?

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

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

    Не нужно загружать весь документ и книгу, достаточно нескольких страниц текста и нескольких строк в книге. Если и этого будет много, то можно за архивировать (.rar, .zip и т.п.) и выложить уже архив.

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

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

    Спасибо, все получилось загрузить. Для форума.zip

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

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

    Aslin, Макрос для активного word документа, словарь должен располагаться в той же папке, что и документ. Разумеется, тестировать нужно на копии, не забыв, перед этим, указать реальное имя книги - словаря (включая расширение) и имя листа, где находится словарь.

    Код :
    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: iCount = UBound(iArr)
    12.  
    13. Application.ScreenUpdating = False
    14.  
    15. With ActiveDocument.Content.Find
    16.      For iCount = 1 To iCount
    17.          .Execute iArr(iCount, 1), , , , , , , , , iArr(iCount, 2), wdReplaceAll
    18.      Next
    19. End With
    20.  
    21. Application.ScreenUpdating = True
    22.  
    23. wb.Close False
    24.  
    25. End Sub

+ Ответить в теме
Страница 3 из 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).

Ваши права

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