趣味プログラミングblog

打合せで議論が紛糾すると、話題が点々として同じことを繰り返したりということがある。

そんな打合せの議事録を書くのに録音から文字を起こしたりすると、
話題が点々としていて、行をコピペの応酬になる。

そして何度もコピペをしてるうちにめんどくなってきた。


使っているテキストエディタでは行コピーも行切り取りもできるのに、
なんでWordではその機能がないの？

てなわけで作ることにした。
がんばって複数段落選択にも対応！

Wordで作った表をエクセルに貼り付けようとすると、崩れる。。。

１セルに２行書かれていると、ほかの列がグループ化されるので、
Word VBAを使ってエクセルに貼り付けるマクロを作成。

前回に引き続き、ワードマクロ消えちゃった企画第三弾。

今回は、ワードのコメントを新しいドキュメントに転記するマクロ。

関係者とコメントの追記合戦をしていると、
返信の返信の返信とかで、ぐちゃぐちゃになってくる。

で、各コメントの対応が完了したかチェックリストを作ることになるので
それを自動的につくるためのマクロ。

他にもコメントプロパティで記入者とか取得できるけど、
出力がごちゃごちゃすると使いづらいのでこの内容だけ共有した。



以下、ソース

ワードマクロ消えちゃったよ企画の第二弾。

Wordの表はExcelと違って一気に番号を入れるのがやりづらい。
リストスタイルで番号を付けることもできるけど、
連番の列って幅が狭いので、表が崩れたり、通番が狂ったりするのが怖いので
自動的に通番をふるマクロを作った。

イメージこんな感じ。
苦労の末、セルの結合してても動く仕様に。

Excelでは、結合されたセルへのアクセスは問題なかったけど、
wordの場合は左上以外のセルは存在しないことになっているようで
アクセスするだけでエラーを吐く。
なので、UI操作をベースにwordの空気を読む力を最大限に利用して作った。

1. 表の外側なら中止
2. 表の内側なら左上のセルを選択
3. Tabボタンで遷移をしながら１列目にきたらカウンタを入力してインクリ
4. 表の外に出たら終了

以下、ソース

会社PCの調子が悪く、win10アップデートをクリーンインストールしたら復活。

エクセルマクロはパーソナルファイルを退避していたけど、
ワードは頭になくて全部飛んでしまった。。。

情報共有としてメールしていた４件は復旧できたのでご紹介。

今回はその第一弾です。


試行錯誤しながら文書作成やプログラミングをやっているとき、
バージョンを管理しながら進めるのが一般的だけど、
名前を付けて保存するのがめんどくさい！

フォルダの中がどんどんふえていくから、ファイル整理もしなきゃいけない。

てな悩みを解決するために作ったマクロです。

---

仕様

1. INPUTBOXを表示して、更新内容を入力
2. バックアップフォルダがなければ作る
3. 現在のファイルの保存前の状態をバックアップフォルダに保存
4. 上書き保存
5. 上書き後の状態をバックアップフォルダに更新内容を追記して保存

バックデータは前回保存日時、アップデートデータは現在日時をファイル名に使用する。


ワード版とエクセル版があり、それぞれCtrl+Shift+Sで発動するように設定。

---

以下、ソース