|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Display Modes |
|
#1
October 19th, 2007, 09:43 PM
posted to microsoft.public.word.tables
|
|||
|
|||
Insert in First Empty Cell
Hi Im having trouble figuring out in word how to Insert "text" into the first
empty cell in Col A. Any help would be appreciated! Ben Z. 
|
|
#2
October 20th, 2007, 12:19 AM
posted to microsoft.public.word.tables
|
|||
|
|||
|
Insert in First Empty Cell
Hi Ben,
Sub Macro7() Dim oTbl As Table Dim oCll As Cell Set oTbl = ActiveDocument.Tables(1) With oTbl For Each oCll In .Columns(1).Cells If Len(oCll.Range) = 2 Then oCll.Range.Text = "was empty" Exit For End If Next End With End Sub -- Greetings from Bavaria, Germany Helmut Weber, MVP WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de"
|
|
#3
October 20th, 2007, 07:39 AM
posted to microsoft.public.word.tables
|
|||
|
|||
|
Insert in First Empty Cell
Thank you! It works great!
Ben Z. "Helmut Weber" wrote: Hi Ben, Sub Macro7() Dim oTbl As Table Dim oCll As Cell Set oTbl = ActiveDocument.Tables(1) With oTbl For Each oCll In .Columns(1).Cells If Len(oCll.Range) = 2 Then oCll.Range.Text = "was empty" Exit For End If Next End With End Sub -- Greetings from Bavaria, Germany Helmut Weber, MVP WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de"
|
| Thread Tools | |
| Display Modes | |
|
|
Linear Mode
