This article gives you an introduction to VBA in FrontPage.
My First VBA Macro
My first task that I wanted to be able to do was to change the title at the top of my menu on every page. Of course we have our critical files backed up before running experimental code on them. Still the best procedure is to write code which operates on one file, and fully debug it before using it on the full set.
Here is the subroutine I wrote to make the change to the active file.
Sub ChangeMenuTitle() Dim fpDoc As FPHTMLDocument Set fpDoc = ActiveDocument Dim myTable As FPHTMLTable Set myTable = fpDoc.all.tags("table")(0) myTable.Id = "menu" Dim strRow As String Dim myRow As FPHTMLTableRow Set myRow = myTable.rows(0) Dim myCell As FPHTMLTableCell Set myCell = myRow.cells(0) strRow = myCell.innerText If strRow = "ATL & COM Notebook" Then myCell.all.tags("i")(0).innerText = "Components Notebook" strRow = myCell.innerText End If End Sub
This is working code, not optimized and not very reusable, but useful for learning purposes, and getting the job done. First I obtain the ActiveDocument object, then I obtain the first table. I know that the table I want to work with is the first on the page so I use fpDoc.all.tags("table")(0) to obtain the first table on my page. Since I want to write smarter code in the future, I set the Id for this table to "menu". Then I go through a two step process, to obtain the first row in the table, then the first cell in the row. Once I have this cell I check to see that the contents are "ATL & COM Notebook", to make sure I am changing the right text. Now I change the text inside the "<I> tags to "Components Notebook".
Now that we have code which successfully makes the change to one page, lets write the code to apply this change to all the pages in the site.
Comments