Notifikationer

Markér alle som læst Log ud

mrdj Nybegynder

11. juni 2006 - 23:21 Der er 5 kommentarer og
1 løsning

Makro: Søg og erstat

Jeg har en ordentligt bunke skabeloner som alle indeholder nogle manuelle indtastningsfelter markeret med * - Jeg har nu fået lavet en "STOPKODE" funktion som når man trykker på F11 automatisk går videre til næste STOPKODE

Nu vil jeg så gerne have lavet en makro som jeg kan køre, som så automatisk lige laver en søg og erstat * med STOPKODE

Hvordan gør jeg lige nemmest det ?

Stopkode makroen ser sådan her ud:

Public Sub Main()
Selection.Font.Hidden = True
Selection.TypeText Chr(166)
Selection.Font.Hidden = False
Selection.TypeText "STOPKODE"
Selection.Font.Hidden = True
Selection.TypeText Chr(124)
Selection.Font.Hidden = False
End Sub

det er så den der skal erstatte * i skabelonerne

På forhånd tak for hjælpen

Synes godt om

rvm Nybegynder

12. juni 2006 - 17:45 #1

Du behøver ingen kode eller specielle skrifttyper, for at gå til et nyt sted i dine skabeloner. Indsæt blot formularfelter, der hvor du skal skrive tekst og gå til dem med F11

Mvh

Richardt

Synes godt om

mrdj Nybegynder

20. juni 2006 - 09:34 #2

Er det muligt for mig at lave en makro som går ind og erstatter det "STOPKODE" værk med formularfelter ? Skal da gerne være ærlig og indrømme jeg overhovedet ikke forstår hvorfor det stopkode værk er udviklet i tidernes morgen, men har jeg intet haft med at gøre. Og lige en sidste ting hvor pokker er det nu i menuen i Word man indsætter formularfelter ? Har stirret mig totalt blind på det nu

Synes godt om

oergaard Nybegynder

20. juni 2006 - 20:45 #3

Som jeg forstår dit spørgsmål, kan du bruge følgende kode.

Sub SogOgErstat()
'
' SogOgErstat Makro
' Makro indspillet 20-06-2006 af Oergaard
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*"
.Replacement.Text = "STOPKODE"
.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

//Oergaard

Synes godt om

mrdj Nybegynder

08. oktober 2006 - 22:32 #4

Takker mange gange for hjælpen, det virker bare. Smid et svar og jeg accepterer

Synes godt om

oergaard Nybegynder

01. december 2006 - 21:52 #5

Kommer lidt sent, har fået ny mail adresse og er dermed ikke blvet mindet om det...

//Oergaard

Synes godt om

mrdj Nybegynder

22. april 2007 - 18:19 #6

Tak for svaret

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Word kurser

Tag et kursus i Word og øg effektiviteten

Se alle Word kurser

Flere spørgsmål fra Word kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kan man slette skrifter : Word : Windows 10 ? Af Ikke-ekspert i Word	10	28/09/202519:16	29/09/202511:57
WordMat Af jgormm i Word	3	21/09/202510:53	22/09/202512:57
alfabetisk rækkefølge i word på ipad Af PAN i Word	1	02/06/202514:13	02/06/202522:24
Word VBA: Check engelsk gramma og ret fejl Af Dan Elgaard i Word	3	30/04/202509:34	02/05/202509:13
Fed skrift Af camsti i Word	3	07/04/202518:36	07/04/202522:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS