{"id":12256,"date":"2019-10-17T12:00:05","date_gmt":"2019-10-17T03:00:05","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=12256"},"modified":"2019-10-17T14:00:49","modified_gmt":"2019-10-17T05:00:49","slug":"office%e3%82%a2%e3%83%97%e3%83%aa%e3%82%b1%e3%83%bc%e3%82%b7%e3%83%a7%e3%83%b3%e3%81%ae%e3%80%8c%e6%9c%80%e8%bf%91%e4%bd%bf%e7%94%a8%e3%81%97%e3%81%9f%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%80%8d","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=12256","title":{"rendered":"Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u300c\u6700\u8fd1\u4f7f\u7528\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u300d\u3092\u524a\u9664\u3059\u308bVBScript"},"content":{"rendered":"

Word\u3084Excel\u7b49\u306eOffice\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3067\u306f\u3001\u4e0b\u8a18\u30b5\u30a4\u30c8\u306b\u3042\u308b\u901a\u308a\u3001\u30d5\u30a1\u30a4\u30eb\u3084\u30d5\u30a9\u30eb\u30c0\u306e\u5c65\u6b74\u304c\u30ec\u30b8\u30b9\u30c8\u30ea\u306b\u8a18\u9332\u3055\u308c\u307e\u3059\u3002<\/p>\n

\"\"<\/div>
office-qa.com<\/div><\/div>
\"\"<\/figure>
Word2016\uff1a\u6700\u8fd1\u4f7f\u7528\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u524a\u9664\u3059\u308b\u65b9\u6cd5 \u2212\u6559\u3048\u3066\uff01HELPDESK<\/div>
http:\/\/office-qa.com\/Word\/wd421.htm<\/div>
\u30d5\u30a1\u30a4\u30eb\u30bf\u30d6\u3084\u300c\u958b\u304f\u300d\u30a6\u30a3\u30f3\u30c9\u30a6\u306b\u6700\u8fd1\u4f7f\u7528\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3084\u30d5\u30a9\u30eb\u30c0\u306e\u5c65\u6b74\u304c\u8868\u793a\u3055\u308c\u307e\u3059\u3002\u524a\u9664\u3059\u308b\u65b9\u6cd5\u3092\u3054\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n

Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u4f7f\u3063\u3066\u4eba\u524d\u3067\u30d7\u30ec\u30bc\u30f3\u3092\u3059\u308b\u3068\u304d\u7b49\u3001\u5c65\u6b74\u3092\u8868\u793a\u3057\u305f\u304f\u306a\u3044\u6642\u306b\u3001\u3044\u3061\u3044\u3061\u624b\u4f5c\u696d\u3067\u30ec\u30b8\u30b9\u30c8\u30ea\u3092\u7de8\u96c6\u3059\u308b\u306e\u306f\u9762\u5012\u306a\u306e\u3067\u3001\u6240\u8b02\u201c\u6700\u8fd1\u4f7f\u7528\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u201d<\/span>\u3092\u4e00\u62ec\u3067\u524a\u9664\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

Option Explicit\r\n\r\nDim app, v\r\n\r\n'Office\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u53d6\u5f97\r\nOn Error Resume Next\r\nSet app = CreateObject("Excel.Application")\r\nOn Error GoTo 0\r\nIf IsEmpty(app) Then\r\n  WScript.Echo "Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3092\u53d6\u5f97\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002"\r\n  Wscript.Quit\r\nEnd If\r\nv = app.Version\r\napp.Quit\r\nSet app = Nothing\r\n\r\nClearOfficeMRU "Software\\Microsoft\\Office\\" & v & "\\"\r\nWScript.Echo "\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002"\r\n\r\nPrivate Sub ClearOfficeMRU(ByVal SubKeyName)\r\n'\u5168Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u300c\u6700\u8fd1\u4f7f\u7528\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u300d\u3092\u524a\u9664\u3059\u308b\r\n  Dim shell, reg\r\n  Dim keys, key\r\n  Dim subkeys, subkey\r\n  Dim names, types\r\n  Dim i\r\n  Const HKEY_CURRENT_USER = &H80000001\r\n  \r\n  Set shell = CreateObject("WScript.Shell")\r\n  Set reg = CreateObject("WbemScripting.SWbemLocator") _\r\n            .ConnectServer(, "root\\default").Get("StdRegProv")\r\n  reg.EnumKey HKEY_CURRENT_USER, SubKeyName, keys\r\n  If Not IsNull(keys) Then\r\n    For Each key In keys\r\n      Select Case LCase(key)\r\n        Case "file mru", "place mru", "user mru"\r\n          reg.EnumValues HKEY_CURRENT_USER, SubKeyName & key, names, types\r\n          If Not IsNull(names) Then\r\n            If UBound(names) > 1 Then\r\n              For i = LBound(names) To UBound(names)\r\n                If InStr(LCase(names(i)), "metadata") < 1 Then\r\n                  If InStr(LCase(names(i)), "item") > 0 Then\r\n                    'WScript.Echo shell.RegRead("HKEY_CURRENT_USER\\" & SubKeyName & key & "\\" & names(i)) '\u78ba\u8a8d\u7528\r\n                    shell.RegDelete "HKEY_CURRENT_USER\\" & SubKeyName & key & "\\" & names(i)\r\n                  End If\r\n                End If\r\n              Next\r\n            Else\r\n              reg.EnumKey HKEY_CURRENT_USER, SubKeyName & key, subkeys\r\n              If Not IsNull(subkeys) Then\r\n                For Each subkey In subkeys\r\n                  ClearOfficeMRU SubKeyName & key & "\\" & subkey & "\\"\r\n                Next\r\n              End If\r\n            End If\r\n          End If\r\n        Case Else\r\n          ClearOfficeMRU SubKeyName & key & "\\"\r\n      End Select\r\n    Next\r\n  End If\r\nEnd Sub<\/pre>\n
\n
\n