Macro Help Needed

raven3255 · 10-29-2009, 11:34 PM

Hi,

I have a document that I need help with.....macro-wise anyway. The document, a sample of which is attached, is an interview. I need a macro that numbers each line of the interview so that a certain reference in the interview can be referenced quickly. The numbers can be before or after the line. The lines can number in the thousands so I really need a macro to do this. Can anyone help or show me how to do it? Thanks in advance.

Raven

**macropod** · 10-30-2009, 03:11 AM

Hi Raven,

You can number all lines without a macro. Goto File|Page Setup|Layout>Line Numbers>Add line numbering and select the options you want.

Done any other way is problematic, since a change in printer driver, page layout (eg margins), etc can cause a static numbering system (the kind you'd get with a macro) to get messed up. Plus, unless you use a two column table, with the line numbers in one columns and the Q&A stuff in the other, your macro-generated line numbers will have to become part of the Q&A stuff itself. Ugly.

raven3255 · 10-30-2009, 09:24 AM

Thanks Macropod for the quick response. I'll try that.

Raven

raven3255 · 11-02-2009, 05:15 PM

Hi Macropod,

The template I'm trying to do is for a college group. They want to experiment with a macro anyway. Would you mind showing me how to construct the numbering system? I'm aware it won't be dynamic but that's not what they want anyway. Thanks in advance.

Raven

**macropod** · 11-03-2009, 12:16 AM

H Raven,

Here's a sample macro, for use with a document formatted as a single two-column table. The macro puts the line numbers in the left column:

Code:

Sub Demo()
Dim i As Integer, strTxt As String
With ActiveDocument
  For i = 1 To .ComputeStatistics(wdStatisticLines) - 2
      strTxt = strTxt & i & Chr(11)
  Next
  strTxt = strTxt & i
  .Tables(1).Columns(1).Cells(1).Range.Text = strTxt
End With
End Sub

Note that, if your document has paragraphs with non-standard font sizes and paragraphs formatted with leading/trailing spaces, the line numbers won't line up with the lines to which they relate. Coding a macro to handle all possible scenarios could be a complex task.

raven3255 · 11-03-2009, 11:26 AM

Thanks Macropod,

I'll give a try. Appreciate it.

Raven

10-30-2009, 03:11 AM	#2 (permalink)
macropod TSF Enthusiast Join Date: Apr 2008 Location: Australia Posts: 559 OS: Vista	Re: Macro Help Needed Hi Raven, You can number all lines without a macro. Goto File\|Page Setup\|Layout>Line Numbers>Add line numbering and select the options you want. Done any other way is problematic, since a change in printer driver, page layout (eg margins), etc can cause a static numbering system (the kind you'd get with a macro) to get messed up. Plus, unless you use a two column table, with the line numbers in one columns and the Q&A stuff in the other, your macro-generated line numbers will have to become part of the Q&A stuff itself. Ugly. __________________ Cheers macropod (MS MVP -Word)

10-30-2009, 09:24 AM	#3 (permalink)
raven3255 Registered User Join Date: Apr 2005 Posts: 4 OS: XP	Re: Macro Help Needed Thanks Macropod for the quick response. I'll try that. Raven

11-02-2009, 05:15 PM	#4 (permalink)
raven3255 Registered User Join Date: Apr 2005 Posts: 4 OS: XP	Re: Macro Help Needed Hi Macropod, The template I'm trying to do is for a college group. They want to experiment with a macro anyway. Would you mind showing me how to construct the numbering system? I'm aware it won't be dynamic but that's not what they want anyway. Thanks in advance. Raven

11-03-2009, 12:16 AM	#5 (permalink)
macropod TSF Enthusiast Join Date: Apr 2008 Location: Australia Posts: 559 OS: Vista	Re: Macro Help Needed H Raven, Here's a sample macro, for use with a document formatted as a single two-column table. The macro puts the line numbers in the left column: Code: Sub Demo() Dim i As Integer, strTxt As String With ActiveDocument For i = 1 To .ComputeStatistics(wdStatisticLines) - 2 strTxt = strTxt & i & Chr(11) Next strTxt = strTxt & i .Tables(1).Columns(1).Cells(1).Range.Text = strTxt End With End Sub Note that, if your document has paragraphs with non-standard font sizes and paragraphs formatted with leading/trailing spaces, the line numbers won't line up with the lines to which they relate. Coding a macro to handle all possible scenarios could be a complex task. __________________ Cheers macropod (MS MVP -Word)

11-03-2009, 11:26 AM	#6 (permalink)
raven3255 Registered User Join Date: Apr 2005 Posts: 4 OS: XP	Re: Macro Help Needed Thanks Macropod, I'll give a try. Appreciate it. Raven