Macro Word Calendario Mensile Automatico

[Black.Jack]

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!

[maxmula]

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!

Ciao,
MAx

[Black.Jack]

Grazie!

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


Questo forum è una vera miniera di informazioni!!

grazie mille!!