daily pastebin goal
56%
SHARE
TWEET

Untitled

a guest Feb 13th, 2018 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim rng As Range
  2. Dim rngText As Range
  3. Set rng = ActiveDocument.Range
  4. Set rngText = ActiveDocument.Range(0, 0)
  5. rngText.Collapse wdCollapseStart
  6.  
  7. With rng.Find
  8.      .Format = False
RAW Paste Data
Top