Free 且可設定PDF 文件到期日的PDF保全軟體

找到好東西，紀錄一下....

目前Office 2010/2013 可以將文件於另存新檔時，轉存成PDF格式。方便好用，但缺點是缺少一般安全性的功能。 

一般Free 免費的PDF製作軟體，如: doPDF, PDF Creator 等，是透過安裝成虛擬印表機的方式，於文件列印時，透過虛擬印表機列印製作成PDF，能做到一般的禁止列印、禁止擷取或開啟需密碼等，但不能做到設定文件過期的功能。

今天找到一套 Free 的，可以設定 "文件期限"(Document Expired Time )的PDF 保全軟體(PDF Security OwnerGuard )。

以下是12.7.8 個人版的畫面，

1. 建立新計畫：
    第一步：點選 "Create New Project" 建立計畫名稱

  第二步：設定時間限制 (Time Limitation ) 的到期日。

2. 開始加密PDF: 點選主頁面的 【Protect Your File】
    第一步：挑選檔案:  

    第二步：挑選專案(Project):  

     第三步：設定開啟密碼

    第四步：挑選浮水印的檔案: 只有第一頁會被當成浮水印..  ，否則就用預設，無浮水印(No Watermark)

    第五步：設定匯出目錄:   並點選【Protect Security Files】來進行轉出。

這樣就完成了~

遇到MS Office 2010 無法安裝問題

今天遇到『Microsoft Office 2010 不支援從 Microsoft Office 2010 的Prerelease版本升級。您必須先解除安裝任何Microsoft Office 2010 產品及相關技術的Prerelease版本。』的問題

新增/移除程式內已無Office 相關的Program. 就是無法裝，使用 Windows Installer CleanUp 也沒找到。
最後，看到這篇，最後刪 register 才解決。 http://support.microsoft.com/KB/928218
注意 在下列登錄機碼中，星號字元 (*) 代表子機碼名稱中一或多個字元。

Office 2010 無法安裝 - 防寫保護影響

記錄一下..以免忘記..

問題：
安裝Office 2010時，出現[Windows Installer 服務無法更新某些被防寫保護的 Windows 檔案]的錯誤訊息，查[事件檢視器]的[應用程式]，有下列錯誤訊息：

===
錯誤訊息：
產品: Microsoft Software Update for Web Folders  (Chinese (Traditional)) 14 -- 錯誤 1933. Windows Installer 服務無法更新某些被防寫保護的 Windows 檔案。 SFP 錯誤: 3。防寫檔案清單:\r\nc:\program files\common files\microsoft shared\web server extensions\40\bin\fp4autl.dll

===

參考這篇：[Fix Error 1933 Easily!] 

===

解法：

1. 於 Office 2010 安裝光碟中，搜尋 fp4ault.dll 檔案。

2. 複製到 c:\program files\common files\microsoft shared\web server extensions\40\bin\ 下

3. 再次安裝，就正常了.. 

4. 如果不正常，可能 fpencode.dll 也需複製，視事件檢視器的Error 訊息而定。

Excel 表格中取出長路徑字串中的檔名

我有一個Excel 的Cell，是一長串的檔名路徑，我只要取最後的檔名，這困擾著我..
[
\Device\HarddiskVolume4\partir\Lotus\Notes\framework\shared\eclipse\features\com.ibm.collaboration.realtime.telephony.prod.feature_8.0.2.20100802-0849\feature_hu.properties
]
有一些formula 如 Left(B) / Right(B) / Find / SEARCH ，感覺沒一個可用的，算了..
自己建一個 Formula 來處理吧!

作法:

1. 開啟 Excel 2010 及文件
2. 移至[檢視]
3. 點選[巨集]
4. 填入巨集名稱: [RightOfBackSlash] -> 建立
5. 自動開出一個模組(Module1)於VBAProject 中，將下方程式貼上

