VBAで「編集の制限」を制御する方法を教えてください

Question

現在Wordで定型文書を作成中です。

そこで、２つ質問があります。

１．VBAによってWordの「編集の制限」機能を制御する事はできますか？

２．上記要望は、「編集の制限」中に「置換」が出来ないことに由来します。

現在の構想では、Excelのように一時的にプロテクトを解除して、処理が終わったら再プロテクトする、

という発想でマクロを組もうと考えています。

これ以外に「編集の制限中でもテキストを変更できる方法」や

「編集の制限を使用せずにユーザの編集操作を回避する方法」

（完全なプロテクトでなくとも編集のハードルを上げる方法）

がありましたら御教示願います。

（起動時にフォームフィールドへフォーカスし、以後フォーカスを移していく様な仕様にするしかないのかな...）

現在の仕様は以下の通りです。

・本文（定型文）

・テキスト入力用のフォームフィールドが４つ

・PDF作成ボタン（これは動作します）

・置換ボタンA（マクロのみによる既定の置換）

・置換ボタンＢ（ダイアログを表示させてユーザに置換対象を指定させる）

（ダイアログで置換できたら編集の制限をする意味が無いというのは分かっています。）

◯ファイル設定：

・許可する編集の種類：フォームへの入力

・パスワード：必要なし（厳密な保護は要求されない、編集のハードルを上げられれば良い。）

・ファイル自体を「読み取り専用」に。

◯問題のあるコード：

Private Sub 置換A_Click()

With Selection.Find

.Text = "てきすと"

.Replacement.Text = "テキスト"

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Private Sub 置換B_Click()

With Dialogs(wdDialogEditReplace)

.Find = "てきすと"

.Show

End With

End Sub

◯コードのエラー：

実行時エラー4605

オブジェクトにより文書の保護されている箇所が参照されているためメソッドまたはプロパティが使用できません

以上になります。宜しくお願いします。

Answer 1

こんにちは。

> 現在の構想では、Excelのように一時的にプロテクトを解除して、処理が終わったら再プロテクトする、という発想でマクロを組もうと考えています。

文書を保護しておいて、DocumentオブジェクトのUnprotectメソッドで一時的に保護を解除、マクロで処理を行った後に再びDocumentオブジェクトのProtectメソッドで文書を保護すれば良いかと思います。

Option Explicit

Public Sub Sample()

  Const PW As String = "pass" '文書保護のパスワード

  With ActiveDocument

    .Unprotect Password:=PW '保護を一時的に解除

    '------------------------------------------

    '行いたい処理をここに記述

    '------------------------------------------

    On Error Resume Next

    With Application.Dialogs(wdDialogEditReplace)

      .Find = "てきすと"

      .Show

    End With

    On Error GoTo 0

    '------------------------------------------

    .Protect Type:=wdAllowOnlyFormFields, Password:=PW '再度保護

  End With

End Sub

Answer 2

ありがとうございます！

正にこれです。

Word VBAは手を付け始めたばかりで、しかも情報量が少ないので

Excelだとすぐ出来ることも出来ずにいました。やはり制御できたんですね。

本当に助かりました。

Answer 3

返信ありがとうございます。

＞当フォーラムにはVBA のカテゴリーがない

そうだったんですか！すみません気付きませんでした。

MSDNは心理的な敷居が高いですが、聞くしか無さそうですね。

フォーラムへのリンクも付けていただき、ありがとうございます。

Answer 4

junnny さん、こんにちは。

マイクロソフト コミュニティ への投稿ありがとうございます。

当フォーラムには VBA のカテゴリーがないため、情報が集まりにくい場合もあるようです。

そのような場合には、VBA について情報交換を行っている MSDN のフォーラムを利用するのがよいのかな、と思います。

・ MSDN の VBA フォーラム