Results 1 to 4 of 4
Hybrid View
-
25th July 2010 00:17 #1
-
25th July 2010 00:32 #2Registered User
Join Date: Oct:2003
Location:
Posts: 4,317
Word, , , Save As .
-
25th July 2010 00:36 #3
-
25th July 2010 00:59 #4Registered 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.




Reply With Quote
...
07.05.23 ., 14:24 in