Word VBA: Cannot Edit Range (Delete characters except the first in a table cell)

		Microsoft Office Forums > Microsoft Word > Word VBA
Word VBA: Cannot Edit Range (Delete characters except the first in a table cell)

FAQ

Thread Tools

Display Modes

04-24-2012, 03:59 AM

macropod

Windows 7 64bit Word VBA: Cannot Edit Range (Delete characters except the first in a table cell)

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,467

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]

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Set range for merged Word table cells?	tinfanide	Word VBA	1	02-06-2012 05:57 AM
How can I delete the content of a cell in column if the cell value is more than 1000?	Learner7	Excel	2	06-27-2011 05:44 AM
Can't delete range - error 5904	expatriate	Word VBA	1	06-03-2011 12:12 AM
Edit number of characters per page after writing whole paper	dea	Word	1	01-04-2011 02:24 AM
Auto-populate an MS Word table cell with text from a diff cell?	dreamrthts	Word Tables	0	03-20-2009 01:49 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 08:05 AM.