Sub MakeDescriptions()
Dim tbl As Table
Dim rw as Integer
Dim desc As String
Dim rng As Range
If ActiveDocument.Tables.Count = 0 Then
MsgBox "There are no tables in the active document."
Exit Sub
End If
Set tbl = ActiveDocument.Tables(1)
For rw = 2 To tbl.Rows.Count
Set rng = tbl.Cell(Row:=rw, Column:=1).Range
rng.MoveEnd Count:=-1 ' remove cell marker from end of range
desc = "week " & rng.Text
Set rng = tbl.Cell(Row:=rw, Column:=2).Range
rng.MoveEnd Count:=-1
desc = desc & " - " & rng.Text
tbl.Cell(Row:=rw, Column:=3).Range.Text = desc
Next rw
End Sub
How do I concatenate two cells (one with a number, other with week dates) into a third cell in word 2021?
Hi all,
The picture of the table shows what I'm trying to do. The cell contents are text (or string) I just want to concatenate the cells from A3 and B3 with some extra letter ( "Week" and "-") to show like C3. C3 is not a formula right now. I typed it to show what I need. I tried the formula shown in C4 but doesn't work. I get !Syntax Error, " . I don't know why. I've tried the CONCAT function, TEXT function and nothing works. What Am I doing wrong? Thanks.
Microsoft 365 and Office | Word | For home | Windows
-
Jay Freedman 206.8K Reputation points Volunteer Moderator2026-01-13T01:49:35.44+00:00
2 additional answers
Sort by: Most helpful
-
Deleted
This answer has been deleted due to a violation of our Code of Conduct. The answer was manually reported or identified through automated detection before action was taken. Please refer to our Code of Conduct for more information.
Comments have been turned off. Learn more
-
Alexandr S 103.7K Reputation points Independent Advisor
2026-01-12T05:31:22.4033333+00:00 Hello.
- Perform the A,B, and C format as text.
- In C, enter the formula, based on your table., an example of which is shown in the screenshot:
That is, in your case it will be
="Week" & A3 & "-" & B3