![]() |
#1
|
|||
|
|||
![]()
Dear all, i have the follow problem:
I have to cancel the blanc spaces at the beginnig row (and only at the beginning row) from a Word file but only from row "x" to row "y". Do you have any solution? Ex: i would like to eliminate 6 or 7 blanc spaces for every rows from row 8 to row 25. |
#2
|
|||
|
|||
![]()
Something Could help me please?
|
#3
|
||||
|
||||
![]()
Could you post an example file for us to look at - and please mark the areas that should be removed, thanks.
This way, more people may have a go at answering. |
#4
|
|||
|
|||
![]()
I have posted an example and i have marked the area that i have to remove.
The letter are about 120 and i would have a procedure. Help me...please!!! Thanks |
#5
|
||||
|
||||
![]()
OK - what you are going to need to do is create a macro that uses the Find and Replace tool that loops through the document.
The following code will: Find "_______" and remove it. This will go through the whole document. Code:
Find_and_replace_spaces Macro ' Macro recorded 6/24/2009 by Bird_FAT ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "_______" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do While Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With Selection.MoveLeft Unit:=wdCharacter, Count:=1 Loop End Sub |
#6
|
|||
|
|||
![]()
Thank you for your collaboration but this isn't the solution. Maybe my english isn't correct.
I post the input file and the output file that would have to obtain! The macro that you have wrote cancel all blanc spaces. I post also the result for your macro. The macro have to cancel only blanc spaces on the left of input document in specific area form "PROTOCOLLO" to "DISTINTI SALUTI". Do you have another solution? |
#7
|
||||
|
||||
![]()
OK - all you need to do is change two pieces in the code:
First you need to add in the symbol for a paragraph marker - this will mean that the code will then ONLY replace the spaces AFTER a paragrph marker, second alter the 'replace' field to indicate a paragraph marker (see the red indicators below!) (Use the 'Show/Hide' button to see the ¶ symbol) Code:
Sub Find_and_replace_spaces_Macro() ' Macro re-written 6/25/2009 by Bird_FAT ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p " .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do While Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With Selection.MoveLeft Unit:=wdCharacter, Count:=1 Loop End Sub |
#8
|
|||
|
|||
![]()
I have added ^p before "PROTOCOLLO" and before "DISTINTI SALUTI" at the begging row. Then I have execudet your code like your post but the result was:
RUN TIME ERROR "5624" Degub error: Do While Selection.Find.Execute I think i don't understand correctly your istructions. |
#9
|
||||
|
||||
![]()
Have you tried copying and pasting my code - as it is written in my last post? I tried it on your files, it worked fine for me!
|
#10
|
|||
|
|||
![]()
Ok now it works perfectly!!!!!
Many many many many thanks!!!!!!!!!!!!!!!!!!!!!!! |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
geobruin | Word | 1 | 06-12-2009 06:55 AM |
Spaces After Each Word | jnutella | Word | 0 | 03-04-2009 02:00 PM |
![]() |
George99 | Word | 1 | 12-06-2008 09:59 AM |
Word to Excel hyperlinks and spaces | gak | Word | 1 | 09-14-2008 08:38 AM |
protected form with underline fillable spaces | rohitsahib | Word | 0 | 02-02-2006 10:22 AM |