insertdatetime?

[Eric]

Why I cannot run the following code:
tb1.cell(1,4).range.insertdatetime datetimeformat:="MM/dd/yy"

I want to print current date in one cell of table.
Thanks.

 

[Helmut Weber]

Hi Eric:
have a look at this:
Dim oTbl As Table
Dim oRng As Range
Set oTbl = ActiveDocument.Tables(1)
Set oRng = oTbl.Cell(1, 1).Range
oRng.Collapse
oRng.InsertDateTime datetimeformat:="MM/dd/yy"
Your approach fails, because your range
includes end of cell mark, as far as I see.
Other solutions possible.

 

[Eric]

Thank you very much

 

[Helmut Weber]

Welcome.
Small improvement here, in case you want to
replace any text in the cell
oRng.End = oRng.End - 1
' oRng.Collapse

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000