Option Explicit
On Error Resume Next

'変数宣言
Dim oFS, oSh
Dim sRecentPath, sRecentFilePath

'オブジェクト作成
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oSh = CreateObject("WScript.Shell")

'Recentフォルダパス指定
sRecentPath = oFS.BuildPath(_
 oSh.ExpandEnvironmentStrings("%AppData%"),_
 "Microsoft\Office\Recent")

If oFS.FolderExists(sRecentPath) Then
	'Recentファイルパス指定
	sRecentFilePath = oFS.BuildPath(sRecentPath, "*.lnk")

	'ファイル削除
	oFS.DeleteFile sRecentFilePath
Else
	Set oFS = Nothing
	Set oSh = Nothing
	WScript.Quit
End If

Set oFS = Nothing
Set oSh = Nothing

OfficeXP以降かつ、ポリシーで「最近使ったファイルを消去する」とかなんとかいうポリシーを有効にしていればこんなのいらないけど、Office2000 や Office97 を面倒見ないといけないこともあってガッと作った。後悔はしていない。

関連記事:

(( 関連記事は特にありません ))

「挿入」リボンに、「スクリーンショット」とあります。

押してみると、現在デスクトップにあるウィンドウの一覧が出てきます。

ちなみに隙間が空いてますが、このSSをとる前は各種コントロール（タスクバーとか）が表示されてました。なぜ消えたのかはよくわかりません。試しにクリックしたら Word 落ちましたｗｗ

まぁまだベータだしね。

で、ウィンドウをクリックすると貼り付けられます。MSE (Microsoft Security Essentials) のウィンドウをキャプチャしてみました。

素晴らしい。超簡単。

正直 Word って使いづらくて嫌いなんだけど、この機能は魅力的だなぁ。仕事などでいろんなドキュメントを書いている人にとってはヨダレものじゃないでしょうか。

追記 ： 2009/11/20 2:12

今気づいたけど、撮ったスクショは Aero Glass 切られてますね。まあいいけど。

関連記事:

• Office 2010 Bata 公開

MSDN と TechNet に Office 2010 と各種 Office 製品群のベータ版が追加されたので、早速ダウンロード～インスコしてみた。とりあえず Excel、Word、パワポ、OneNote の４つと、MS-IME 2010 をはじめとしたOfficeツールを一通り。

Windows 7 にしてから Office (2007) を入れていなかったので気のせいかもしれないけど、なんか起動がやたら速い。スプラッシュウィンドウがほとんど見えないくらいで立ち上がった。

で、とりあえずみんな気になる Excel を立ち上げてみた。

お約束のリボンインターフェイスで、パッと見 2007 とほとんど変わりませんね。

ただ、「ファイル」なんてリボンがあることに気付く。2007 の時は Office マークでメニューが開いていたと思いますが、それすらもリボンになったということでしょう。

こんな感じ。

ちなみに 2007 のメニューは↓な感じでした。

とりあえず今日のところはインスコしただけなので、細かい機能追加や改善などまでは試せていませんが、2007 でリボンに慣れた人にとっては違和感なく使えるのではないですかねー。

あ、そういえば、先日新宿の Microsoft で某セミナーを受けてきたんですが、プレゼン用のパワポが 2010 で作られていました。なんかスライドショーの画面遷移アニメーションとかごっそり増えてるよーとか言ってましたよ。

職場ではまだ 2003 だし（だって OS が Win2000 なんだもの…orz）家では正直あんまり仕事したくないんで、どこまで深く使いこめるかわかりませんが、何か面白い発見でもあればまた書きます。

関連記事:

• Office 2010 ： Word スクリーンショット機能
• ウイルスソフト
• Windows7 Beta1 がもうすぐ公開！？