09. maj 2001 - 07:31Der er
15 kommentarer og 1 løsning
Automatiske \"krumme\" begyndelses- og afslutnings-anførselstegn i Word97
Min gamle Word 6.0 kunne selv finde ud af at indsætte krumme (\"dobbelte\") begyndelses- og afslutnings-anførselstegn (vender 180 grader i forhold til hinanden), blot ved brug af den normale indtastning Shift+2, henholdsvis før og efter et ord. Det var ikke nødvendigt at bruge to forskellige tastekombinationer for at få de to tegn. Hvordan, de vendte, var bestemt af, om de blev afsat i starten eller i slutningen af et ord. Det kan jeg ikke få Word 97 til.
Det eneste relaterede jeg har fundet i Word 97 er: I Funktioner>Autokorrektur>Autoformat kan man vælge - ved at indklikke et flueben - om man ønsker krøllede anførselstegn. I Funktioner>Tilpas>Tastatur>Kategori>Specialsymboler kan man tildele en tastaturgenvej til dobbelte afsluttende/begyndende anførselstegn.
Men som sagt, intet automatisk. Hvis i ikke kan hjælpe mig, er der selvfølgelig ingen vej udenom at tildele en ekstra tast. For jeg vil faneme ikke have Bill Gates til at ændre det danske sprog.
I min Word97, som godt nok er engelsk, finder den selv ud af det når jeg sætter Tools->Autocorrect->Autoformat as you type->\"Straight quotes\" with \"smart quotes\". Når dette er sat, vælger den automatisk hvilket anførselstegn, der skal bruges. Man skal taste tegnet \" og det fungerer automatisk. Men - min Word97 er engelsk.
Lad mig lige tilføje til mit spørgsmåls sidste sætning i første afsnit: Min Word97 kan selvfølgelig afsætte krumme anførselstegn, men de krummer samme vej uanset, om de står før eller efter et ord - det er problemet.
Løsning kunen være en makro - f.eks denne Sub citat() \' indsæt “ og ” på skift når der tastes \" \' makroen knyttes til tasten \" Static tael If tael < 1 Then Selection.TypeText Text:=\"“\" tael = 1 Else Selection.TypeText Text:=\"”\" tael = 0 End If End Sub
Den indsætter de to tegn på skift - lidt mere smart ville være at den serefter om tegnet til venstre er et mellemrum - men det har jeg ilel tid til lige i dette øjeblik
Ok michaelprehn, du ser ud til at være på den helt rigtige vej til 120 point. Du har jo selv angivet løsningen. Glæder mig til du får tid til at se på det.
Her er så den lidt smartere version: Sub citat1() \' indsæt “ og ” henholdsvis før og efter et ord \' makroen knyttes til tasten \" (ALT-2) Set MineData = New DataObject Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Copy MineData.GetFromClipboard tegn = MineData.GetText(1) If tegn = \" \" Then Selection.TypeText Text:=\" “\" Else Selection.TypeText Text:=\"”\" End If
Her er en de-bugged udgave, Sub citat1() \' indsæt “ og ” henholdsvis før og efter et ord \' makroen knyttes til tasten \" (ALT-2) Set MineData = New DataObject Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Copy Selection.MoveRight Unit:=wdCharacter, Count:=1 MineData.GetFromClipboard tegn = MineData.GetText(1) If tegn = \" \" Then Selection.TypeText Text:=\"“\" Else Selection.TypeText Text:=\"”\" End If
michael> Der er jo gået en krig siden sidst, men nu kunne jeg da godt lige tænke mig at høre om makroen kan køre på din egen maskine. Jeg er ikke sikker på hvordan jeg indsætter den... 1. Du skriver at den tildeles ALT-2.. Kan man ikke tildele den til Shift+2 som er den normale citationstast. 2. Når jeg prøver at køre den så indsætter den ikke tegnet for - men teksten - \"“\". Er det fordi jeg skal indsætte eller gøre noget med \"ALT 0146/47\"
- det var langt tilbage ! men nu hiúsker jeg det hele !
1) Man kan ikke tildele en marko til en \'almindelig\' tast - derfor forslog jeg alt-2 (så har du jo stadig de normale anførselstegn også)
2) Det der bliver indsat er det der står mellem \" tegnene i makroen. tallene er kommet pga et en klippe kliste \'feature\' du skal indsætte makroen som du har og så slette \"“\" og i stedet taste [anførselstegn] så holder du [ALT] tasten ned mens du taster 0147 Det giver et krøllet anførselstegn derefter afslutter du med [anførselstegn] På samme måde indsætter du ALT-0148 i stedet for \"”\"
michael> Uha, der er gået lang tid. Har ikke engang fået afprøvet den endnu - fy skam mig. Til gengæld har jeg lagt lidt renter til pointene. Og så prøver jeg bare at få fat i dig hvis det ikke skulle køre når jeg engang kommer til det.
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.
