It keeps stopping on "objword.activate"
not required anyway
you may need objwork.visible = true at the same place in code

i can not tell from the code if you are doing this in outlook or word, though i guess outlook

If dlg.Show = -1 Then
'didn't choose anything (clicked on CANCEL)
MsgBox "You chose cancel"
Else
'Insert the file contents
Selection.InsertFile FileName:=dlg.SelectedItems(1)
End If
dlg is probably out of scope as you already closed word, else would duplicate the opening of the dialog anyway,
selection is unqualified and may refer to anything that can be selected, presumably in outlook
you should use getfolderpathwithword (if it is not one of the error strings) as the filename to insertfile,
or the filename to open file and read contents as posted above