Enregistrez le document en tant que .docx sans le code VBA

j'ai créé le modèle avec du code VBa et userform... puis je l'ai enregistré comme dotm(macro-activer le modèle). Je veux ouvrir le templete utiliser l'interface pour effectuer les modifications dans le document et après que enregistrer de documente que docx, mais sans les références au modèle/code, parce que quand j'ai ouvert les docx et ouvrir visual basic je peux y trouver le code.

Quelqu'un peut m'aider ? je sais que c'est probablement une question stupide, mais j'ai du nouveau 😀 et je ne pouvais pas trouver une réponse à cela.

merci
c'est mon code à la sortie de l'interface

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

End Sub

OriginalL'auteur user1966363 | 2013-01-23

  1. 1
    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

    Edit:

    Le code VBA est stocké trop. Si vous voulez éviter cela, le mieux que vous pourriez faire est de déplacer votre texte dans un nouveau document et enregistrez ce document.

    Exemple Simple, basée sur le stockage d'un signet: 

    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
    Je ne sais pas si j'ai fait quelque chose de mal, mais ActiveDocument.Convertir donner une erreur et si je ne mets pas je ne peux pas où enregistrer le fichier :S toutes les suggestions
    Veuillez Vérifier la mise à jour.

    OriginalL'auteur Trace