..:: Nasvet/VBA ::..

Kako se znebim odvečnih presledkov pri uvozu tekstovnih datotek v Word?


Kako makro deluje in zakaj tako deluje si lahko preberete na straneh z Word-ovimi nasveti.

Tukaj pa samo makro:

''' ''' Procedura : Zamenjaj ''' Namen : Pomožna procedura za makro PrevtoriTXT_Word ''' V celotnem tekstu zamenja prvi niz z drugim ''' Vrača : Nič ''' Argumenti : txt (STRING) - niz, ki naj ga zamenja ''' rep (STRING) - niz s katerim naj ga zamenja ''' Napisal : Matjaž Prtenjak, 08/05/2000 ''' Private Sub Zamenjaj(txt As String, rep As String) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = txt .Replacement.Text = rep .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub ''' ''' Procedura : PrevtoriTXT_Word ''' Namen : Tekstovno datoteko pretvori v Word obliko ''' Vrača : Nič ''' Argumenti : Ni ''' Napisal : Matjaž Prtenjak, 10/06/2000 ''' Sub PrevtoriTXT_Word() Zamenjaj "^p^p", "qwertz" Zamenjaj "^p", " " Zamenjaj "qwertz", "^p^p" End Sub