Results 1 to 3 of 3

Thread: Word Custom Toolbar

  1. #1

    Thread Starter
    Member
    Join Date
    Jul 2003
    Location
    Los Angeles, CA
    Posts
    49

    Word Custom Toolbar

    How could I go about making a custom toolbar in word that once clicked would run a specific macro? Also, is it possible to make some sort of installer that would install this button?

    Thanks in advance.

  2. #2

    Thread Starter
    Member
    Join Date
    Jul 2003
    Location
    Los Angeles, CA
    Posts
    49
    No one?

  3. #3
    Ex-Super Mod RobDog888's Avatar
    Join Date
    Apr 2001
    Location
    LA, Calif. Raiders #1 AKA:Gangsta Yoda™
    Posts
    60,709
    Sorry but I can't seem to remember how to create the Word
    AddIn .dot to attach to every instance of Word as they get
    created, but this should help to actually create the .dot file. The
    rest is up to you.

    VB Code:
    1. Option Explicit
    2. 'CREATES A NEW TOOLBAR AND ADDS THE OPEN BUTTON TO IT
    3. 'AND DOCKS IT LEFT AND LAST TB ON TOOLBAR ROWS
    4. Private Sub Document_Open()
    5.     Dim oTB As CommandBar
    6.     Set oTB = Application.CommandBars.Add(Name:="MyToolBar").Visible = True
    7.     oTB.Controls.Add Type:=msoControlButton, ID:=23, Before:=1, Temporary:=True
    8.     oTB.Left = 0
    9.     oTB.Position = msoBarTop
    10.     oTB.RowIndex = msoBarRowLast
    11.     Stop
    12.     'UNCOMMENT TO DELETE TOOLBAR
    13.     'Application.CommandBars("MyToolBar").Delete
    14. End Sub
    VB/Office Guru™ (AKA: Gangsta Yoda®)
    I dont answer coding questions via PM. Please post a thread in the appropriate forum.

    Microsoft MVP 2006-2011
    Office Development FAQ (C#, VB.NET, VB 6, VBA)
    Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
    If a post has helped you then Please Rate it!
    Reps & Rating PostsVS.NET on Vista Multiple .NET Framework Versions Office Primary Interop AssembliesVB/Office Guru™ Word SpellChecker™.NETVB/Office Guru™ Word SpellChecker™ VB6VB.NET Attributes Ex.Outlook Global Address ListAPI Viewer utility.NET API Viewer Utility
    System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6

Posting Permissions

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



Click Here to Expand Forum to Full Width