Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro Word Calendario Mensile Automatico

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 Calendario Mensile Automatico

Postdi Black.Jack » 29/08/10 18:43

Salve a tutti,


vorrei creare per il mio lavoro un file word formattato in automatico con il mese corrente e l'orario.

Con le macro in vba me la cavicchio oramai, solo che non riesco a capire il comando per numerare celle di una tabella creata con il mese corrente ed a fianco alle celle, il giusto nome del giorno.

Su Excel mi pare ci sia una funzione che tenga conto dell'orario impostato sul PC, quello di windows insomma.
Non riesco a trovare la medesima funzione su WOrd, a dire il vero trovo veramente poco materiale sulle macro word in internet!!

grazie anticipatamente come sempre! ;)
Win7 + Office 2010 Ita
Xp + Office 2010 Ita
Black.Jack
Utente Junior
 
Post: 93
Iscritto il: 23/06/10 08:40

Sponsor
 

Re: Macro Word Calendario Mensile Automatico

Postdi maxmula » 30/08/10 14:53

Non sono un grande esperto di word, però mi pare che così si riesca ad avere tutte le informazioni necessarie per comporre la data:
Codice: Seleziona tutto
  adesso = Now()
  ORA = Format(adesso, "HH")
  MINUTI = Format(adesso, "NN")
  SECONDI = Format(adesso, "SS")
 
  GIORNO = Format(adesso, "DD")
  GIORNO_SETT = Format(adesso, "DDDD")
  MESE = Format(adesso, "MM")
  ANNO = Format(adesso, "YYYY")



Per quanto riguarda l'inserimento delle informazioni in tabella, ho fatto girare il Registratore di macro ed ho creato una tabella di 2 righe x 5 colonne. Ho quindi inserito i nomi dei giorni da lunedì a venerdì.
Il risultato è stato:
Codice: Seleziona tutto
Sub Macro3()
'
' Macro3 Macro
' Macro registrata il 8/30/2010
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Griglia tabella" Then
            .Style = "Griglia tabella"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    Selection.TypeText Text:="lun"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="mar"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="MER"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="GIO"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="VEN"
    Selection.MoveRight Unit:=wdCell


Con un po' di lavoro è possibile inserire nelle celle la data che vuoi.

Può essserti utile?
A quanto sembra in Word la tabella viene considerata come un array monodimensionale con "interuzioni di riga" :( ...

D'altra parte Word non è certo il programma ideale per creare e gestire tabelle di dati...


Facendo qualche ricerca, ho anche trovato il codice per posizionarsi sulla cella desiderata:
Codice: Seleziona tutto
Sub GoToTableCell()
      ActiveDocument.Tables(1).Cell(Row:=2, Column:=3).Range.Select
      Selection.Collapse
   End Sub


La fonte è il supporto MIcrosoft, il link è questo: http://support.microsoft.com/kb/182256... però a me la pagina web è uscita in cinese! :eeh:

Ciao,
MAx
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34

Re: Macro Word Calendario Mensile Automatico

Postdi Black.Jack » 31/08/10 07:26

Grazie!

Mi hai trovato tutti i riferimenti necessari per un'approfondimento!! 8)


Questo forum è una vera miniera di informazioni!!

grazie mille!! :)
Win7 + Office 2010 Ita
Xp + Office 2010 Ita
Black.Jack
Utente Junior
 
Post: 93
Iscritto il: 23/06/10 08:40


Torna a Applicazioni Office Windows


Topic correlati a "Macro Word Calendario Mensile Automatico":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti