#1
|
|||
|
|||
Select section of text and change text
I have a word document that I want to select the entire text and reformat to Arial 10 except for a small section that will be Arial 8. I know the code for selecting all, but cannot seem to be able to just select the following text:
This chart is for reference only Please do not distribute results Date created 1/1/2013 Code I have for selecting all text is as follows: Code:
Sub SelectAllText() Selection.WholeStory Selection.Font.Name = "Arial" Selection.Font.Size = 10 Selection.Font.Color = wdColorAutomatic Selection.Collapse Selection.Find.Text = "This as a test" End Sub Many thanks in advance. |
#2
|
|||
|
|||
1. you should use Styles, rather than manual formatting
2. are the sentences contiguous? |
#3
|
|||
|
|||
Quote:
It does what I want, so all is good. Suggestions on how to condense code would be nice. I'm always game to learn. Code:
Sub ChangeColorWithReplace() Selection.WholeStory Selection.Font.Name = "Arial" Selection.Font.Size = 10 Selection.Collapse Selection.Find.ClearFormatting Selection.Find.Font.Color = wdColorYellow Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Color = wdColorAuto Selection.Find.Replacement.Font.Size = 8 With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.WholeStory Selection.Font.Color = wdColorAutomatic Selection.Collapse End Sub |
#4
|
|||
|
|||
You asked about something to find a specific string of text. What you posted does not do this. It simply changes the document to Arial 10. If you used Styles (which is how Word is supposed to be used!!), you could do it with:
Code:
Sub MakeArial() With Selection .WholeStory .Style = "MyArial" End With End Sub |
Tags |
selecting text, vba in microsoft word, word 2007 |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to find and select text in a document? | mkhuebner | Word VBA | 8 | 02-04-2014 08:04 PM |
Formatting- Apply changes to highlighted text results in same change to other text | sential | Word | 6 | 01-10-2014 03:22 PM |
How to select all text in a presentation (even if not in outline) | smodtactical | PowerPoint | 1 | 05-10-2010 10:11 AM |
Select text by color | Invain | Word | 1 | 02-14-2010 07:08 AM |
Select text between characters | davers | Word | 10 | 05-24-2009 05:15 AM |