Reply
 
Thread Tools Display Modes
  #1   Report Post  
Wi$hma$teR
 
Posts: n/a
Default Adding KKKK in the cell

Help me please.
Can you provide me with formula or macros which will replace any text in
current cell (if formula was writing in this cell behind or before possible
text) with "X" and will leave empty cell the same?
  #2   Report Post  
Jean-Guy Marcil
 
Posts: n/a
Default

Wi$hma$teR was telling us:
Wi$hma$teR nous racontait que :

Help me please.
Can you provide me with formula or macros which will replace any text
in current cell (if formula was writing in this cell behind or before
possible text) with "X" and will leave empty cell the same?


Try this:

'_______________________________________
Dim myCell As Cell

If Not Selection.Information(wdWithInTable) Then
MsgBox "Cursor must be in a table.", vbCritical, "Cancelled"
Exit Sub
End If

With Selection.Tables(1).Range
For Each myCell In .Cells
With myCell.Range
If Len(.Text) 2 Then
.Text = "X"
End If
End With
Next
End With
'_______________________________________

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
ISTOO
Word MVP site:
http://www.word.mvps.org



Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Move through a table in word using the tab key without adding cell pleasehelpme Microsoft Word Help 3 July 28th 05 02:22 AM
Adding Drop Down list numbers SLefever Tables 4 April 27th 05 06:38 PM
runoff words in a cell Teacher_Becky Tables 3 January 27th 05 11:47 PM
word table cell resize or word table cell size change or word table change cell size [email protected] Tables 0 January 13th 05 09:55 PM
copy cell to cell Tlogan Tables 1 January 5th 05 09:20 PM


All times are GMT +1. The time now is 10:46 PM.

Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright 2004-2023 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"