Thread: [Solved] Word VBA: Cannot Edit Range (Delete characters except the first in a table cell)
View Single Post
 
Old 04-24-2012, 03:59 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Hi tinfanide,

Try:
Code:
Sub Demo()
Dim oCel As Cell
With Selection
  If .Information(wdWithInTable) = False Then Exit Sub
  For Each oCel In .Tables(1).Range.Cells
    oCel.Range.Text = oCel.Range.Characters.First
  Next
End With
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote