☰

Access で VBA 経由で Word 文書を開くと、マクロが無効になりますか?

tag-icon • tag-icon microsoft-word vba macros
Access で VBA 経由で Word 文書を開くと、マクロが無効になりますか?

Access の VBA を使用して作成する Word 文書用の特別なテンプレートを作成しましたが、問題はそのテンプレート内のマクロが無効になっていることです。

テンプレート ファイル自体をクリックして新しいドキュメントを作成すると、うまく動作します。

特別なテンプレートを Normal.dotm に置き換えて、再度 mt access アプリケーションで Word 文書を作成してみましたが、うまくいきました。

2 つのテンプレート (Normal.dotm と私の特別なテンプレート) は同じフォルダーに保存されており、実際には私の特別なテンプレートは Normal.dotm のコピーにすぎません。

「セキュリティ センター」で一度に 1 つのチェックマークの設定を変更してみましたが、まったく違いがありませんでした。

私は完全に更新された Windows 10 を実行しており、昨日 MSOffice 365 を再インストールして問題が解決するかどうかを確認しましたが、解決しませんでした。

何が悪いのか教えてください、気が狂いそうです...

環境変数「SlgtSysWordSkabelon」を変更することで、「Normal.dotm」と「MySpecial.dotm」の使用をすばやく切り替えることができます。これは実際には、右側のフォルダーに並べて配置された「Normal.dotm」のコピーにすぎません。

コードは次のとおりです:

            Set WRDobj = CreateObject("Word.Application")
'        WRDobj.Visible = False
        Set Doc = WRDobj.Documents.add(Environ("SlgtSysWordSkabelon"))
        Doc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "NotatID: " & Me.NotatID.Value & "-" & Me.Benævnelse.Value
        Doc.SaveAs Environ("SlægtHovedmappe") & "\" & "NOTAT_docs\" & Me.Sti_til_fil.Text, wdFormatDocumentDefault
        WRDobj.Quit
        Set Doc = Nothing
        Set WRDobj = Nothing

答え1

したがって、セキュリティ センター ([ファイル] > [オプション] > [セキュリティ センター] > [セキュリティ センターの設定] ...) で、通常はオプションを [警告を表示してすべてのマクロを無効にする] に設定する必要があります。マクロを含むドキュメントを開き、以前にマクロを承認していない場合は、黄色のバーが表示され、マクロを許可するかどうか (許可する) を尋ねられます。ただし、Word がこのドキュメントのマクロをブロックし続ける場合があります。その場合は、ドキュメントを閉じて右クリックし、プロパティを開きます。下部の [全般] タブに、「許可」のようなテキスト ボックスがあります。添付の​​画像にはドイツ語のテキストが含まれていますが、このチェックボックスを見つけるのに役立つはずです。チェックすると、マクロが機能するはずです。

ファイルプロパティダイアログウィンドウ

関連情報