Visual Basic for MS Word

[Mezha_lauminja]

Vai kaads, luudzu, var paliidzeet? Kaa uzrakstiit makrosu (visual basic worda makrosu videe), kas panaak, ka aktiivajaa dokumentaa visas vietaas, kur ir vairaak kaa viena atstarpe (piemeeram astonjas atstarpes peec kaartas), taas visas aizvietotu ar vienu?

[Ronalds]

Izskatās, ka Tev vajadzēs lietot VBA. Problēma algoritmiski izskatās gaužām vienkārša - skrienam cauri visiem simboliem, ja sastopam atstarpi, piefiksējam, ka sastapām, un skatamies kāds ir nākošais simbols. Ja atstarpe - izņemam. Tiklīdz sastopam citu simbolu, šo piefiksējumu svītrojam.
Lielākā problēma laikam ir saprast Word objektu modeli, t.i. kā reāli tikt pie tā dokumenta teksta no VBA. Bet domāju, ka nedaudz paskatoties atbilstošajā VBA helpā visu varēs atrast. Labs palīgs būs Object Browser logs (manā wordā F2 no VBA Editora loga).
Tātad būtu jāņem Tools -> Macros -> Visual Basic Editor (vai kaut kā tā, nemāku precīzi pateikt, jo esmu uzlicis 2007 wordu un tur ir nedaudz savādāk), uztaisi jaunu moduli, kur likt funkciju, uzraksti pašu funkciju un tad izsauc viņu no Worda Macro loga.
Starp citu, kādai Worda versijai Tev vajag šo efektu panākt?

EDIT: Tikko nedaudz paskatījos to helpu. Tātad, pie teksta varēsi tikt caur ActiveDocument.Content property lauku. Tas Tev atgriezīs Range objektu, kam savukārt ir Text property lauks, kas atgriež parastu string mainīgo. Ar šo mainīgo var veikt kādas manipulācijas vien ir vajadzīgas. Easy

[ernesto]

Ronalds rakstīja:Problēma algoritmiski izskatās gaužām vienkārša - skrienam cauri visiem simboliem, ja sastopam atstarpi, piefiksējam, ka sastapām, un skatamies kāds ir nākošais simbols. Ja atstarpe - izņemam. Tiklīdz sastopam citu simbolu, šo piefiksējumu svītrojam.

problēma ir vēl gaužam viekāršāka, tikai vajag padomāt, kā mēs šo problēmu risinātu dzīvē!
elementārākais piemērs Find - Replace: find divus space un replace ar vienu...
un visa koda gatavošana sanāk šāda - record macro; ctrl+h; saraksta visus vajadziigos pribambasus; OK; stop macro; ieliekam mako loopā un uz priekšu..

[Ronalds]

Arī šādi to var risināt. Ja mērķis ir tikt galā ar 2 atstarpēm, tad šis ir ideāls risinājums. Vienīgā problēma tad ir tajā, ka Words aizvietos 4 atstarpes ar 2, 8 ar 4, 10 ar 5 utt.. Rezultātā tas makro būs jāpalaiž vairākas reizes līdz Replace neko vairs neatrod. Turklāt, tad jau nav vērts to makro ierakstīt - atliek atvērt Replace lodziņu, ailē Find what: ierakstīt: <atstarpe><atstarpe> un Replace with: <atstarpe>. Tad tikai pāris reizītes jāpaklikšķina uz Replace All un nav nekādu problēmu.. Ja vajag sakārtot tikai vienu dokumentu, tad varbūt tas ir tieši tas kas meitenei vajadzīgs.
Es jau palieku pie sava - vērtīgāk uzrakstīt vienkāršu makro. Bet tāds jau es esmu - patīk visu sarežģīt.

[Mezha_lauminja]

Ronalds rakstīja:Arī šādi to var risināt. Ja mērķis ir tikt galā ar 2 atstarpēm, tad šis ir ideāls risinājums. Vienīgā problēma tad ir tajā, ka Words aizvietos 4 atstarpes ar 2, 8 ar 4, 10 ar 5 utt.. Rezultātā tas makro būs jāpalaiž vairākas reizes līdz Replace neko vairs neatrod.

Nu luuk shiis vieniigaas probleemas deelj man tas risinaajums vairs neder

man to vajag xp word'am

a kaa var uzrakstiit kaut ko, kas srien cauri visam tekstam un atgriezh pa vienam simbolam?

[Mezha_lauminja]

ernesto risinaajums dereetu tad, ja vareetu kaut kaa panaakt, ka Find dokumentu caurskata nevis vienu reizi, bet atkal un atkal tik ilgi kameer vairs mekleejamais strings neatrodaas... Vai var kaut kaa identificeet (t.i. kaa to paarbaudi uzrakstiit...), ka visaa dokumentaa nekas nav atrasts???

[ernesto]

Mezha_lauminja rakstīja:ernesto risinaajums dereetu tad, ja vareetu kaut kaa panaakt, ka Find dokumentu caurskata nevis vienu reizi, bet atkal un atkal tik ilgi kameer vairs mekleejamais strings neatrodaas... Vai var kaut kaa identificeet (t.i. kaa to paarbaudi uzrakstiit...), ka visaa dokumentaa nekas nav atrasts???

jā var tādu pārbaudi uztaisīt.. es to realizēju tā: uztaisam ciklu kas ilgst tik ilgi kamēr teksts pirms replace un pēc replace atšķiras.. ja teksts pirms un pēc replace neatšķirsies, tad tas nozīmēs, ka vairs nekas netiks aizstāts..
lai atvieglotu tavu problēmu, tad šeit būs kods.. strādā uz office 2003, nez kā būs ar xp.. bet varbūt

Sub Macro1()

Dim previous_string
previous_string = ActiveDocument.Content + "a"


While StrComp(previous_string, ActiveDocument.Content) <> 0 Or StrComp(previous_string, ActiveDocument.Content) <> Null
previous_string = ActiveDocument.Content
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Wend
End Sub

[Mezha_lauminja]

straadaat straadaa...
tiesa gan, tas variants kljuust taads viegli ekstreems, ja dokumentam ir kaadas 350.lpp vai vairaak...