Kategori: Lain-lain

Misalnya kita punya sebuah file word ratusan halaman, lalu kita ingin menconvert tiap halaman file tersebut sebagai satu file html terpisah, kita bisa menggunakan script macro di bawah ini:

Sub SaveAsHtmls()
'
' SaveAsHtmls Macro
'
'

    Dim orig As Document
    Dim page As Document
    Dim numPages As Integer
    Dim idx As Integer
    Dim fn As String
    
       
    ' Keep a reference to the current document.
    Set orig = ActiveDocument
    
    ' Calculate the number of pages
    numPages = ActiveDocument.BuiltInDocumentProperties("Number of Pages")
    
    For idx = 1 To numPages
        ' Make sure the document is active
        orig.Activate
               
        ' Go to the page with index idx
        Selection.GoTo What:=wdGoToPage, Name:=idx
    
        ' Select the current page
        Selection.GoTo What:=wdGoToBookmark, Name:="\page"
               
        ' Copy the selection
        Selection.Copy
        
        ' Create a new document
        Set page = Documents.Add
        
        ' Activate it
        page.Activate
               
        ' Paste the selection
        Selection.Paste
        
        ' Generate the file name
        fn = "C:\converted\page_" + CStr(idx) + ".html"
        
        ' Save the document as HTML
        page.SaveAs FileName:=fn, FileFormat:=wdFormatHTML, AddToRecentFiles:=False
        
        ' Close the document
        page.Close
        
    Next

End Sub

Cara menggunakan script di atas akan Om Puter tunjukin di video di bawah ini:

Permainan seru The Haunted Tower ini mengajak kamu menelusuri keangkeran sebuah menara yang terkenal angker yaitu Menara Saidah.

Coba mainkan game ini dan beri dukungan dengan memberikan bintang / rating yang tinggi, supaya pembuatnya bisa mengupdatenya sehingga game jadi lebih seru lagi.

Di game The Haunted Tower kamu perlu mencari senter untuk menerangi kegelapan lorong-lorong Menara Saidah agar kamu tidak tersesat di dalamnya.

Hati-hati di dalamnya banyak monster yang mengagetkan. Lebih baik kamu jauh-jauh dari mereka, karena kamu tidak bisa melawan mereka.

Misi game ini adalah menelusuri menara, bukan mengalahkan monster-monster yah, jadi pokoknya lebih baik menghindari makhluk-makhluk aneh itu daripada kaget sendiri.