 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Word / Programming / March 2008How to change list for normal text and add dash?
Hello. There is short story with dialogues. These dialogues has formated of list marked (the dash). I need to format these dialogues into other style (Normal) and insert before each dialogues the dash, as is it was previously with list. I wrote the code, but it replace not all entries. That code: Sub listChange() 'Change list format on Normal text with the dash Dim List1 As Style Dim List2 As Style Set List1 = ActiveDocument.Styles("MarkList") Set List2 = ActiveDocument.Styles("Normal") With Selection.Find .ClearFormatting .Style = List1 .Replacement.ClearFormatting .Replacement.Style = List2 .Text = "" .Replacement.Text = "^+^s^&" .Forward = True .Wrap = wdFindContinue .Format = True .Execute Replace:=wdReplaceAll End With End Sub And here (http://rapidshare.com/files/96671459/list.doc.html) you can download the file with sample dialogues. Thank you very much. > Hello. There is short story with dialogues. These dialogues has > formated of list marked (the dash). I need to format these dialogues > into other style (Normal) and insert before each dialogues the dash, > as is it was previously with list. I wrote the code, but it replace > not all entries. That code: Which entries get skipped? Anything in common for those skipped passages? (Sorry but I am at work and I cannot use Rapidshare here...) > Hello. There is short story with dialogues. These dialogues has > formated of list marked (the dash). I need to format these dialogues [quoted text clipped - 23 lines] > download the file with sample dialogues. > Thank you very much. Hello. After use of this macro it change only first entry of list but it skipped next entries of list. You can download this file also from here (http://www.box.net/shared/2blerch8gc). Thank you very much. > > Hello. There is short story with dialogues. These dialogues has > > formated of list marked (the dash). I need to format these dialogues [quoted text clipped - 27 lines] > it skipped next entries of list. You can download this file also from > here (http://www.box.net/shared/2blerch8gc). Thank you very much. Hello there. I decided my question with help of the cycle. I added: For Each List1 In ActiveDocument.Styles Selection.Find.Execute Replace:=wdReplaceOne Next List1 Thank you. But I not understand, why my early code is not working.
|
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.