Как ефективно да се консолидират функциите на Word и excel VBA? - excel, vba, excel-vba, ms-word

Имам писмен код в две споменати заявления. Този код в Word поставя всички .emf файлове в дума заедно с посоченото заглавие:

Sub LoopEMF()
Dim sPic As String
Dim sPath As String
Dim MyText2 As String
MyText2 = "Figure X - Effects of indicated compounds on specified assays."

sPath = ActiveDocument.Path & ""
sPic = Dir(sPath & "*.emf")

Do While sPic <> ""
Selection.TypeText (MyText2)
Selection.InlineShapes.AddPicture _
FileName:=sPath & sPic, _
LinkToFile:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
sPic = Dir
Loop
End Sub

Вторият комплект код копира набор от клетки в Excel (те кодират малка таблица, която актуализира стойности, базирани на отместване) и пасти, които копират информация в Word:

Sub Insert_Table2()

Dim WdObj As Object, fname As String
fname = "Tester"
Set WdObj = CreateObject("Word.Application")
WdObj.Visible = False
WdObj.Documents.Add
For loop_ctr = 1 To 2
ActiveSheet.Range("I2").Value = loop_ctr
Range("J1:M5").Select
Selection.Copy "Your Copy Range
WdObj.Selection.PasteSpecial Link:=False, _
DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
Next loop_ctr
If fname <> "" Then "make sure fname is not blank
With WdObj
.ChangeFileOpenDirectory ActiveWorkbook.Path "save Dir
.ActiveDocument.SaveAs Filename:=fname & ".docx"
End With
Else:
MsgBox ("File not saved, naming range was botched, guess again.")
End If
With WdObj
.ActiveDocument.Close
.Quit
End With
Set WdObj = Nothing

End Sub

И двата кода са настроени да се въртят и правят точно кактоНо сега искам да комбинирам съответните им действия в един единствен Word файл - и аз наистина съм се заклещ (помощ?). Не мога да видя начин за вграждане на двата кода в рамките на всеки друг (и дори не съм сигурен, че това е възможно).

Това каза, тук е това, което бих искал да мога да направя. Първо, добавете код към Word VBA (LoopEMF), така че да увеличи стойността на Фигура X с една с всеки цикъл (Фигура 1, Фигура 2 и т.н.). С тази работа изглежда, че трябва да е възможно да промените Excel VBA (Insert_Table2), така че да отвори документа на Word с .emf файлове, да потърси текстов низ и да постави таблицата след връщане на каретата от текстовия низ. Ако някаква душа може да ми помогне да стигна толкова далеч, тогава изглежда, че последната задача ще бъде да се определи обосновката и позицията на двата поставени предмета, така че те да са на противоположните краища на страницата и да са позиционирани правилно един спрямо друг

Отговори:

Определено е възможно и осъществимо, особено след като вече сте свършили работата - прочетете за автоматизацията на Excel от Word .... Ето Добър старт за интегриране на Excel данни в Word