2015年6月4日 星期四

adobe PDF to WORD PDF檔編輯轉WORD

網路上有許多線上PDF轉WORD的網站,但要能編輯PDF而且又要能轉成WORD,除了adobe自家的軟體之外,其實免費軟體並不多,而其他商業軟體,大多是要License而且需付費。

2013年,adobe曾䆁出一個免費的正式版,安裝adobe8.0後,發現程式雖舊,但仍合用,若有需要的人不妨找找。

Adobe CS2 free download  (建議勿做為商業使用)
(Acrobat 3D 1.0 for Windows, Acrobat Standard 7.0, Acrobat Pro 8.0, Audition 3.0, GoLive CS2, Illustrator CS2, InCopy CS2, InDesign CS2, Photoshop CS2, Photoshop Elements 4.0/5.0 與 Adobe Premiere Pro 2.0)

[EXCEL] Excel 利用巨集取消保護工作表

適用Excel 2003、Excel2007檔案
新增一個巨集程式
貼上以下程式碼
Sub Remove_Sheet_Protect()

     Dim i As Integer, j As Integer, k As Integer
     Dim l As Integer, m As Integer, n As Integer
     Dim i1 As Integer, i2 As Integer, i3 As Integer
     Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next
     For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
       For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
        For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
         For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
         ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
        Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
        Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
        If ActiveSheet.ProtectContents = False Then
                MsgBox "One usable password is " & Chr(i) & Chr(j) & _
                Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
                Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                ActiveWorkbook.Sheets(1).Select
                Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
                Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
                Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                Exit Sub
        End If

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

再執行巨集就可以了。

參考來源:https://uknowit.uwgb.edu/page.php?id=28850

熱門文章