Home |
Search |
Today's Posts |
#1
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
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
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" |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
insert clip art gives a empty box | Microsoft Word Help | |||
Empty Insert Object List - Word 2003 | Microsoft Word Help | |||
empty box when i insert picture? | Microsoft Word Help | |||
how to create or insert a cell in Word? | New Users | |||
How do I insert a picture into a cell of a table? | Tables |