![]() |
#8
|
|||
|
|||
![]()
Thanks a lot, Gmaxey! All this is very instructive. Your code works like charm.
At present I'm trying to remove underline in a specific postion (lastChr). But the code removes underline in the whole document. Please help! Code:
With ActiveDocument LastChr = .GoTo(wdGoToPage, wdGoToLast).End .Range(LastChr, ActiveDocument.Range.End).Font.Underline = False .Range(LastChr, ActiveDocument.Range.End).InsertAfter Chr(13) & "Firt Part - End" End With |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
eduardb | Word | 1 | 08-10-2022 03:17 AM |
Search Word for specific strings and replace with hyperlinks from a list | jlive24 | Word VBA | 2 | 06-26-2022 08:14 PM |
Extracting Specific Text Strings | PWH68 | Word VBA | 6 | 10-08-2019 02:07 AM |
![]() |
ppayaw | Word VBA | 8 | 12-13-2016 08:11 AM |
![]() |
vikrantkale | Word | 1 | 03-28-2011 06:13 PM |