趣味プログラミングblog

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

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

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

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

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

以下、ソース

父親のスマホ代を０円にすべく、楽天モバイルにする作戦を始動。

スマホは富士通製のF01-L。
楽天モバイルでnanoSimを注文し、数日で父親宅に到着。

勢いで始めちゃったけど、今のスマホはdocomoだから
楽天モバイルの圏外じゃAU電波受けれないから使えないじゃん！


とりあえずSIMカードの差し替えはやってみたけど、
SIMロック解除されててパスワードがわからん。

APN設定は変更画面にたどり着いたけど、
現状の設定消えたら戻せる自信ないから中止。


次回は、使ってないIIJのSIMで動くか試してみる。


ドコモ版iPhoneのSIMロック解除方法 全手順 - TeachMe iPhone (teach-me.biz)

easy_phone_me_f_01l_810.pdf (uqwimax.jp)

【のりかえガイド】初期設定（APN設定） | IIJmio

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

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

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

今回はその第一弾です。


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

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

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

---

仕様

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

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


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

---

以下、ソース

前回、ｚｉｐ化するＶＢＡを作ろうとして、
PowerShellを使ってｚｉｐ化できることを知った。
指定したファイルやフォルダをｚｉｐ化するマクロを作るのをやめた 趣味プログラミングblog (p-kin.net)

今回は、利用シーンの多いフォルダ内の特定ファイルを
ｚｉｐ化する方法について紹介。

前回作成したリンク先を修正するマクロをベースにして、
指定したファイルやフォルダをｚｉｐ化するマクロを作りたい！！

画面レイアウトは、前回のまんまで、リンク先を置換するところを
ｚｉｐファイルに圧縮するモジュールに変えればいいじゃん。

調べると、ｚｉｐ化は①PowerShellを使うか②外部ライブラリを使うからしい。
VBAでZIP圧縮と解凍を行う ｜ Excel作業をVBAで効率化 (vbabeginner.net)

パスワードが使えないのと２Gまでと制約があるけど、
VBAと親和性の高いPowerShellを使うことに。