Ændring af skrifttype

Ja, jeg har fundet ud af det.

Jeg poster lige noget kode du skal bruge:

Sub ConvertSymbol()
  Dim dlg As Object
  Dim NoFC As Integer
  Dim SCP As Integer
  Dim StartRange As Range
  Dim UniCodeNum As Integer
  ' Temporarily disable Screen Updating
  Application.ScreenUpdating = False
  ' Temporarily disable Smart Cut & Paste
  If Options.SmartCutPaste = True Then
      SCP = 1
      Options.SmartCutPaste = False
  End If
  ' Temporarily display field text
  If ActiveWindow.View.ShowFieldCodes = False Then
      NoFC = 1
      ActiveWindow.View.ShowFieldCodes = True
  End If
  ' Set StartRange variable to current selection's range
  Set StartRange = Selection.Range
  Selection.Collapse
  ' Select first, then each next character in user-defined selection
  Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
  While Selection.End <= StartRange.End And _
  ActiveDocument.Content.End > Selection.End
    ' If the character is a space, then move to next character
    Set dlg = Dialogs(wdDialogInsertSymbol)
    UniCodeNum = dlg.charnum
    If UniCodeNum = 32 Then
      Selection.Collapse
      Selection.MoveRight unit:=wdCharacter, Extend:=wdMove
      Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
    End If
    ' Loop, converting symbol Unicode characters to ASCII characters
    Set dlg = Dialogs(wdDialogInsertSymbol)
    UniCodeNum = dlg.charnum
    While UniCodeNum < 0 And Selection.End <= StartRange.End _
    And ActiveDocument.Content.End > Selection.End
        Selection.Delete
        Selection.InsertAfter (ChrW(UniCodeNum + 4096))
        Selection.Collapse (wdCollapseEnd)
        Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
        Set dlg = Dialogs(wdDialogInsertSymbol)
        UniCodeNum = dlg.charnum
    Wend
    Selection.Collapse (wdCollapseEnd)
    Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
  Wend
  ' Reset Word document settings
  If SCP = 1 Then Options.SmartCutPaste = True
  If NoFC = 1 Then ActiveWindow.View.ShowFieldCodes = False
      Selection.Collapse (wdCollapseStart)
      Selection.MoveLeft unit:=wdCharacter
      Application.ScreenUpdating = True
End Sub

OK, Gør sådan:

1: Åbn Word

2: Vælg Funktioner > Makro > Makroer

3: Du skulle nu få et vindue med makroer. Skriv et navn, "test" i øverste linie og klik på "Opret"

4: Nu skulle du få et kodevindue frem hvor du sletter linierne fra sub test() til end sub, begge inklusive, og sætter koden herover ind i stedet.

5: Klik på Gemknappen

Nu har du oprettet en makro der hedder ConvertSymbol

Marker al teksten op, dvs firkanterne, vælg Funktioner > Makro > Makroer, marker ConvertSymbol og klik afspil

Ida du er en skat. Send et svar

Fik du det til at virke? Super! Det kom fra

http://support.microsoft.com/default.aspx?scid=kb;en-us;160022

Uden ansvar og så videre, men det er da rart at der er andre der har de samme problemer, og at der kan gøres noget

Tak for Point