![]() |
SUBSIM: The Web's #1 resource for all submarine & naval simulations since 1997 |
|
|
Thread Tools | Display Modes |
![]() |
#31 |
The Old Man
![]() |
![]()
Holy mama.... I bet you didn't do that by hand. Do you by any chance still have the code for entering the data into a table? Would be veeery useful
![]() ![]() Private Sub btnRenumber_Click() Dim iItem As Integer Dim myRange As Range If txtPage.Value = vbNullString Then MsgBox "You must enter the Menu Page" ElseIf Application.Documents.Count < 1 Then MsgBox "No document Opened" Else iItem = 1 Set myRange = ActiveDocument.Range(Start:=0, End:=ActiveDocument.Content.End) myRange.Select With Selection.Find .Forward = True .Wrap = wdFindStop .Text = "[" + txtPage.Value + " I" Do While .Execute Selection.Extend Selection.Extend Selection.Extend Selection.TypeText Text:="[" + UCase(txtPage.Value) + " I" + CStr(iItem) + "]" iItem = iItem + 1 Set myRange = ActiveDocument.Range(Start:=Selection.End, End:=ActiveDocument.Content.End) myRange.Select Loop End With End If End Sub Come to think of it, I don't understand why there was never a tool to visually mod the interface. VB has plugins to view DDS and TGA, a piece of code could make a table with all the items and parameters in the menu.ini file, then show them. Appying the inverse formulas might allow you to drag/move items. There are maximum 200 items on a page so that shouldn't crash the pc. The Display line might be an issue, but... ![]() ![]() |
![]() |
![]() |
|
|