Excelオフィス365でマクロ(VBA)を使用しているWordファイルに書く方法?

 Sub WriteToWord()

   ''Using Early Binding

    'Dim wordApp As Word.Application

    'Dim mydoc As Word.Document

    'set wordApp=new word.Application 

    'Using late binding to create word application object

    'Declaring variables as objects

    Dim wordApp As Object

    Dim mydoc As Object

    'Initializing the object using CreateOBject Function

    Set wordApp = CreateObject("Word.Application")

    'Making word App Visible

    wordApp.Visible = True

    'Creating a new document

    Set mydoc = wordApp.Documents.Add()

    'Getting input from user

    myString = Application.InputBox("Write Your Text")

    'Writing to word

    wordApp.Selection.TypeText Text:=myString

    'inserting a new paragraph

    wordApp.Selection.TypeParagraph

End Sub