Sub AttachFile()
  With Application.FileDialog(msoFileDialogFilePicker)
    .Title = " Вставка файлов в виде значков"
    .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", "C:\")
    .Filters.Clear: .Filters.Add "Все файлы Word ", _
    "*.docx;*.docm;*.dotx;*.doc;*.dot;*.htm;*.html;*.txt;*.rtf;*.mht;*.mhml;*.xml;*.odt;*.pdf"
    If .Show <> -1 Then Exit Sub
    For Each F In .SelectedItems
      Selection.InlineShapes.AddOLEObject ClassType:="Package", FileName:=F, LinkToFile:=False, _
      DisplayAsIcon:=True, IconFileName:="C:\Windows\system32\packager.dll", _
      IconIndex:=0, IconLabel:=Mid(F, InStrRev(F, "\") + 1)
    Next
    SaveSetting Application.Name, "GetFilePath", "folder", Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
  End With
End Sub

#If WinActive("ahk_class OpusApp")
F11:: InsertFileIntoWord()
#If

InsertFileIntoWord()  {
	ControlGet, ControlHwnd, Hwnd,, _WwG1, % "ahk_id" WinExist("A")
	accobj := AccObjectFromWindow(ControlHwnd, -16)
	oWord := accobj.Application
	dialog := oWord.FileDialog(msoFileDialogFilePicker := 3)
	if dialog.Show()  {
		FilePath := dialog.SelectedItems(1)
		SplitPath, FilePath, FileName
		dialog := oWord.Dialogs(wdDialogInsertObject := 172)
		for k, v in { DisplayIcon: 1, IconFileName: "C:\Windows\system32\packager.dll"
						, IconNumber: 1, FileName: FilePath, Caption: FileName, tab: 1 }
			dialog[k] := v
		dialog.Execute()
	}
}

AccObjectFromWindow(hWnd, idObject = 0)
{
	static IID_IDispatch	  := "{00020400-0000-0000-C000-000000000046}"
		  , IID_IAccessible := "{618736e0-3c3d-11cf-810c-00aa00389b71}"
		  , OBJID_NATIVEOM := 0xFFFFFFF0, VT_DISPATCH := 9, h := DllCall("LoadLibrary", Str, "oleacc", Ptr)
        
	VarSetCapacity(IID, 16), idObject &= 0xFFFFFFFF
	DllCall("ole32\CLSIDFromString", Str, idObject = OBJID_NATIVEOM ? IID_IDispatch : IID_IAccessible, Ptr, &IID)
   if DllCall("oleacc\AccessibleObjectFromWindow", Ptr, hWnd, UInt, idObject, Ptr, &IID, PtrP, pAcc) = 0
		Return ComObjEnwrap(VT_DISPATCH, pAcc, 1)
}