#WORD DOCUMENT REMOVE LINE NUMBERS MANUAL#
#WORD DOCUMENT REMOVE LINE NUMBERS CODE#

'store my data in an array depending on what sink they chose Sink = ComboBox1.Text 'get sink selection Application.ScreenUpdating = FalseД®lseIf CheckBox4 = True Then 'for monthlyД®lseIf CheckBox5 = True Then 'for quaterly

#WORD DOCUMENT REMOVE LINE NUMBERS CODE#

Therefore when found, the code deletes the selection, and inserts a Section break by code, rather than a replace operation. This is because while ^b can apply to finding the various type of Sections breaks (they are all section breaks), Replace does not know which type to use, so it refuses to use any. However, while Find can use a ^b to find a Section break, Replace can NOT use a ^b to replace something with a Section break.

#WORD DOCUMENT REMOVE LINE NUMBERS MANUAL#

NOTE: you may think that you could do a Find and Replace, replacing manual page breaks (^m) with a Section break (^b). Here is some code that will go through a document and replace page breaks (manual page breaks) with Section breaks (next page break). Though you would have to be careful that there are no manual page breaks that are IN the chunk belonging to a specific sink. RE: Getting a line number from a word document glarior (Programmer)ДЄs macropod mentions - and he/she/it (couldn't help it.) does know a thing or two, if you replace the page breaks with Section breaks, then this is another way to be able to retrieve the text for specific chunks. Sub BetweenTextAsText(sStart As String, sEnd As String) Selection.SetRange Start:=SearchRangeStart, End:=SearchRangeEnd Which:=wdGoToFirst, Count:=SearchLineNumberB + 1, Name:='' ' go to second line line and pick up end integer

Which:=wdGoToFirst, Count:=SearchLineNumberA, Name:='' ' go to first line number and pick up start interger SearchLineNumberB = Selection.Information(wdFirstCharacterLineNumber) Execute(findtext:=sEnd, Forward:=True) = True Then Selection.Collapse direction:=wdCollapseEnd SearchLineNumberA = Selection.Information(wdFirstCharacterLineNumber) Execute(findtext:=sStart, Forward:=True) = True Then Sub BetweenTextAsLines(sStart As String, sEnd As String) & 'the search text, or NO if you want the range of the actual text ' _ Msg = 'Select YES if you want the range of the LINES that have ' _

Word document remove line numbers