Открытие файла .doc с помощью VBA

[Niktoto]

Сообщение от EducatedFool

Sub ОткрытьДокументWord2()
    On Error Resume Next

    Set wa = CreateObject("Word.Application")    ' создаём приложение Word (без подключения библиотеки Word)

    wa.Visible = True    ' делаем Word видимым
    
    Set wd = wa.Documents.Open(ПутьКФайлу)
 
    wd.Paragraphs(18).Range.InsertAfter Текст    ' вставляем текст в нужное место (после 18-го параграфа)
    wd.Save    ' сохраняем документ
End Sub

Добрый день.
Для решения своей задачи я частично использовал этот код, но мне теперь надо в ворде найти определенный такст, например "1111", и заменить его на "2222".
И еще один вопросик, как потом вордовский файл сохранить под именем "2222" и закрыть его??

Заранее благодарен!

[EducatedFool]

Замените строку wd.Paragraphs(18).Range.InsertAfter Текст

на код:

    With wd.Range.Find
        .Text = "старый текст"
        .Replacement.Text = "новый текст"  ' текст для замены не должен превышать 255 символов
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With
    
    НовыйПутьКФайлу = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "2222.doc")
    wd.SaveAs НовыйПутьКФайлу ' документ сохранится в той же папке, что и книга Excel
    wd.Close

[Niktoto]

Сообщение от EducatedFool

Замените строку wd.Paragraphs(18).Range.InsertAfter Текст

на код:

    With wd.Range.Find
        .Text = "старый текст"
        .Replacement.Text = "новый текст"  ' текст для замены не должен превышать 255 символов
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With
    
    НовыйПутьКФайлу = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "2222.doc")
    wd.SaveAs НовыйПутьКФайлу ' документ сохранится в той же папке, что и книга Excel
    wd.Close

Большое спасибо!

С сохранением файля все ОК!

А с заменой не все так гладко. Макрос отрабатывает нормально, но замены не происходит. Не подскажете с чем это связано?

[EducatedFool]

Код проверял. Точно работает. Заменяет.
У вас данные для замены случайно не в таблице?

Попробуйте убрать строку On Error Resume Next - тогда, может быть, увидите, в чём ошибка.

[Niktoto]

Сообщение от EducatedFool

Код проверял. Точно работает. Заменяет.
У вас данные для замены случайно не в таблице?

Попробуйте убрать строку On Error Resume Next - тогда, может быть, увидите, в чём ошибка.

У меня строки "он ерор" нету (
а данные для замены находятся как в таблице так и вне ее, для каждого варианта нужен свой алгоритм?

Вот вложенные файлы, если не трудно, помогите пожалуйста!

Заранее благодарен!

[Sasha_Smirnov]

Сообщение от Sasha_Smirnov

Из-за SendKeys для Word и Excel 97 это не годится; в 2003-х — работает.
Прямо в архиве кнопка (opWo) не работает, но можно скачать. И по альт-F11 посмотреть и скопировать выШЕприведённый код.

Чуть не забыл! В посте «Эксперименты с ВБА» макрос, открывающий Ворд из Эксселя, запускается по альт-F8, прямо из архива!

[Sasha_Smirnov]

Сообщение от Sasha_Smirnov

strDumn = Dir("*.doc*") 'имя 1-го документа Word в ТЕКУЩЕЙ ПАПКЕ'

Как выяснилось, текущей папкой для Dir являются обычно* Мои документы.
_____________________________
* можно через настройки Windows её изменить, но это уже другая тема

[prima]

Подскажите, пожалуйста можно ли как-то сделать, чтобы с помощью макроса в документ .exl копировались данные из документа .word, находящиеся в таблице

[alexanr]

Я первый раз пытаюсь написать макрос, голову сломал ни чего не понимаю,
может тут кто то поможет, есть несколько разных отчетов из SQL в формате *.CVS. Хотелось бы импортировать данные из этих файлов.

В таком виде все работает, но меня не устраивает что нельзя перемещать папку.

PHP код:

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Desktop\report\report1.csv", Destination _
        :=Range("$A$1"))
        '.CommandType = 0'
        .Name = "report1_14" 


Хотелось бы использовать ту папку в которой лежит сам проект, и иметь возможность ее перемещать.

PHP код:

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;CurrentProject.Path & \report1.csv", Destination _
        :=Range("$A$1"))
        '.CommandType = 0'
        .Name = "report1_14" 


В таком виде говорит что файл не найден .
Как быть ? помогите пожалуйста !

[Serge_Bliznykov]

не проверял.

попробуйте так:

With ActiveSheet.QueryTables.Add(Connection:= _ 
        "TEXT;" & Application.ActiveWorkbook.Path & "\report1.csv", _ 
        Destination :=Range("$A$1"))
        '.CommandType = 0' 
        .Name = "report1_14"