Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro word nome cartella in documento

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro word nome cartella in documento

Postdi fleetingcloud » 27/04/16 11:59

Buon giorno a tutti , ho una macro che preleva il testo scritto nella prima cella di un documendo exel e lo inserisce a fine documento in un file word . Esiste un modo per far si che il testo da inserire nel documento word non sia scritto in una cella wxel ma sia il nome della cartella che contiene il documento word?
la mia macro è questa :

Sub Importa()

'Dichiaro le variabili locali
Dim ValoreCella As String
Dim i As Integer

Selection.EndKey Unit:=wdStory
Selection.TypeBackspace
Selection.TypeText Text:="Cosi' deciso in Roma, il "
Selection.TypeParagraph
Selection.TypeText Text:="Depositato in Cancelleria il "
'Creo la nuova applicazione
Set xlApp = New Excel.Application

'Attraverso la nuova applicazione apro il Workbook
'assegnandolo alla variabile oggetto xlBook
Set xlBook = xlApp.Workbooks.Open("C:\macro\a.xls")

'Decido quale foglio utilizzare
Set xlSheet = xlBook.Worksheets("Foglio1")

'Instauro un ciclo per prendere, una alla volta, il
'valore dalle prime 100 celle della prima colonna,
'passandole sul documento Word
For i = 1 To 1
ValoreCella = xlSheet.Cells(i, 1).Value
Application.Selection.TypeText ValoreCella & vbCrLf
Next i

'Chiudo il Workbook e l'Applicazione
xlBook.Close
xlApp.Quit

'Annullo le variabili per liberare le risorse
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

End Sub

Grazie in anticipo
fleetingcloud
Newbie
 
Post: 7
Iscritto il: 15/04/16 15:13

Sponsor
 

Re: macro word nome cartella in documento

Postdi fleetingcloud » 27/04/16 12:19

perchè abilitando in riferimenti l'opzione di exel non mi fa funzionare un altra macro che gia avevo
fleetingcloud
Newbie
 
Post: 7
Iscritto il: 15/04/16 15:13

Re: macro word nome cartella in documento

Postdi fleetingcloud » 27/04/16 14:27

per ora ho risolto in questo modo :
Sub Importa()

'Dichiaro le variabili locali
Dim ValoreCella As String
Dim i As Integer

Selection.EndKey Unit:=wdStory
Selection.TypeBackspace
Selection.TypeText Text:="Cosi' deciso in Roma, il "
Selection.TypeParagraph
Selection.TypeText Text:="Depositato in Cancelleria il "
ChangeFileOpenDirectory "C:\macro\"
Selection.InsertFile FileName:="a.doc", Range:="", ConfirmConversions _
:=False, Link:=False, Attachment:=False

End Sub

ovvero importo un documento word pero mi serve che il testo importato abbia come formattazione courier new 12 pt
fleetingcloud
Newbie
 
Post: 7
Iscritto il: 15/04/16 15:13


Torna a Applicazioni Office Windows


Topic correlati a "macro word nome cartella in documento":


Chi c’è in linea

Visitano il forum: Marius44, patel e 3 ospiti