WORD in makri….

Pozdravljeni.

Imam problem kako narediti ukaz v makru od worda, da pobriše v tekstu prazne vrstice ter prazne odstavke….

Npr:

Imamo tekst s 1000 vrsticami, med njimi pa je 372 praznih vrstic… Kako izbrišemo teh 372 vrstic (praviloma so to odstavki)…

Kaj je za ukaz v makru, da se to naredi?

Že v naprej Hvala

Jaz običajno naredim kar zamenjaj. Tako zamenjam posebni znak za odstavek z praznim vnosom ali pa z presledkom.

Hvala za odgovor…vendar sem mogoče slabo zastavil problem. Bom pokazal na spodnjem problemu.
Imamo tekst (odstavkov je 13 + 5 praznih = 18)
Rad bi pa naredil da bi bile številke zaporedoma
Situacija: tekst
A1
B2
E3
C4

E5
D6

A7
A8
B9
E10

C11
E12
D13

REZULTAT ŽELIM TAKŠEN:
A1
B2
E3
C4
E5
D6
A7
A8
B9
E10
C11
E12
D13

Že v naprej se Vam zahvaljujem za odgovor.

Lp

Ideja bi bila, da zamenjaš dva zaporedna znaka za konec odstavka z enim (^v^v v ^v). In to ponavljaš toliko časa, dokler ti parov ne zmanjka.
Ampak žal stvar ne deluje, kot kaže Word ne zna iskati čez meje odstavka.

Zvedavec ima tapravo idejo. Samo napačne znake je uporabil.

Zamenjaš dve oznakake odstvek (^p^p) ali oznake za ročni prlom vrstice
(^l^l ) z enojnimi. Makro za odstavke bi pa zgledal takole.

Sub odstavki()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = “^p^p”
.Replacement.Text = “^p”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
End Sub

Hvala, Uspelo mi je urediti…

Imam pa še naslednjo težavo…

Kako v makro vpišem ali naredim, da ko zaženem makro, da se mi odpre okno, v katerga nekaj vpišem – karkoli, in to se bo vpisalo na točno določeno mesto v dokumentu?

Hvala za odgovor

Lp

Ne vem če te ravno zastopim…zakaj bi namesto direkt v word tipkal v neko okno??

No ja kakorkoli, tale stavek ti vstavi tvoj vpisan tekst na mesto kjer je kurzor :

Selection.Text = InputBox(“Vpiši tekst”, “Vnos”)

Hvala za odgovor….

Zadeva dela kot sem si zamislil…. No malo bi še rad dodelal. Kako pa bi recimo rekel oziroma:

Prav tako bi rad imel inputbox, vendar bi rad, da bi imel tri opcije vpisa:

recimo:

starost:
velikost:
spol:

In vsako bi se zapisalo v svojo vrstico, kar bi jaz napisal: starost v prvo vrstico, velikost v drugo vrstico ter spol v tretjo vrstico…

Že v naprej hvala za odgovor.

InputBox ima žal le eno polje za vpis, tako da z enim ne boš ubil 3 muhe na mah. Za to bi potreboval verjetno posebno formo, kar pa v wordu ni tako enostavno.

Verjetno bo najlažja rešitev z tremi Input boxi nekako takole

Selection.TypeText Text:=InputBox(“Vpiši starost”, “Vnos”)
Selection.TypeParagraph
Selection.TypeText Text:=InputBox(“Vpiši velikost”, “Vnos”)
Selection.TypeParagraph
Selection.TypeText Text:=InputBox(“Vpiši spol”, “Vnos”)
Selection.TypeParagraph

Hvala za ogovore.

Mi je uspelo na koncu urediti.

Hvala

Pozdravljeni vsi
Ko berem tole, bi še jaz rad zastavil eno vprašanje.
A je možno v WORDU napisati doložen text v različih barvah in velikostih. za tem bi rad, da se vse napisano avtomatsko skopira v nov zvezek, le kar bi bilo napisano z rdečo barvo (npr. sporno besedilo) se ne bi preneslo.
hvala že v naprej