Sub т111()

Dim inlineshp As InlineShape
Dim inlineshpNew As InlineShape
Dim Altext As String
Dim AFileName As String
Dim APatch As String
'Dim ARange As Range

APatch = "e:\_ISIRServer\"

For Each inlineshp In ActiveDocument.InlineShapes

    Altext = inlineshp.AlternativeText   'запоминаю альтернативный текст

    AFileName = APatch + Altext + ".jpg"   'имя файла
    
    If Dir(AFileName) <> "" Then   'проверяю существует ли файл
        
         ARange = inlineshp.Range
        
        inlineshp.Delete   'удаляю картинку

        'в следующей строке ошибка Несовпадение типа
        Set inlineshpNew = ActiveDocument.InlineShapes.AddPicture(FileName:=AFileName, LinkToFile:=False, SaveWithDocument:=True, Range:=ARange)
        
       
        inlineshpNew.LockAspectRatio = True
        inlineshpNew.AlternativeText = Altext   'возвращаю альтернативный текст
       
       'inlineshpNew.Height = Application.CentimetersToPoints(5)
       'inlineshpNew.Width = Application.CentimetersToPoints(5)
    
    End If

Next inlineshp

End Sub

procedure TForm2.FormShow(Sender: TObject);
var
  App: OleVariant;
  Doc: OleVariant;
  Pic: OleVariant;
  rng: OleVariant;
  i: Integer;
  ADir, altext: String;
  AFileName: String;
begin
  ADir := ExtractFileDir(Application.ExeName) + '\';
  if not FileExists(ADir + 'name.docx') then close;

  App := CreateOleObject('Word.Application');
  try
    App.Visible := False;
    Doc := App.Documents.open(ADir + 'name.docx');
    App.Selection.MoveRight;
    for i := 1 to Doc.InlineShapes.Count do
    begin
      AFileName := ADir + Doc.InlineShapes[i].AlternativeText + '.jpg';
      If FileExists(AFileName) Then 
      begin
        rng := Doc.InlineShapes.Item[i].Range;
        altext := Doc.InlineShapes[i].AlternativeText;
        Doc.InlineShapes.Item[i].delete;
        Pic := Doc.InlineShapes.AddPicture(AFileName, false, True, rng);
        Pic.AlternativeText := altext;
        Pic.LockAspectRatio := True;
        Pic.Height := 410;
        App.Visible := True;
      end;
    end;
  finally
    // app.Close;
    Doc := Unassigned;
    App := Unassigned;
  end;
  close;
end;