2010/03/31

WORDで、表にフィールドを追加するマクロw

調べてみると案外情報が少なかったので c⌒っ*゚∀゚)φ メモメモ...

' 1つ目の表の1列目のセルにAutoNumフィールドを追加する(1行目は列名なのでパス)
  For i = 2 To ActiveDocument.Tables(1).Columns(1).Cells.Count
    ' i行1列目を現在の領域に設定する
    Set CurrentRange = ActiveDocument.Tables(1).Cell(Row:=i, Column:=1).Range
    
    ' セルに他のFieldがなければ、AutoNumフィールドを追加する
    ActiveDocument.Tables(1).Cell(Row:=i, Column:=1).Range.Select
    If 0 = Selection.Fields.Count Then
        ' セルの選択状態を解除する
        CurrentRange.End = CurrentRange.End - 1
        ' 目的のセルにAutoNumフィールドを追加する
        Set myField = ActiveDocument.Fields.Add(Range:=CurrentRange, Type:=wdFieldAutoNum)
    End If
  Next i

意外にひっかかったのが、「セルの選択状態を解除してないとフィールドが追加出来ない」
というWORDの仕様です(´・ω・`)ショボーン これで1~2時間つぶれた・・

2010/03/29

ちょwwwおまwwwwヒャダルコwww

こんばんわ、会社帰りに吹雪かれたT2ですw

もう3月も終わりだというのに、何で吹雪くんですかね!京都!ww

傘さして帰ってたんですが、マンションについて露を落とそうとしたら

『ドシャ!』 『バシャ!』

・・なんなんでしょうね、「少し放置して溶けかけたかき氷が地面に落ちた」ような
音がしましたよww

2010/03/26

Windowsデバッグの極意!

最近、業務でメモリリークやリソースリークなどを追いかける機会があって、
その手の記事を読んだりしてました。

でも思った以上に、こういった情報に関する有益な日本語ソースが少なく
苦戦気味だったとです(´・ω・`)

2010/03/16

NEO TAMAGOKAKE GOHAN

ちょっと前のGigazineの記事にあったやつなんですが、
面白そうなのでやってみますたwww

2010/03/13

引越しで思うこと

実は私、引越し苦手なんです・・・・

大学時代に何度か失敗してます。

そんな私ですが、今回の住替えではなんとか無事終えられますたwww
よく引越しをしている友人にオヌヌメの引越し屋さんを聞いたところ
『アート引越しセンター』を勧められたとですw

2010/03/06

ソロモンよ!私は帰って(ry

こんにちは、皆様。
ネット難民生活から開放されて2日目death☆