Results 1 to 3 of 3
  1. #1
    Star Lounger
    Join Date
    Mar 2003
    Location
    Toronto, Ontario, Canada
    Posts
    94
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Putting '' around text (Word XP)

    I am constantly having to put quotations ";" around text that I type and I find it to be a bit of a pain in the butt. Was wondering if there was a quicker way than putting the cursor before the text - and then after the text, etc. Get's a little tedious after awhile, especially since it is often done when editing text.

    I was hoping that there might be some little known short cut - for example -- where I highlight the text -- hit a key or command to make that happen. If anyone knows of anything, please let me know.

    PS: I'm terrible with VB script so I haven't yet considered anything there

  2. #2
    5 Star Lounger
    Join Date
    Dec 2000
    Location
    Calgary, Alberta, Canada
    Posts
    818
    Thanks
    6
    Thanked 1 Time in 1 Post

    Re: Putting '' around text (Word XP)

    Questions - to clarify...why do you need "."? Could you use an alternative font such as italics? If you could use an alternative, such as italics, then you could define a style to be imposed on the words that need to be highlighted. <img src=/S/compute.gif border=0 alt=compute width=40 height=20>

    Ron M <img src=/S/smile.gif border=0 alt=smile width=15 height=15> <img src=/S/smile.gif border=0 alt=smile width=15 height=15> <img src=/S/smile.gif border=0 alt=smile width=15 height=15>

  3. #3
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Los Angeles Area, California, USA
    Posts
    7,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Putting '' around text (Word XP)

    Hi Mickey:
    I got this from WordTips. <pre>Sub AddQuotes()
    '
    ' AddQuotes Macro
    ' Adds quotes around selected text
    ' Macro created 6/19/00 by Allen Wyatt
    ' copied from WordTips Gold 6/19/00
    '
    Dim BQuotes$
    Dim Equotes$
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    If Options.AutoFormatAsYouTypeReplaceQuotes Then
    BQuotes$ = Chr$(147)
    Equotes$ = Chr$(148)
    Else
    BQuotes$ = Chr$(34)
    Equotes$ = Chr$(34)
    End If
    Selection.InsertBefore BQuotes$
    Selection.InsertAfter Equotes$
    End Sub</pre>


    You could assign it to a shortcut key. Also, for what it's worth, if you're doing a lot of editing of punctuation, The Editorium had a macro that made all punctuation big & red, for easy editing. When you were through, you deleted the style named "Standard" & everything went back to normal.<pre>Sub BigPunctuation()
    '
    ' BigPunctuation Macro
    ' Macro recorded 8/11/02 by Phil Rabichow
    ' Creates Standout style &
    ' replaces punctuation with large red bold font
    '
    On Error Resume Next
    ActiveDocument.Styles.Add Name:="Standout", Type:=wdStyleTypeCharacter
    ActiveDocument.Styles("Standout").BaseStyle = "Default Paragraph Font"
    With ActiveDocument.Styles("Standout").Font
    .Name = "Times New Roman"
    .Size = 18
    .Bold = True
    .Color = wdColorRed
    End With
    With ActiveDocument.Styles("Standout").Font
    With .Shading
    .Texture = wdTextureNone
    .ForegroundPatternColor = wdColorAutomatic
    .BackgroundPatternColor = wdColorAutomatic
    End With
    .Borders(1).LineStyle = wdLineStyleNone
    .Borders.Shadow = False
    End With
    ' Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("Standout")
    With Selection.Find
    .Text = "[.,:;""" & ChrW(8220) & ChrW(8221) & "'?!]"
    .Replacement.Text = "^&"
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End Sub</pre>

    Hope this helps,

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •