[knight06]

Hello guys:
I have table on a one-page doc that's designed to fit with a label sheet (4
by 10), I want to programatically assign a sequence of numbers with
repeatition to the cells in this manner:
1 1 2 2
3 3 4 4
....................
20 20 21 21

I have this code I got from utteraccess forum, but it was for excel, and am
not sure if works with word. I made a button and added the code but it asked
me to enable macros!
Here is the code:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim k As Integer

ActiveSheet.Range("A1").Select
k = 1

For i = 1 To 1000
ActiveCell.Offset(k - 1, 0).Value = i
ActiveCell.Offset(k - 1, 1).Value = i
i = i + 1
k = k + 1
ActiveCell.Offset(k - 2, 2).Value = i
ActiveCell.Offset(k - 2, 3).Value = i

Next i

End Sub
Thank you very much.

[Robert M. Franz (RMF)]

knight06 wrote:
Hello guys:
I have table on a one-page doc that's designed to fit with a label sheet (4
by 10), I want to programatically assign a sequence of numbers with
repeatition to the cells in this manner:
1 1 2 2
3 3 4 4
...................
20 20 21 21

I have this code I got from utteraccess forum, but it was for excel, and am
not sure if works with word. [code snipped]

it will certainly not work, as it's dealing with Excel objects
(worksheet etc.), in Word.

Personally, I would use two different SEQ fields (one simply counting
upwards, the other always repeating the last member of the sequence) for
that (it's certainly the easiest way to do that manually, and might be
an idea for tackling this programmatically, too.

If you really do need code, best ask about that in one of the .word.vba
forums.

HTH
Robert
--
/"\ ASCII Ribbon Campaign | MS
\ / | MVP
X Against HTML | for
/ \ in e-mail & news | Word

[knight06]

Thanx Robert, and I appreciate your advice.

"Robert M. Franz (RMF)" wrote:

knight06 wrote:
Hello guys:
I have table on a one-page doc that's designed to fit with a label sheet (4
by 10), I want to programatically assign a sequence of numbers with
repeatition to the cells in this manner:
1 1 2 2
3 3 4 4
...................
20 20 21 21

I have this code I got from utteraccess forum, but it was for excel, and am
not sure if works with word. [code snipped]

it will certainly not work, as it's dealing with Excel objects
(worksheet etc.), in Word.

Personally, I would use two different SEQ fields (one simply counting
upwards, the other always repeating the last member of the sequence) for
that (it's certainly the easiest way to do that manually, and might be
an idea for tackling this programmatically, too.

If you really do need code, best ask about that in one of the .word.vba
forums.

HTH
Robert
--
/"\ ASCII Ribbon Campaign | MS
\ / | MVP
X Against HTML | for
/ \ in e-mail & news | Word