0

現在、MS Word ドキュメントから書式とテキストを取得し、PowerPoint テンプレートのテキスト ボックスに貼り付けるドキュメントを作成しています。これがどのように行われるかを確認するために全体を見てきましたが、あまり見つかりませんでした。どんな助けでも大歓迎です!!

Public Sub CommandButton1_Click()
Dim pptApp As Object
Dim pptPres As String
Dim folderPath, file As String

    folderPath = ActiveDocument.Path & Application.PathSeparator
    file = "Huntington_Template.pptx"
    pptApp.Visible = True
    pptApp.presentations.Open (folderPath & file)

    ActiveDocument.Bookmarks("Update_Image").Range.Copy 'text box to copy in MS WS
    'not sure what to do next?

End Sub
4

1 に答える 1