Forum LMGB!

Ho bisogno di una consulentina informatica.
Siccome non ci chiappo nulla qualcuno di voi mi può aiutare a fare una macro su Word che quando la lancio mi salvi il file.DOC aperto in file.TXT col nome che voglio io ?!

mi serve solo le righe di comando.
TNX!

Ti serve qualcosa del genere:

Sub SaveTXT()
ActiveDocument.SaveAs , FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF
End Sub

... ma per automatizzare completamente
o schianti il nome del file in cui salvare e la directory, oppure devi smanettare
ancora un pochino :)

Sub saveTXT2()
ChangeFileOpenDirectory "C:\DIRECTORY_CHE_VUOI"
ActiveDocument.SaveAs FileName:="NOME_CHE_VUOI.txt", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF
End Sub

ero arrivato ad un aforma quasi uguale anch'io con un semplice Sbatti, ho copiato dalla macro convertToPdf :laughing6:
Sub ConvertToText() ' ' ConvertToText Macro ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "^p^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "_^&_" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^+" .Replac


il vecchio e caro Copia&Incolla ...

????????????????????????????????????????
??????????????????????????????????????????????
0 0 0 0 0 0
0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0
0 0 0 0 0


0 0 0 0 0 0
0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0
0 0 0 0 0


0 0 0 0 0 0
0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0
0 0 0 0 0


0 0 0 0 0 0
0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0
0 0 0 0 0

Figo...


ECLATANTE SUPERIORITA' DI PROGRAMMAZIONE!!!