Me.Controls(str).OLETypeAllowed = acOLEEmbedded Me.Controls(str).Class = "Word.Document" Me.Controls(str).SourceDoc = sPath ' doc Me.Controls(str).Action = acOLECreateEmbed