Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Apply a macro to a specified Cell
Dear PEOPLE:
I need to apply a macro to a specified Cell in my table. My table is 2x2 and I want that macro applied to that cell ONLY. My cell is located at Cell(2,1) [row, column]. Can any one help me? Thank you. Abel. |
#2
|
|||
|
|||
Apply a macro to a specified Cell
Dear Abel,
An example: Sub Test() Dim oTable As Table Set oTable = ActiveDocument.Tables(1) 'first table in document With oTable.Cell(2, 1).Range .Text = "Bobs your uncle" .Font.Color = wdColorBlue .Borders.OutsideLineStyle = wdLineStyleDouble End With End Sub |
#3
|
|||
|
|||
Apply a macro to a specified Cell
Thank you Greg.
The macro works perfect but I have severall actions to insert in bettewn the "With oTable" and the "End With": various find and replaces all diferent. Could you explain me how to do that? Thanks Abel |
#4
|
|||
|
|||
Apply a macro to a specified Cell
Abel,
If you are doing a find/replace then set the range to the table cell. Sub Test() Dim myRng As Range Set myRng = ActiveDocument.Tables(1).Cell(2, 1).Range With myRng.Find .Text = "uncle" .Replacement.Text = "favorit uncle" .Execute Replace:=wdReplaceAll End With End Su |
#5
|
|||
|
|||
Apply a macro to a specified Cell
Dear Greg
Thank you once again. I'm doing several find/replacements you thing this could be done correctly like this: Sub Test() Dim myRng As Range Set myRng = ActiveDocument.Tables(1).Cell(2, 1).Range With myRng.Find .Text = "uncle" .Replacement.Text = "favorit uncle" .Text = "nefew" .Replacement.Text = "favorit nefew" .Text = "sista" .Replacement.Text = "favorit sista" .Execute Replace:=wdReplaceAll End With End Sub I mean several replacements inside the same with/range action? |
#6
|
|||
|
|||
Apply a macro to a specified Cell
Abel,
Did you try it? What do you think? I don't think so, because before the .Execute statement you have only changed your mind twice regarding what text you want to find and what you want that text replaced with. This would work: Sub Test1() Dim myRng As Range Set myRng = ActiveDocument.Tables(1).Cell(2, 1).Range With myRng.Find .Text = "uncle" .Replacement.Text = "favorit uncle" .Execute Replace:=wdReplaceAll .Text = "nefew" .Replacement.Text = "favorit nefew" .Execute Replace:=wdReplaceAll .Text = "sista" .Replacement.Text = "favorit sista" .Execute Replace:=wdReplaceAll End With End Sub |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to wrap text from cell to cell in a table. | Tables | |||
Macro Button Won't Stay on Toolbar | Microsoft Word Help | |||
Possible bug when recording a Word Macro | Microsoft Word Help | |||
2000 to 2002 macro and "Could not open macro storage" | Mailmerge | |||
Macro to set selected cell padding to table default | Tables |