Results 1 to 4 of 4

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User Joro711's Avatar
    Join Date: Feb:2007
    Location:
    Posts: 1,739

    200 Word. . 2-3 ?

  2. #2
    Registered User
    Join Date: Oct:2003
    Location:
    Posts: 4,317
    Word, , , Save As .

  3. #3
    Registered User Joro711's Avatar
    Join Date: Feb:2007
    Location:
    Posts: 1,739
    - ?

  4. #4
    Registered User
    Join Date: Oct:2003
    Location:
    Posts: 4,317
    :
    Sub Macro1()
    Selection.HomeKey Unit:=wdStory
    Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend

    t = Selection.Text
    t = Replace(t, ":", "_")
    t = Replace(t, "?", "_")
    t = Replace(t, "*", "_")
    t = Replace(t, "/", "_")
    t = Replace(t, "\", "_")
    t = Replace(t, "<", "_")
    t = Replace(t, ">", "_")
    t = Replace(t, "|", "_")
    t = Replace(t, Chr$(34), "_")
    t = Replace(t, Chr$(13), "")
    t = Replace(t, Chr$(10), "")

    selection.document.saveas(t, )
    End Sub

    . .

    , .
    Last edited by bsb; 25th July 2010 at 01:05.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |