5

VBAコードとユーザーフォームでテンプレートを作成しました。.dotm (マクロ有効テンプレート) として保存しました。

テンプレートを開き、インターフェイスを使用してドキュメントを変更し、その後、テンプレート/コードへの参照なしでドキュメントを .docx として保存します。docx を開いて Visual Basic エディターを開くと、コードが表示されます。

これは、インターフェースを終了するための私のコードです

Private Sub Sair_Click()
ActiveDocument.Bookmarks("NomeProj").Range.text = Nomeproj.Value
ActiveDocument.TablesOfContents(1).Update
Application.Quit

End Sub
4

2 に答える 2

2 
ActiveDocument.SaveAs FileName:="Test.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="",
AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False

 ActiveDocument.Convert 'Required if not Word 2007 format

編集：

VBA コードも保存されます。これを防ぎたい場合は、テキストを新しいドキュメントに移動して、このドキュメントを保存することをお勧めします。
ブックマークの保存に基づく簡単な例: 

Option Explicit

Sub Save_Doc_NoMacros()

Dim ThisDoc         As Word.Document
Dim oDoc            As Word.Document


Set ThisDoc = ActiveDocument

ThisDoc.Bookmarks("Bookmark1").Select
Selection.Copy
Set oDoc = Documents.Add
Selection.Paste

oDoc.SaveAs FileName:="U:/Text.docx", FileFormat:=wdFormatDocument
oDoc.Close

End Sub
于 2013-01-23T11:51:33.673 に答える