word autotext incremental date

[Kurt111780]

Hello:

I have a word document that has a table with many rows.

What I need to do:
Starting with the current date, each row needs to go up by one day. Also it needs to skip weekends.

Any ideas on how to do this?

Thank you,
Kurt

It's only easy when you know how.

http://www.seedandgarden.com

 

[zbnet]

Use an Excel sheet and embed it in the Word document?

 

[Kurt111780]

Would rather do it in word but might have to do it that way.

Kurt

It's only easy when you know how.

http://www.seedandgarden.com

 

[fumei]

It can be done in Word. You may have to adjust this for your need, as I don't really know how things are set up in your document. This is based on a bunch of formfields across columns - although that is, actually, irrelevant. It simply take the result of the the previous formfield, as a date, adds a day, checks to see if it is Saturday or Sunday, and adjust accordingly. This is input into the next formfield.

Sub UpdateOtherDates()
Dim mFF As FormField
Dim i As Integer
Dim dteStart As Date
Dim var As Integer
i = 1
var = 1
On Error Resume Next

For var = 1 To ActiveDocument.FormFields.Count
   Set mFF = ActiveDocument.FormFields(var)
   If var > 1 Then
      dteStart = ActiveDocument.FormFields(var - 1).Result
      Select Case Weekday(dteStart + i)
         Case vbSaturday
            dteStart = dteStart + i + 2
         Case vbSunday
            dteStart = dteStart + i + 1
         Case Else
            dteStart = dteStart + i
      End Select
      ActiveDocument.FormFields(var).Result = dteStart
   End If
   Set mFF = Nothing
Next
End Sub

Gerry
See my Paintings and Sculpture

 

[macropod]

If you want to a non-macro solution in Word, see the thread at:

http://www.wopr.com/cgi-bin/w3t/showthreaded.pl?Number=249902

Cheers

 

[Kurt111780]

Hi,

Thanks for the help. I decided to do this in excel instead.

http://tek-tips.com/viewthread.cfm?qid=1048747

Kurt

It's only easy when you know how.

http://www.seedandgarden.com