Помогите сделать макрос для работы с текстом!

[sergius25]

Помогите, пожалуйста, сделать макрос:

Макрос в Word вызывает файл F.xls, в котором находится заранее записанный макрос и передаёт ему управление. Этот макрос получает строчку, которая введена в Word, изменяет порядок слов в этом тексте на обратный и выводит каждое слово в ячейке. В тексте с изменённым порядком слов первая буква в первом слове должна быть большой, а первая и последняя буквы в последнем слове должны быть маленькими!

[Sla]

где затык?
в екселе есть такое Workbook_Open, отсюда и копай

[sergius25]

А как сделать, чтоб он передал управление макросу?

[Sla]

так он сработает при открытии екселевского файла

[sergius25]

Как это? По-моему откроется только екселевский файл, а макрос, который прописан в этом екселевском файле нужно запускать отдельной командой!

И как сделать, чтобы этот макрос, нходящийся в екселевском файле, получил строчку, введенную в ворде?

[Sla]

Open Event

Occurs when the workbook is opened.

[Catherine]

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

[PooH]

где-то примерно так:

Код:

Sub Макрос()
cnt = 0

With ActiveDocument.Content.Find
    .ClearFormatting
    .MatchWholeWord = True
    .Font.Color = wdColorRed
    Do While .Execute(FindText:="", Forward:=True, _
            Format:=True) = True
        cnt = cnt + 1
        With .Parent
               .Move Unit:=wdCharacter, Count:=1
        End With
    Loop
End With

MsgBox cnt

End Sub

или нужно именно "не чёрным"?

[Catherine]

спасибо большое. Лучше, конечно "не чёрным". и ещё одна просьба: можешь объяснить, что делаешь в циклу Do ... While. Я что-то не совсем поняла эту процедуру. Если не сложно, конечно.

[Catherine]

мне просто нужно ещё комментарии к проге написать, а для этого нужно как минимум понять, как это всё работает.

[sergius25]

Помогите, пожалуйста, сделать макрос:

Макрос в Word вызывает файл F.xls, в котором находится заранее записанный макрос и передаёт ему управление. Этот макрос получает строчку, которая введена в Word, изменяет порядок слов в этом тексте на обратный и выводит каждое слово в ячейке. В тексте с изменённым порядком слов первая буква в первом слове должна быть большой, а первая и последняя буквы в последнем слове должны быть маленькими!

Я сделал следующее:

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

Dim e As Object
Dim s As String

s = Selection.Words.Parent

Set e = CreateObject("Excel.Application")
e.workbooks.Open ("D:\F.xls")
e.Visible = True
e.Run "WordRevers", s
Set e = Nothing

Т.е. он открывает файл F.xls и запускает макрос WordRevers. А что теперь прописать в этом макросе для того чтобы он изменил порядок слов выделенного текста в Word и вставил каждое слово текста с изменённым порядком слов в отдельную ячейку?

[PooH]

Catherine, в цикле увеличивается счетчик и происходит смещение текущей позиции на "один символ после выделения". А если не сделать "сдвиг" Execute ,будет постоянно возвращать одно и тоже выделение. Но у этого стособа есть недостатки. Во-первый, мне кажется нельзя сделать "не черным", а во-вторых, если окрашивать только части слова, то может посчитаться не правильно.  Мне кажется, есть "коллекция слов", тебе нужно по ней пройтись и проверить цвет. То есть, все можно сделать даже проще:

Код:

Sub TEST()
cnt = 0

For Each wrd In ActiveDocument.Content.Words
 If wrd.Font.Color > 0 Then
 cnt = cnt + 1
 End If
Next wrd

MsgBox cnt

End Sub

Есть одно НО, надо сначано все сделать "черным", а потом выделять.

[Catherine]

Спасибо, PooH, огромное. я стала проверять ещё ваш послдений код, который вы написали. Там не всё гладко. Если в таблице 3 окрашенных слова, то макрос считает 4, т.е. на 1 слово больше. Возможно, там не учтён символ послдений или ещё что-то в этом роде.

[PooH]

Как я заметил, туда может попать еще и спец символ.

Попробуй поставить перед(или после) "cnt=cnt+1" "MsgBox wrd.Text"

И не забывай про "НО", коророе я описал.

[Catherine]

Спасибо большое. Правда, то, что ты сказал вставить работает не совсем так. Этот макрос выводит слова, подкрашенные разными количествами. Он не считает их количество.
Всё равно спасибо.

[Sla]

Catherine, ты не внимательно читаешь посты

[Naghual]

Deemon, Ваш пост удален.
Ознакомтесь с правилами раздела.

Catherine, так как вы создали свою тему в этом посте ДО публикации правил раздела, к вам подобное действие не применимо.
Впредь, пожалуйста, следуйте правилам.
 

[Catherine]

Sla, я не поняла, что ты имеешь в виду

[sergius25]

