急いでいます！

Wordで、複数のチェックボックスに一括でチェックを入れたい。

締切済

質問者：いもっこ
質問日時：2024/04/25 16:26
回答数：6件

毎月の定型業務の手順書を画像のようにwordで作っています。
各項目が終わったら一つずつクリックしてチェック(黒で塗りつぶされる)しているのですが、
全て完了したあと、次の月もこの手順書を再利用するのでチェックで塗りつぶしたところを一括で
クリアしたいです。どうやったらできますでしょうか・・。
(今はCtrl＋Shiftキーを押しながらチェックボックスを一つ一つクリックして白に戻しているのですが、チェックボックスが50個くらいあるので途方に暮れています)

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (6件)

最新から表示
回答順に表示

つらい・・・

No.6

回答者： enunokokoro
回答日時：2024/04/26 07:47

No.4の回答者です。

No.4の回答にある「マクロ有効文書」拡張子が間違っていました。
正しくはファイル名.docm でした。

- 0
- 件

通報する

No.5

回答者： BluePhantom
回答日時：2024/04/25 21:30

チェックを外した状態の手順書ファイルを"原書フォルダ"に入れてそこを書き換え不可にする。

"作業用フォルダ"を作り、copyコマンドをbatで実行させて、"原書フォルダ"の手順書ファイルを"作業用フォルダ"へcopyする。
"作業用フォルダ"内のコピーした手順書ファイルを使ってチェックする。
手順書ファイルがチェックするだけのものなら、そのままファイルを削除すれば良いし、保存しておく必要があるのなら、保存用フォルダを使って保存しておく。
batファイルでコピーする際に、ファイル名に自動で日付を入れるようにしておけば保存用フォルダにそのまま放り込んでおけるので楽です。

- 0
- 件

通報する

参考程度に

No.4

回答者： enunokokoro
回答日時：2024/04/25 21:28

一括クリアだとマクロを使うしか方法はありません。

他の回答者のアドバイスにあるように、テンプレートとして用意し、
新規作成でチャックを入れるほうが楽だと思います。
ファイル名.docxをファイル名.dotxにするだけ。
ファイル名.dotxならば、常に新規作成で開くのでチェックなしにて
作業を開始できます。

ちなみに、マクロだと以下のようになります。

Sub チェッククリア()
Dim objCC As ContentControl
　For Each objCC In ActiveDocument.ContentControls
　　If objCC.Type = wdContentControlCheckBox _
　　Then objCC.Checked = False
　Next
End Sub

このマクロにショートカットキーを設定するなり、ボタンを押す
設定をするなりして対応します。
https://hamachan.info/win10-and-office2016/ki/
マクロ有効文書なので、ファイル名.doxmで保存します。