MVB macros

scienceguyz · 2012-02-27 11:24:47

Well, I have started with word/excel macros. here are my macros so far:

Here is one that adds parenthesis to the end of a selection:

Sub Parenth()
'
' Parenth Macro
'
'
    Selection.Copy
    Selection.TypeText Text:="()"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

This one types in the html and body tags, good for working in html in word. (not that I'd use word for html)

Sub HTMLBODY()
'
' HTMLBODY Macro
'
'
    Selection.TypeText Text:="<>"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="html"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.TypeText Text:="<>"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="body"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:="<>"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="/body"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.TypeText Text:="<>"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="/html"
End Sub

And to clear:

Sub clear()
'
' clear Macro
'
'
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

Glowbow! Do your tektek.org/color thing, put it into word, activate this macro, and you have a rainbow with the glow tag!

Sub glowbow()
'
' glowbow Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "color"
        .Replacement.Text = "glow"
        .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

hello I am testing the glow tag rainbow of awesomeness
More to come!

Last edited by scienceguyz (2012-02-28 20:43:43)

Coolio · 2012-02-27 16:10:27

Oh. I used to do Powerpoint popup macros, but they were hella annoying.

Ratburntro44 · 2012-02-27 16:29:35

I prefer c style macros where you just say something and what to replace it with (there are function like macros, but those still are way easier than these).

scienceguyz · 2012-02-28 20:48:18

Added glowbow!
Glow tag rainbow! geddit?

Different55 · 2012-02-29 15:13:10

If you can make that generate the glowbow, too, you will be awesome.

scienceguyz · 2012-02-29 17:50:47

I'll try. *looks at source code for tektek.org/color* no. sorry.

Different55 · 2012-02-29 22:27:40

Meh. Imma try to turn that javascript into php.

scienceguyz · 2012-03-01 10:33:55

Different55 wrote:

Have you all forgotten the awesomeness of the glow tag?

Did you get a macro/script to do that?
EDIT: I just realized i had 2 fail points? what was the second one for?

Last edited by scienceguyz (2012-03-01 10:34:53)

Different55 · 2012-03-01 16:40:12

IDK about the points.

I used tektek and notepad.

scienceguyz · 2012-03-01 17:45:51

so you manually took the colors and turned them into glows?

Different55 · 2012-03-02 16:03:39

Notepad has a replace function.

scienceguyz · 2012-03-02 19:57:22

I noticed that today when i had to replace PANIC!!!! with something else.

Announcement

Advertisement

#1 2012-02-27 11:24:47

MVB macros

#2 2012-02-27 16:10:27

Re: MVB macros

#3 2012-02-27 16:29:35

Re: MVB macros

#4 2012-02-28 20:48:18

Re: MVB macros

#5 2012-02-29 15:13:10

Re: MVB macros

#6 2012-02-29 17:50:47

Re: MVB macros

#7 2012-02-29 22:27:40

Re: MVB macros

#8 2012-03-01 10:33:55

Re: MVB macros

Have you all forgotten the awesomeness of the glow tag?

#9 2012-03-01 16:40:12

Re: MVB macros

#10 2012-03-01 17:45:51

Re: MVB macros

#11 2012-03-02 16:03:39

Re: MVB macros

#12 2012-03-02 19:57:22

Re: MVB macros

Board footer