[Word] Macro per taggare gli attributi di testo

[albertomineo]

Ciao a tutti,

mi capita spesso nel mio lavoro di dover salvare in txt documenti word senza però perdere gli attributi del testo. Sto quindi cercando di fare una macro che, ad esempio, mi metta un simbolo all'inizio di ogni selezione in grassetto e un simbolo diverso alla fine della selezione, così quando reimporto in word mi ritrasformo i tag e ho di nuovo grassetti, sottolieature e corsivi. Non riesco però ad andare oltre al taggare ogni singola parola in grassetto.
Il codice che uso è questo:

Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Bold = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Selection.Find.Execute
End With
While Selection.Find.Found
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.TypeText Text:="<b>"
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.TypeText Text:="</b>"
Selection.Find.Execute
Wend
End Sub

Ho dato fondo a tutte le mie scarse capacità di programmatore, ho anche provato ad adattare routine che ho trovato in rete ma non sono riuscito a farne funzionare nessuna, se qualcuno mi dà una mano...

grazie mille
alberto

[albertomineo]

Ciao a tutti,

visto che nessuno mi rispondeva ho pensato che forse voleva dire "fai un altro po' di lavoro da solo" e l'ho fatto.

Adesso la mia opera d'arte è questa:

Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Bold = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Selection.Find.Execute
End With
While Selection.Find.Found
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.TypeText Text:="<b>"
Do Until (Selection.Font.Bold = False)
Selection.MoveRight Unit:=wdWord, Count:=1
Loop
Selection.TypeText Text:="</b>"

Selection.Find.Execute
Wend

End Sub

Però se la frase in grassetto è all'interno di una frase in carattere normale la macro va in tilt.

Grazie ancora
alberto

[Anthony47]

Personalmente non ho una grande esperienza col vba di word quindi non sono in grado di aiutare nel problema posto, ma almeno un benvenuto te lo dobbiamo; quindi "Benvenuto nel forum"

Ciao.

[albertomineo]

Grazie Anthony,

un benvenuto fa sempre piacere... Mi spiace non possiate aiutarmi ma solitamente, quando non trovo un aiuto, è perché in realtà sto cercando una scorciatoia e non ho realmente tentato tutto.
Quindi torno al lavoro...

alberto