Поиск и выделение текста в Word файле

[DOMINANT]

Приветствую! Помогите конвертировать VBA макрос в Autoit, код ищет текст в документе и выделяет этот текст. В самом Word если запускать все работает отлично

Sub Test1()
Dim WordApp As Object
     
    Set WordApp = GetObject(, "Word.Application")
    WordApp.Visible = True
    
    ActiveDocument.Content.Select
    
    With Selection.Find
        .ClearFormatting
        .Text = "12345"
    End With
    
    If Selection.Find.Execute Then
        Selection.Select
    End If
End Sub

Вот так пытался не работает

$objWord = _Word_Create()
$empWord = _Word_DocOpen($objWord, @ScriptDir & "\тест.docx", 0, 0, 0, 1)
$empWord.Content.Select
With $empWord.Selection.Find
    .ClearFormatting
    .Text = "12345"
EndWith

If $empWord.Selection.Find.Execute Then
   $empWord.Selection.Select
EndIf

 

[Alofa]

#include <Word.au3>
$oWord = _Word_Create()
$oDoc = _Word_DocOpen($oWord, @ScriptDir & '\Test.docx')
$oRangeFound = _Word_DocFind($oDoc, '12345')
$oRange = _Word_DocRangeSet($oDoc, $oRangeFound)
$oRange.Select

 

[DOMINANT]

Спасибо работает, но я хочу научиться работать встроенными методами в word и excel, чтобы в дальнейшем более тонкие и продвинутые вещи делать , и поэтому вопрос остаётся открытым

 

[hedji]

$empWord = ObjCreate("Word.Application")
$empWord.Visible = 1
$empWord.documents.Open(@ScriptDir & "\тест.docx").Content.Select
With $empWord.Selection
    .Find.Text = "12345"
EndWith

If $empWord.Selection.Find.Execute Then
        $empWord.Selection.Select
EndIf

 

[DOMINANT]

Ура!!! :beer: hedji а как можно дополнительные опции посылать в VBA выглядит так

Selection.PasteAndFormat (wdFormatPlainText)

в скобках доп опция вот так пробовал, эта функция вставляет то что находится в буфере обмена как простой текст

$empWord.Selection.PasteAndFormat (wdFormatPlainText)
$empWord.Selection.PasteAndFormat = wdFormatPlainText
$empWord.Selection.PasteAndFormat = $wdFormatPlainText

 

[Garrett]

DOMINANT [?]

а как можно дополнительные опции посылать в VBA выглядит так

Предупреждение

За нарушение общих правил (пункт В.4):

Не лепите несколько вопросов разной тематики в один пост. По типу "Ребят, а ещё такой вопрос...". Каждый вопрос в свою тему.

С уважением, ваш Глобальный модератор.

Добавлено:

Сообщение автоматически объединено: 26 Мар 2017

[info border=#0000ff float=left]На форуме принято помечать тему решенной после получения ответа на свой вопрос!
Вверху или внизу темы нажмите на ссылку такого вида:

Тема не решена[/info]