NULLフィールドをチェックし、{エラーを回避するには「」に値を設定する.ドキュメント変数が指定されていません.}

エラーの原因を取り除くことをお勧めします.多くの場合、追加するだけで簡単に実行できます

& ""

変数に割り当てられている値に.次に、値がnullの場合、変数には単一のスペースが含まれます.

ドキュメント内のdocvariableフィールドの場所によっては、値の前にスペースを追加する方が適切な場合があります.docvariableフィールドの結果にスペースが含まれることを許容できない場合は、コードで
は、値がnullかどうかを確認し、nullの場合は変数をスペースに設定するために、and if thenelseフィールドを使用する必要があります.

誰かが同様のジレンマを抱えている場合に備えて、この問題に自分の解決策を追加したかったのです.

null値を確認できなかった理由は、フォームが送信されて値がnullの場合、フォームが変数を省略しているためです.したがって、変数がnullであるかどうかのチェックは、存在しないため機能しません.

これを解決するために、すべてのドキュメント変数を一覧表示する配列を作成しました.たくさん(50以上)あるので、Wordテンプレートから変数を読み取って配列を作成するスクリプトを実行しました.

Sub ListVariables()
Dim oVar As Variable
Dim oDoc As Document
Dim sText As String
sText=""
For Each oVar In ActiveDocument.Variables
'この関数を使用して、ドキュメント内で見つけられない奇妙な変数を削除します
'If oVar.Name="varPhone" Then
'oVar.Delete
'サブを終了
'End If
sText=sText&oVar.Name&vbTab&oVar.Value&vbCr
Next oVar
If sText="" Then
sText="このドキュメントには変数がありません"
End If
If ActiveDocument.Variables.Count<= 20 Then
MsgBox sText
Else
oDoc=Documents.Add
を設定します oDoc.Rangeを使用
.ParagraphFormat.TabStops.Add _
位置:= CentimetersToPoints(7)、_
Alignment:= wdAlignTabLeft、_
リーダー:= wdTabLeaderDots
.Text=sText
End With
End If
End Sub

そのリストを使用して、ドキュメントに含める必要のある変数の配列を作成しました.このリストを使用して、フォームが更新している変数を比較し、変数が存在しない場合は、再度追加して「」に設定します.
".

バリアントとしてmyVariablesを暗くする
Dim varName As Variant
文字列としてダミーを暗くする
myVariables=Array( "varName1"、 "varName2"、 "varName3")
myVariablesの各varNameについて
'MsgBox varName
エラー時に次を再開
ダミー= ActiveDocument.Variables(varName)
If Err.Number<>0 Then
'それは存在しません
'MsgBox "Variable"&varName& "が存在しないため、追加して空白にリセットします."
ActiveDocument.Variables.Add Name:= varName、Value:= ""
終了する場合
次のvarName

質問と回答を投稿してくれたコミュニティに感謝します.