A community of 30,000 US Transcriptionist serving Medical Transcription Industry
I am editing using a word based program and the text populates with spaces in between the ROS and PE sections every time. I have to manually go to each line and eliminate the space. My hand is taking a beating. I would like to know if I could find a function that when I highlight that section would make that particular space one between each line instead of two. I hope I am explaining this right. The spaces right now are 2 spaces in between each section. I would like to find a function or macro that will make the space one space when I highlight it.
Thank you all !!!!!!!
Have you tried a simple Search and Replace? I think that usually works best (at least in my experience) when you want to highlight certain paragraphs only within a report. I tried using a macro once, but instead of just replacing the highlighted area, it replaced everything in the report.
Probably not the fastest way to do it, but should be quicker than manually deleting spaces.
If it always only does it in certain sections, you can do it before you start doing any editing. Do a Search for where the problem begins. Use CTRL+SHIFT+DOWN ARROW to highlight the entire paragraph (if you want to highlight the next paragraph also, just keep hitting the DOWN ARROW until you get to the end of the last paragraph you want highlighted). Then you can run your Search and Replace, and pop back to the beginning of the report to begin your editing.
Since I don’t know what version of MS Word you use (I have 2007), you might want to try creating a macro using those steps. Maybe your version of MS Word will let you do just the highlighted paragraphs and not the entire report, which mine seems to want to do (but then I could have screwed up something when I made my macro, so it may work in 2007 also).
Good Luck
I am not sure I understand the problem or if this macro will fix it. You can run this macro from anywhere in the paragraph you want to fix, but the insertion point for your cursor must be somewhere in that paragraph. This will make sure that the paragraph is double-spaced from the last paragraph (one blank line beween paragraphs) and that the paragraph begins at the left hand margin. You might want to put this on a hot-key.
Sub FixFormat()
Dim A As Long
ActiveDocument.Bookmarks.Add Name:="TempBookMark"
Selection.MoveUp Unit:=wdParagraph
GoSub Check1
While A = 13 Or A = 12 Or A = 32
Selection.Delete: GoSub Check1
Wend
Selection.MoveRight: Selection.TypeText vbCr & vbCr
GoSub Check2
While A = 32
Selection.Delete: GoSub Check2
Wend
If ActiveDocument.Bookmarks.Exists("TempBookMark") = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="TempBookMark"
ActiveDocument.Bookmarks("TempBookMark").Delete
End If
Exit Sub
Check1:
Selection.MoveLeft Unit:=wdCharacter
Check2:
A = Asc(Selection.Text)
Return
End Sub