Мне кто-нибудь поможет решить задачу?

[HandKot]

Мне кто-нибудь поможет решить задачу?

Код:

    Dim e As Excel.Application
    Dim wb As Excel.Workbook

    'открываем и запускаем
    Set e = New Excel.Application
    e.Visible = true
    Set wb = e.Workbooks.Add("Путь к файлу Excel")
            
    e.Run "Вызываемый макрос", Param1, Param2, Param3,...., ParamN
 
    ...
    e.Quit
    set e = nothing

   

P.S.:вызываемый макрос лучше прописывать так MyExcelFile.xls!MyMacros (т.е. сначала имя файла, где находится макрос, потом "восклицательный знак", потом имя макроса, который вызываете) ИМХО

[HandKot]

Помогите, пожалуйста, сделать макрос:

Макрос в Word вызывает файл F.xls, в котором находится заранее записанный макрос и передаёт ему управление. Этот макрос получает строчку, которая введена в Word, изменяет порядок слов в этом тексте на обратный и выводит каждое слово в ячейке. В тексте с изменённым порядком слов первая буква в первом слове должна быть большой, а первая и последняя буквы в последнем слове должны быть маленькими!

Я сделал следующее:

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

Dim e As Object
Dim s As String

s = Selection.Words.Parent

Set e = CreateObject("Excel.Application")
e.workbooks.Open ("D:\F.xls")
e.Visible = True
e.Run "WordRevers", s
Set e = Nothing

Т.е. он открывает файл F.xls и запускает макрос WordRevers. А что теперь прописать в этом макросе для того чтобы он изменил порядок слов выделенного текста в Word и вставил каждое слово текста с изменённым порядком слов в отдельную ячейку?

Извините не заметил этот пост

Тогда сам макрос

Код:

Public Sub WordRevers(s As String)

    Dim ar() As String
    Dim i As Integer
    Dim sTmp As String
        
    'разбиваем предложение на слова
    ar = Split(s, " ")

    For i = LBound(ar) To UBound(ar)
        sTmp = ar(UBound(ar) - i)
        
        'выаполняем условие про большие и маленькие буквы
        
        'если последенее слово, то делаем первую букву большой
        If i = LBound(ar) Then sTmp = UCase(Left(sTmp, 1)) + Mid(sTmp, 2)
        
        'если первое слово, то делаем все буквы маленькими
        If i = UBound(ar) Then sTmp = LCase(sTmp)
        
        'пишем результат
        ThisWorkbook.Worksheets(1).Range("A" & CStr(i + 1)).Value = sTmp
    Next i

End Sub

[PooH]

вот еще, как вариант:

Код:

Sub MTest(m_str As String)

Selection.InsertAfter m_str
Set OrigSel = Selection.Range

Dim aux_str
For i = Selection.Words.Count To 1 Step -1
    aux_str = aux_str + " " + Trim(Selection.Words(i).Text)
Next i
aux_str = LTrim(aux_str)

Selection.Range.Delete
Selection.InsertAfter aux_str

Set OrigSel = Selection.Range

OrigSel.Words(1).Characters(1).Case = wdUpperCase
OrigSel.Words(OrigSel.Words.Count).Characters(1).Case = wdLowerCase
OrigSel.Words(OrigSel.Words.Count).Characters(OrigSel.Words(OrigSel.Words.Count).Characters.Count).Case = wdLowerCase

For Each wrd In OrigSel.Words
    wrd.ConvertToTable
Next wrd

End Sub

[Sla]

sergius25 опиши проблему
я тебе дал совет, ты пошел по другому пути. Далее ты не сказал что не получилось и не РАССКАЗАЛ что делал

[sergius25]

HandKot
Огромнейшее Вам спасибо!
Но, что нужно изменить в строке ThisWorkbook.Worksheets(1).Range("A" & CStr(i + 1)).Value = sTmp, чтобы слова выводились в строку, а не в столбец!

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

[HandKot]

HandKot
Огромнейшее Вам спасибо!
Но, что нужно изменить в строке ThisWorkbook.Worksheets(1).Range("A" & CStr(i + 1)).Value = sTmp, чтобы слова выводились в строку, а не в столбец!

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

мдя...народ совсем обленился

Код:

ThisWorkbook.Worksheets(1).Cells(1, i + 1) = sTmp

[sergius25]

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

А как теперь сделать тоже самое задание, только текст введён не в ворде, а в Delphi? Т.е. весь код содержится в макросе Excel_я, а работать нужно с тектсом, который введён в Delphi.

[HandKot]

Думаю так же как и в Ворде.
Объявить переменную в Делфи как Ексель
и так же работать

[sergius25]

Объявить переменную в Делфи как Ексель

А как её объявить?

[HandKot]

Объявить переменную в Делфи как Ексель

А как её объявить?

Как объявляются любые переменные в любых (во многих) языках программирования

[sergius25]

Ну а как это в делфи сделать?