Function RightOfBackSlash(strTmp As String)
    While InStr(strTmp, "\") > 0
        strTmp = Right(strTmp, Len(strTmp) - InStr(strTmp, "\"))
    Wend
     RightOfBackSlash = strTmp
End Function
6. Formula 建立完成
7. 於Excel 的New Cell中 ，填上 =RightOfBaclSlash( "OldCell")
8. 完成, 自動取出最後一個檔名

Sharepoint 2010 啟用 Office Web Apps

最近研究Sharepoint 的共同編輯(Co-author)，發現Word / PowerPoint 都可以共同編輯，唯讀 Excel 不行，是沒裝好嗎?

發現不是，目前Excel 2010 並不支援共同編輯，必需採用Browser的方式才能共同編輯。
MS的說明如下：
http://technet.microsoft.com/en-us/library/ff718249.aspx
The Excel 2010 client application does not support co-authoring workbooks in SharePoint Server 2010. However, the Excel client application does support non-real-time co-authoring workbooks stored locally or on network (UNC) paths by using the Shared Workbook feature. Co-authoring workbooks in SharePoint is supported by using the Microsoft Excel Web App, included with Office Web Apps. Office Web Apps is available to users through Windows Live and to business customers with Microsoft Office 2010 volume licensing and document management solutions based on Microsoft SharePoint 2010 Products. 

安裝Office Web Apps 除了裝好後，還需By Site 啟動Feature，步驟如下：
http://technet.microsoft.com/en-us/library/ff431687.aspx

測試結果還真的滿陽春的。
第一個標簽頁：File，內含(Open in Excel / Where's the Save Button/ Save As / Download s shapshot/ Download a copy)
第二個標簽頁：Home，含有基本的Cut / Copy/ Paste / 字型/大小/斜體/ Table 的 Insert / delete 等..
第三個標簽頁：Insert，只有 Table / Hyperlink
沒了!

相對於MS Excel Web App SkyDrive 的功能上，至少SkyDrive 的Insert 標簽頁上，尚有函數及各式圖表可用(直條圖/折線圖/圓形圖/橫條圖/區域圖/散佈圖等)

IRM Client 無法正常開啟文件

如果電腦裝過一些未經合法或驗證的軟體，可能造成IRM Client無法正常開啟受保護文件。

訊息如下："Microsoft Office 偵測到您的「資訊版權管理」設定發生問題。請連絡您的管理員以取得其他資訊"或"你沒有權限開啟此文件"

下面整理Windows XP 無法連上IRM (AD RMS)Server 的處理方法：

1. 確認RMS Client已正常安裝(RMS SP2-KB917275-Client)

2. 已安裝RMS Client, 如為Office 2003 ，需上Hotfix Office2003-KB978551 

3. 刪除%username%AppData/Local/Microsoft/DRM 目錄

如仍無法使用.

4. 先用IRMCheck Tools檢查

5. 如果IRMCheck 後顯示Operating system 項目的 ntdll.dll not found. ，則需

5-1 Windows 重新安裝XP-SP3
5-2 使用 SFC /scannow 重新確認遺失連結(需XP-SP3 Source CD)

6. 如果 Certificates 未出現 GIC/CLC的憑證資訊：

  6-1確認 %username%AppData/Local/Microsoft/DRM/ 是否產生 Cert-Machine.Drm 

    6-2如已產生Cert-Machine.Drm 但仍無法連上IRM Server，此時User Certificate無法下載=> 確認使用AD 及IRM Server work well.

  6-3清除cookie/temp files

7. 可多利用IRMCheck Tools確認系統狀態，再拿 Error 項目上網搜尋

8. 如果還不行，可用DebugView收集Error Log.

http://technet.microsoft.com/en-us/sysinternals/bb896647.aspx

9. 如果是特定軟體影響，大部分都可用IRMCheck Tools發現：

http://support.microsoft.com/kb/827737/zh-tw

Office 開啟速度很慢..

今天使用者反應Office 2003 的Excel / Word 等的反應速度很慢，查了幾篇文章，提到一個可行的方法：於"檔案類型"之副檔名的"開啟舊檔"屬性下，取消DDE及加上"%1" 的做法。
參考文件如下：
http://blog.xuite.net/andrew2/mrw/27329565
http://forums.techarena.in/ms-office-support/889081.htm


9/20 修正:
關於取消DDM的作法，爬了一下文，部分人士主張不應如此，提到是Office Add-On的元件拖慢開啟的速度。試了一下確認可行，關閉步驟如 下：
Office 2010下於檔案=>選項=>增益集=>管理：點選[COM增益集]=>執行=>新視窗中，取消非Windows 的增益集功能。
之後測試開啟文件速度

如何用Logon Script 來更正Office 的 使用者 user name

用Ghost 出來的OS，其Office 使用者為預設值，如果多人開啟同一份File Server的文件時，最常預到的是出現"唯讀"現象，想要要求使用者關閉，確不知是何人最先開啟。

解決辦法是：要求Office使用者設定"使用者"資訊。
Office 2003 : 工具 => 選項 => 一般 => 使用者名稱
Office 2010 : 檔案 => 選項 => 一般 => 使用者名稱

如果有人不合作，不變更設定，豈不是就沒輒了 ??

還是可以用Logon Script 強制更正：


前略
.........

' for Office : start
hDefKey = &H80000001  '
' Connect to registry provider on target machine with current user'
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
' 將User Name 轉換為 16 進制編碼
iValues = AsciiToHex(objUser.cn)
BinaryValueName = "UserName"
arrHexValues = Split(iValues, ",") ' 分離字串為陣列
aOfficeVersions = Array("14.0","12.0","11.0")  ' 設定更新的Office 版本
' find the Office version(s) installed
For Each sOfficeVersion In aOfficeVersions
  sRegKeyPath = "Software\Microsoft\Office\" & sOfficeVersion & "\Common\UserInfo"  ' Register key path
    If oReg.EnumKey(hDefKey, sRegKeyPath , arrSubKeys) = 0 Then ' 判斷是否有子鍵值
        oReg.SetBinaryValue hDefKey,sRegKeyPath ,BinaryValueName,arrHexValues  ' 更新
    End If
Next 
sRegKeyPath = "Software\Microsoft\Office\Common\UserInfo"    ' Office 2010 有 default User name 位置
If oReg.EnumKey(hDefKey, sRegKeyPath , arrSubKeys) = 0 Then
    oReg.SetBinaryValue hDefKey,sRegKeyPath ,BinaryValueName,arrHexValues
End If
'
Function AsciiToHex(sData)
  ' Turns ASCII string sData into array of hex numerics
  Dim i, aTmp
  For i = 1 To Len(sData)
    If i = 1 Then
      aTmp = "&H" & Hex(Asc(Mid(sData, i))) & ",&H00"
    Else
      aTmp = aTmp & ",&H" & Hex(Asc(Mid(sData, i))) & ",&H00"
    End If
  Next
  ASCIItoHex = aTmp & ",&H00,&H00"
End Function
' --- for office end


更強的寫法，四行搞定：
Set objWord = CreateObject("Word.Application")
objWord.UserName = objUser.cn
objWord.UserInitials = Left(objUser.cn, 1) & Left(objUser.SN, 1)
objWord.Quit