Byta Citerat Text Kursiv

August 4

I många ordbehandlare, kan en författare ropa material med citationstecken. Till exempel, första gången en term introduceras, kan författaren innesluta termen i citationstecken. I Word, men du kan ringa ut information med kursiv stil. Manuellt ändra citerade materialet kursiv stil kan vara mycket tidskrävande.

Följande makro, QuotesToItalics kontrollerar det aktuella stycket för citerade materialet. Om det finns någon, raderar det citat och ändrar texten mellan offerter till kursiv stil. Om citationstecken är obalanserade (det finns en öppning eller stängning citattecken med någon motsvarande stängning eller öppning citattecken), sedan citattecken ignoreras och inga ändringar görs. Makrot arbetar med antingen regelbundna citat eller smarta citat.

Sub QuotesToItalic ()
Dim Gör As Boolean
Dim Ptr As Integer
Dim Ptr1 As Integer
Dim P As String
Dim P1 As String

Om Selection.ExtendMode Då Exit Sub
Gör = Sant
Medan Redo
Selection.StartOf Enhet: = wdParagraph, Extend: = wdMove
Selection.MoveEnd Enhet: = wdParagraph
P = Selection.Text
Ptr = InStr (P, Chr (34))
Om Ptr = 0 Då Ptr = InStr (P, Chr (147))
Om Ptr> 0 Then
Selection.MoveLeft Enhet: = wdCharacter, Extend: = wdMove
Selection.MoveRight Enhet: = wdCharacter, Count: = Ptr
Selection.MoveEnd Enhet: = wdParagraph
P1 = Selection.Text
Ptr1 = InStr (P1, Chr (34))
Om Ptr1 = 0 Då
Ptr1 = InStr (P1, Chr (148))
EndChar = Chr (148)
Else
EndChar = Chr (34)
End If
Om Ptr1> 0 Then
Selection.MoveLeft Enhet: = wdCharacter, Count: = 2, _
Utöka: = wdMove
Selection.Delete Enhet: = wdCharacter
Selection.MoveRight Enhet: = wdCharacter, _
Count: = Ptr1 - 1, Extend: = wdExtend
Selection.Font.Italic = True
Selection.MoveRight Enhet: = wdCharacter, Extend: = wdMove
Selection.Delete Enhet: = wdCharacter
Else
Selection.MoveRight Enhet: = wdCharacter, Extend: = wdMove
Gör om = 0
End If
Else
Selection.MoveRight Enhet: = wdCharacter, Extend: = wdMove
Gör om = 0
End If
Wend
End Sub

WordTips är din källa för kostnadseffektiv Microsoft Word utbildning. (Microsoft Word är det mest populära ordbehandlingsprogram i världen.) Detta tips (264) gäller för Microsoft Word 97, 2000, 2002, och 2003. Du kan hitta en version av detta tips för menyfliksområdet i Word (Word 2007 och senare) här: Byte Citerat Text kursiv.