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!

Nick in uni 7 : Alkimo
Nick in uni 25: Gatto Rognoso



____________

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

Nick in uni 7 : vex
Nick in uni 25: vex
Nick in uni 41: vex
Nick in uni 40: vex

____________

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 ...

Nick in uni 7 : Alkimo
Nick in uni 25: Gatto Rognoso



____________

????????????????????????????????????????
??????????????????????????????????????????????
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

____________

Gatto Rognoso ha scritto: [Visualizza Messaggio]

AH AH AH AH FIGO, T' ILLUMINI D' IMMENSO!

the C.C.S man

Figo...


ECLATANTE SUPERIORITA' DI PROGRAMMAZIONE!!!

Nick in uni 7 : Alkimo
Nick in uni 25: Gatto Rognoso



____________