MACROS

Basics of Bridge HTML: index
Diagram	Characters
Bidding	Macros
Images
Bridge-HTML for Dummies	Download
Bridge-HTML by font

[For Normal, NewMacros]

Sub Spade()

'

' Spade Macro

' Macro opgenomen op 19-05-97 door Dyk

'

Selection.Font.Name = "Symbol"

Selection.TypeText Text:=ChrW(61610)

Selection.Font.Name = "Times New Roman"

End Sub

Sub Heart()

'

' Heart Macro

' Macro opgenomen op 19-05-97 door Dyk

'

Selection.Font.Name = "Symbol"

Selection.TypeText Text:=ChrW(61609)

Selection.Font.Name = "Times New Roman"

End Sub

Sub Diamond()

'

' Diamond Macro

' Macro opgenomen op 19-05-97 door Dyk

'

Selection.Font.Name = "Symbol"

Selection.TypeText Text:=ChrW(61608)

Selection.Font.Name = "Times New Roman"

End Sub

Sub Club()

'

' Club Macro

' Macro opgenomen op 19-05-97 door Dyk

'

Selection.Font.Name = "Symbol"

Selection.TypeText Text:=ChrW(61607)

Selection.Font.Name = "Times New Roman"

End Sub
 
 

'

' sge Macro

' Macro opgenomen op 22-05-97 door Dyk

'

Selection.InlineShapes.AddPicture FileName:="s.gif", _

LinkToFile:=True, SaveWithDocument:=False

End Sub

Sub hge()

'

' hge Macro

' Macro opgenomen op 22-05-97 door Dyk

'

Selection.InlineShapes.AddPicture FileName:="h.gif", _

LinkToFile:=True, SaveWithDocument:=False

End Sub

Sub dge()

'

' dge Macro

' Macro opgenomen op 22-05-97 door Dyk

'

Selection.InlineShapes.AddPicture FileName:="d.gif", _

LinkToFile:=True, SaveWithDocument:=False

End Sub

Sub cge()

'

' cge Macro

' Macro opgenomen op 22-05-97 door Dyk

'

Selection.InlineShapes.AddPicture FileName:="c.gif", _

LinkToFile:=True, SaveWithDocument:=False

End Sub

Sub webbridge()

'

' webbridge Macro

' Macro opgenomen op 14-06-97 door Dyk

'

Documents.Add Template:= _

"C:\Program Files\Microsoft Office\Office\HTML.DOT", NewTemplate:=False

Application.Run MacroName:="HTML.HTML1.FileSave"

End Sub
 

Download area

I am told the dot-file works (take care of putting the card gifs in the same directory where you first(!) have to save your (blank) HTML-form).
I don't know Microsoft allows me to put the file downloadable on my homepage, I have asked.
Don't forget to show me your results.
Succes!

Jan David
 

You can save the copy of my Normal.dot (170k, zipped), it contains all Macros (Word97, at least). 

If you  bother to use my macros I would be pleased if you would let me know. You should mention my efforts.You might call it "URL-software"; if you publish, send me the URL.

Home

Britsj