Routine in basic per salvare con un command button

Question

In un documento word 365, sto cercando di attivare un command button che mi salvi lo stesso documento nella cartella di origine con il nome contenuto in un campo compilabile. Io inserisco questa routine:

Private Sub CommandButton1_Click()

Dim doc As Document

Dim field As Fields

Dim name As String

Set doc = ActiveDocument

Set field = doc..Fields(TextBox1)

name = field.Result.Text

doc.SaveAs2 name

End Sub

Mi da errore di compilazione -Impossibile trovare il metodo o il membro dei dati.

Dove sbaglio?

Answer 1

Ciao Luigi C,

Sono Sneha e sarei felice di aiutarti con la tua domanda. Ci scusiamo per l'inconveniente causato.

Prova questo codice e aggiorna se risolve il problema: -

Sub privato CommandButton1_Click() Dim doc come documento Campo Dim come campo Nome dim come stringa

Set doc = ActiveDocument Set field = doc. Fields("TextBox1"). Risultato name = campo. Testo doc. SaveAs2 FileName:=name Fine sub

Per ulteriori informazioni, fare riferimento a: - Utilizzare un pulsante di comando per avviare un'azione o una serie di azioni: - https://support.microsoft.com/office/use-a-command-button-to-start-an-action-or-a-series-of-actions-c7bf2827-2f3e-42b8-83d6-6c4f0de78990

Se hai altre domande o hai bisogno di assistenza con qualsiasi cosa, non esitare a farmelo sapere. Sarà mio piacere assistervi.

Migliori saluti Sneha

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 2

Ho provato , ho scritto questo:

Private Sub CommandButton1_Click()

Dim doc As Document 

Dim field As field 

Dim name As String 

Set doc = ActiveDocument 

Set field = doc.Fields("TextBox1").Result

name = field.Text.doc 

Name SaveAs2 

End Sub

ma di da questo errore

Per favore, me la puoi controllare e modiciare?

Grazie tante

Answer 3

Ciao Luigi C!

Sono Shakiru, un consulente indipendente e un utente come te, e sono felice di aiutarti oggi.

Si prega di provare questo: Sub privato CommandButton1_Click() Dim doc come documento Campo Dim come campo Nome dim come stringa Set doc = ActiveDocument

Set field = doc. Fields("TextBox1"). Risultato name = campo. Testo .doc. Nome SaveAs2 Fine sub

.

Migliori saluti Shakiru ·

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.