замена стиля "Обычный"

[caute]

Хотелось бы иметь макрос, заменяющий в чужом документе стиль "Обычный" на свой обычный стиль "Обычный".
Через организатор много телодвижений треба, хочется одним кликом (этот форум разлагающе действует на мое природное трудолюбие )

[Скрипт]

С помощью макрорекордера получил код:

Sub Макрос2()
    
    Application.OrganizerCopy Source:= _
        "C:\Users\User\AppData\Roaming\Microsoft\Шаблоны\Normal.dotm", _
        Destination:="C:\Users\User\Desktop\Doc1.docx", Name:="Обычный", Object:= _
        wdOrganizerObjectStyles
        
End Sub

[Скрипт]

caute: этот форум разлагающе действует на мое природное трудолюбие

тратьте ваше трудолюбие на изучение VBA-Word. Тут понадобится много трудолюбия.

[caute]

этот макрос не годится, потому что имя и место каждого дока всегда разные. А рекордер мне не помог - организатор не запускается, когда идет запись макроса.

тратьте ваше трудолюбие на изучение VBA-Word

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

[Скрипт]

caute: организатор не запускается, когда идет запись макроса.

Какая у вас версия программы Word - 2003, 2007 или другая?


Вот код для разных документов.
Документы даже можно не открытвать для копирования стилей.

Sub Макрос2()
    
    'Я добавляю перед переменными частицу "my",
    'чтобы имена моих переменных не совпадали со специальными словами.
    Dim mySource As String
    Dim myDestination As String
    
    '1. Здесь нужно указать путь и имя документа, из которого копируется стиль.
    mySource = "C:\Users\User\AppData\Roaming\Microsoft\Шаблоны\Normal.dotm"
    
    '2. Здесь нужно указать путь и имя документа, в который копируется стиль.
    myDestination = "C:\Users\User\Desktop\Doc1.docx"
    
    '3. Копирование стиля из одного документа в другой.
    Application.OrganizerCopy Source:=mySource, Destination:=myDestination, _
        Name:="Обычный", Object:=wdOrganizerObjectStyles
        
End Sub

[caute]

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

говорю же русским языком: документов куча разных, ваш макрос не годится поэтому
Открываю любой чужой док из любого места и одним кликом меняю его стиль "Обычный" на свой, - вот всё, что мне хотелось бы. Как это делается через "Организатор": из правого окошка (normal.dot) стиль обычный копируется в левое (текущий док).
Word 2003 у меня

[Скрипт]

caute: А рекордер мне не помог - организатор не запускается, когда идет запись макроса.

у меня запускается организатор в Word 2003 после включения макрорекордера.


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

Sub Макрос2()
    
    'Я добавляю перед переменными частицу "my",
    'чтобы имена моих переменных не совпадали со специальными словами.
    Dim mySource As String
    Dim myDestination As String
    
    '1. Здесь нужно указать путь и имя документа, из которого копируется стиль.
    mySource = "C:\Users\User\AppData\Roaming\Microsoft\Шаблоны\Normal.dotm"
    
    '2. Указываем путь и имя документа, в который копируется стиль.
    myDestination = ActiveDocument.FullName
    
    '3. Копирование стиля из одного документа в другой.
    Application.OrganizerCopy Source:=mySource, Destination:=myDestination, _
        Name:="Обычный", Object:=wdOrganizerObjectStyles
        
End Sub

[caute]

во! вроде, работает как надо.
пирожнику от сапожника - большое человеческое СПАСИБО!

(с рекордером я напутал, сорь, но в данном случае он бесполезен)

[Скрипт]

caute: (с рекордером я напутал, сорь, но в данном случае он бесполезен)

вообще-то я с помощью макрорекордера узнал, какой инструмент использовать в данной задаче, а не с помощью справки или ещё чего-то.

[caute]

я-то имел в виду, что готовый макрос нельзя так создать,
не отрицая тот факт, что программист может с помощью макрорекордера разобраться и написать нужный макрос (хотя некоторые тут умудряются и без помощи рекордера макросы писать )