Merging Fields

[Paul A]

Table exists. The info contained in col 4 should be combined with the info
in col 5, resulting in one less column overall. How do they do it in Word
2003?

 

[Greg Maxey]

You can do it with a macro:

Sub ScratchMacro()
Dim i As Long
With Selection.Tables(1)
For i = 1 To .Rows.Count
.Cell(Row:=i, Column:=4).Merge MergeTo:=.Cell(Row:=i, Column:=5)
Next i
End With
End Sub

 

[Paul A]

Greg, you solved the puzzle and I appreciate your efforts in my behalf.
However, I am almost 70, and have not put together a macro of my own since
maybe 1992, and so I am completely snowed. That's alright. I assumed there
was a function to do what I want, and you have successfully eliminated that
for me.

 

[macropod]

Hi Paul,

You can do the same thing by select the two cells containing the data on a given row, then selecting Table|Merge Cells. You repeat
this for each row. That's essentially what Greg's macro does for you.

 

[Paul A]

That, too, was very helpful. I was doing it "cut-and-paste" for awhile....
but HEY, this merge function you present, I take it, must be done
one-line-at-a-time? You can't take, say 5 on left and merge with 5 on right?
--
Any response appreciated, Paul Archibald

Hi Paul,

You can do the same thing by select the two cells containing the data on a given row, then selecting Table|Merge Cells. You repeat
this for each row. That's essentially what Greg's macro does for you.

--
Cheers
macropod
[Microsoft MVP - Word]

 

[Greg Maxey]

Paul,

I you try it that way you end up with one cell containing the contents of
all ten. The macro is the only way that I know to do it automatically one
row at a time vice manually.

That, too, was very helpful. I was doing it "cut-and-paste" for
awhile.... but HEY, this merge function you present, I take it, must
be done one-line-at-a-time? You can't take, say 5 on left and merge
with 5 on right?

Hi Paul,

You can do the same thing by select the two cells containing the
data on a given row, then selecting Table|Merge Cells. You repeat
this for each row. That's essentially what Greg's macro does for
you.

--
Cheers
macropod
[Microsoft MVP - Word]

Greg, you solved the puzzle and I appreciate your efforts in my
behalf. However, I am almost 70, and have not put together a macro
of my own since maybe 1992, and so I am completely snowed. That's
alright. I assumed there was a function to do what I want, and you
have successfully eliminated that for me.
--
Any response appreciated, Paul Archibald


:

You can do it with a macro:

Sub ScratchMacro()
Dim i As Long
With Selection.Tables(1)
For i = 1 To .Rows.Count
.Cell(Row:=i, Column:=4).Merge MergeTo:=.Cell(Row:=i,
Column:=5) Next i
End With
End Sub


Paul A wrote:
Table exists. The info contained in col 4 should be combined with
the info in col 5, resulting in one less column overall. How do
they do it in Word 2003?

 

[Paul A]

Yeah, yer right, I went down that alley several times on my own, but I never
tried just one line, and that is why I could not figure out what was
happening. Thanks to you both; I have made a giant step. I worked all the
early word processing systems in early 1980's, including IBM Office System 6
(macros blossomed there), but thru disuse and fast-changing tech, I got so
far behind. This did a lot. Thanks again.
--
Any response appreciated, Paul Archibald

Paul,

I you try it that way you end up with one cell containing the contents of
all ten. The macro is the only way that I know to do it automatically one
row at a time vice manually.

That, too, was very helpful. I was doing it "cut-and-paste" for
awhile.... but HEY, this merge function you present, I take it, must
be done one-line-at-a-time? You can't take, say 5 on left and merge
with 5 on right?

Hi Paul,

You can do the same thing by select the two cells containing the
data on a given row, then selecting Table|Merge Cells. You repeat
this for each row. That's essentially what Greg's macro does for
you.

--
Cheers
macropod
[Microsoft MVP - Word]


Greg, you solved the puzzle and I appreciate your efforts in my
behalf. However, I am almost 70, and have not put together a macro
of my own since maybe 1992, and so I am completely snowed. That's
alright. I assumed there was a function to do what I want, and you
have successfully eliminated that for me.
--
Any response appreciated, Paul Archibald


:

You can do it with a macro:

Sub ScratchMacro()
Dim i As Long
With Selection.Tables(1)
For i = 1 To .Rows.Count
.Cell(Row:=i, Column:=4).Merge MergeTo:=.Cell(Row:=i,
Column:=5) Next i
End With
End Sub


Paul A wrote:
Table exists. The info contained in col 4 should be combined with
the info in col 5, resulting in one less column overall. How do
they do it in Word 2003?

 

[Melody KirkWagner]

Paul, there's an easy workaround for this that doesn't involve doing
one at a time. You can convert the table to text, show formatting, use
the find and replace function to remove the character that tells the
table to move to the next column (commonly a tab) between columns 4
and 5, then convert back to a table. It still involves saying yes to
the change in the right places, so there's some labor involved, unless
you have a specific character at the end of the text in all entries of
column 4, but it would be faster.

OR you can pull out those two columns and do the conversion to text,
remove the spacing character, convert them back to a table, and paste
the new column into the original table. There are directions for
converting back and forth here:
http://tribeofadmins.com/home/the-wit-and-wisdom-of-word/how-to-use-word-to-create-your-excel-table
or here: http://tribeofadmins.com/home/the-wit-and-wisdom-of-word/reversing-last-name-first-lists
It all seems a big fuss, but once you catch on to what you're doing,
it's the work of seconds. Sometimes Word gets contentious about
pasting that column back in - if so, use excel to put the whole table
together and then copy it into Word.

If it doesn't seem clear or you have trouble, email mail me via the
contact link on the site or here, and I'll be happy to help you with
it.

 

[Paul A]

Melody, your response was quite clear, and most helpful, along with the prior
info I was given. I can handle the conv to txt, fix, and re-convert, I am
sure. It is a "big job" sector that I will address very soon, but not this
week; so I will save your contact, with grateful appreciation for all the
help. (first-time user!)