Obtenir la valeur de la zone de texte dans Word à l'aide de macro VBA, mais dans le modèle Word

Contexte: je veux un texte saisi à partir d'une zone de texte pour le nom de fichier par défaut dans la boîte de dialogue enregistrer sous.

J'ai mis en application les script VBA dans mon document Word 2010 modèle .dotm

Sub FileSaveAs()

'for testing
Dim fileName As String
fileName = Me.tb_myTextBox.Value & "_MyFileNameToSave"
MsgBox fileName

'use specific file name in save dialog
With Dialogs(wdDialogFileSaveAs)
  .Name = fileName
  .Show
 End With

End Sub

Il fonctionne très bien, quand je le lance. J'ai sauvé le .dotm, fermé et rouvert, à partir de l'Explorateur Windows (ce qui signifie que "l'utilisateur final").
MAIS dans ce cas, signifie après avoir ouvert le document du modèle en tant que "utilisateur final" (afin que je puisse enregistrer un nouveau doc et de ne pas remplacer le modèle), le contenu et la valeur de la TextBox est vide, même si j'ai saisi quelque chose en elle.

Alors, comment puis-je lire les données de la zone de texte dans le document "mode" d'un modèle?

Où est la zone de texte?
Vous devez éditer votre question à partager vos mesures exactes, je ne comprends pas ce qui ne fonctionne pas pour vous. Aussi, votre code est incomplet et n'importe qui qui offre de l'aide sera nécessaire de remplir les blancs, ce qui pourrait conduire à la confusion.
Ok, nouvel essai d'explication... il y a deux cas: - (1) la modification du modèle, si vous l'enregistrez, il est de nouveau .dotm. Dans ce cas, tout fonctionne très bien avec le script. - (2) ouvrez le modèle en tant que "utilisateur final" (et non pas en tant que modèle-auteur). Si l'utilisateur clique sur le bouton Enregistrer, le document est enregistré en tant que .doc et pas .dotm. Dans ce cas, le script ne fonctionne PAS! btw: si le code est incomplet?? confus
La zone de texte est seulement situé sur la page (au niveau de la racine). Le script VBA est enregistré dans "Ce document intitulé" code source (et pas dans un module).
Avez-vous résoudre ce problème? Si non, je peux vous orienter dans la bonne direction...

InformationsquelleAutor Chris | 2012-07-06

0

comment puis-je lire les données de la zone de texte dans le document "mode" d'un modèle?

Pas sûr de ce que tu veux dire. Cela fonctionne pour moi:

créer un formulaire:
```
Private Sub btn_OK_Click()
    Dim fileName As String
    fileName = tb_myTextBox.Value & "_MyFileNameToSave"
    With Dialogs(wdDialogFileSaveAs)
      .name = fileName
      .Show
     End With
End Sub
```
créer un sous pour appeler cette forme:
```
 Sub FileSaveAs()
    UserForm1.Show
End Sub
```
Tout ceci est enregistré dans un modèle /.dotm.

Maintenant, créez un document hors du modèle (double-cliquez sur le modèle pour le document de lancement hors de celui-ci). Alt + F8 et exécuter la macro à partir du modèle (vous pouvez avoir à sélectionner le modèle dans les "Macros en" déroulant). Résultat: mon formulaire est en place, j'ai entrez un nom pour le document, appuyez sur ok, et le Mot dialogue Enregistrer sous s'affiche avec le nom que j'ai donné à ce document.
- Merci pour la réponse! Problème, c'est que je n'ai pas supplémentaire bouton Enregistrer. Le "FileSaveAs () sous-fonction est (automatiquement), et une fois que l'utilisateur clique sur Enregistrer(Sous) bouton menu/entrée.
- Donc FileSaveAs n'est pas de l'interception de l'utilisateur de faire un Fichier | Enregistrer sous? Je ne comprends pas le problème, donc j'ai besoin de o de le recréer.
- Non, mon Sub est appelée lorsque l'utilisateur clique sur Fichier | Enregistrer (sous). Donc, l'appel de la fonction fonctionne très bien! Mais le Champ est situé dans le document et non pas pour l'utilisation d'un formulaire utilisateur. Aussi jeter un oeil à mon commentaire dans la question. C'est très étrange, pourquoi tous les travaux dans le cas 1, mais pas dans le cas 2. :-/
InformationsquelleAutor JohnZaj

Sans doute, l'OP a l'intention était quelque chose le long des lignes de:

Sub FileSaveAs()
Dim StrNm As String
With ActiveDocument
  StrNm = Split(.Shapes(1).TextFrame.TextRange.Text, vbCr)(0) & "_MyFileNameToSave"
  'use specific file name in save dialog
  With Dialogs(wdDialogFileSaveAs)
    .Name = StrNm
    .Show
  End With
End With
End Sub

où .Les formes(1) identifie le particulier zone de texte de la Forme de l'objet.

InformationsquelleAutor macropod

Vous devez vous connecter pour publier un commentaire.