どのように効果的に単語を統合し、VBAの機能を優れている？ - excel、vba、excel-vba、ms-word

私は2つの上記のアプリケーションでコードを書いています。 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

2番目のコードセットは、オフセットに基づいて値を更新する小さなテーブルをエンコードした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

両方のコードはループに設定され、しかし、今ではそれぞれのアクションを1つのWordファイルにまとめたいと思っています。私は本当に立ち往生しています（助けてください）。私は2つのコードをお互いに埋め込む方法は見当たりません（そしてそれが実行可能であるかどうかもわかりません）。コードを入れ子にすることができれば、それぞれのループ関数をどのように入れ子にするのか想像できません。

つまり、ここでは私ができることが好きなのです。 最初に、各ループ（図1、図2など）で図Xを1ずつインクリメントするように、Word VBA（LoopEMF）にコードを追加します。これで、Excel VBA（Insert_Table2）を変更して、.emfファイルでWord文書を開き、テキスト文字列を検索し、テキスト文字列から復帰した後にテーブルを貼り付けることができるようです。もし、ある種の魂がそれを手助けすることができれば、最後の仕事は2つの挿入されたオブジェクトの正当化と位置を設定して、ページの反対側にあり、互いに対して適切に位置付けられるようにすることです。

回答：

間違いなく可能であり、とりわけあなたが既に仕事を済ませてから、WordからExcelオートメーションについて読むことができます。 ExcelデータをWordに統合するのに適しています