Set oWord = CreateObject("word.application") Set oDoc = oWord.Documents.Add oWord.Selection.Paste oWord.Visible = True Tambahkan kode berikut ke bagian Deklarasi Umum modul Formulir. Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As ...
Dim oRng As Word.Range Dim oShape As Word.InlineShape Dim oChart As Object Dim Pos As Double 'Start Word and open the document template. oWord = CreateObject("Word.Application") oWord.Visible = True oDoc = oWord.Documents.Add 'Insert a paragraph at ...