Перевод с VBA на Делфи.

[Алексей_2012]

Добрый день! Нашел решение по этой теме, макрос записал, сформировался код


Добавление шаблона

Sub Макрос1()
 
    AddIns.Add FileName:= _
        "C:\Users\*****\AppData\Roaming\Microsoft\Шаблоны\Decisionmod.dot" _
        , Install:=True
    AddIns.Add FileName:= _
        "C:\Users\****\AppData\Roaming\Microsoft\Шаблоны\Decision.dot", _
        Install:=True
    With ActiveDocument
        .UpdateStylesOnOpen = False
        .AttachedTemplate = "Normal"
    End With
End Sub

Удаление шаблонов

Sub Макрос1()
 
    AddIns( _
        "C:\Users\****\AppData\Roaming\Microsoft\Шаблоны\Decisionmod.dot" _
        ).Delete
    AddIns( _
        "C:\Users\****\AppData\Roaming\Microsoft\Шаблоны\Decision.dot"). _
        Delete
    With ActiveDocument
        .UpdateStylesOnOpen = False
        .AttachedTemplate = "Normal"
    End With
End Sub

Вход в меню шаблонов

Sub Макрос2()
'
' Макрос2 Макрос
'
'
    With ActiveDocument
        .UpdateStylesOnOpen = False
        .AttachedTemplate = "Normal"
    End With
End Sub

Подскажите, пожалуйста, какие аналоги в делфи есть команды addins.add и addins.delete? (uses comObj). Буду благодарен за любую помощь, спасибо!

[Алексей_2012]

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

procedure TForm1.Button1Click(Sender: TObject);
var wrd: Variant;

  fil, dir: PChar;
begin


  fil := pchar(ExtractFilePath(Application.ExeName) + 'doc1.dot');
  dir := PChar(ExtractFilePath(GetEnvironmentVariable('APPDATA')) + 'Roaming\Microsoft\Шаблоны\doc1.dot');
  CopyFile(fil, dir, false);


  Wrd := CreateoleObject('Word.Application');
  Wrd.visible := false;
  wrd.documents.add(ExtractFilePath(GetEnvironmentVariable('APPDATA')) + 'Roaming\Microsoft\Шаблоны\normal.dot', false);
  Wrd.addins.add(string(dir), false);

  Wrd.visible := true;
end;