这里我们以VBA1.7中文版为例。
首先打开模拟器，载入GBA游戏，因为如果没运行游戏的话，金手指是不能使用的。
之后点击“修改”，在弹出的下拉菜单中选择“金手指列表”
之后会弹出一个小窗口，在窗口下方有8个选项。
看到“添加”这里，分别有“代码”、“Cheat..”、“金手指”和“修改”4个选项（如图）。这里便是添加金手指的地方，下面我们来一个一个学习他们的使用方法。
我们先点击第一个按钮：“代码”。
便会弹出一个小窗口
在“描述”一栏中，是输入你对这个金手指的说明，例如你可以写上“大师球金手指”或“无限金钱金手指”等介绍，这栏是选填的，你可以输入说明，也可以不输入。
“代码”一栏中，是输入金手指的。在“代码"这个按钮中，只能输入“xxxxxxxx:xxxx”或“xxxxxxxx:xx”这种格式的金手指。注意，冒号左边必须是8个数字或字母，冒号右边必须是4个数字/字母或2个数字/字母（你可以看看图上面两个金手指的格式是不是这样），金手指后不能有空格，否则都不能成功输入金手指。
点击“确定”就可以把金手指输入到金手指列表里面了。
现在我们看第二个按钮“Cheat..”。
点击它后，会弹出一个小窗口
在“地址值”栏中输入代码的格式必须是“xxxxxxxx”（8个数字/字母）。
在“数值”一栏中输入代码的格式是“xxxx”、"xx"。
“描述”一栏可写可不写。
细心的朋友肯定发现了，在“地址值”中输入的代码，其实就是上面说的格式“xxxxxxxx:xxxx”，冒号左边的代码，而在“数值”栏中输入的，正好是冒号右边的代码。
之后在“大小”栏中选择“16－位”，在“数字格式”中选择“十六进制”，点击“确定”就可以了
我们再看第三个按钮“金手指”。
点击它后，就会弹出一个小窗口，样子和第一个按钮“代码”的差不多。
“描述”同上，可写可不写。
“代码”一栏中，输入金手指的格式必须是“xxxxxxxxxxxxxxxx”，也就是16个数字/字母（如图，图中的金手指是宝石版全国图鉴的金手指）。
点击“确定”就可以了。
接下来我们来看最后一个按钮“修改”。
点击它后，便会弹出这个窗口
“描述”可写可不写。
在“代码”栏中输入金手指的格式是“xxxxxxxx xxxxxxxx”，也就是8个数字/字母＋空格＋8个数字/字母。注意别漏了中间的空格。
输入完毕后点击“确定”即可。
说到这里，如何输入金手指就已经说完了。如果大家还是不知道哪种金手指要往哪输入的话，就请把要输入的金手指往每个按钮都试一下，一定有一个可以输入的。因为有很多金手指不可能每一条都告诉大家该往哪输入，主要是让大家懂得一个方法。
现在我们已经学会如何输入金手指了，那么要怎样消除金手指呢？
有两个方法可以删除金手指
1.选中要删除的金手指，点击金手指列表下方的“移除”按钮，即可删除选中的金手指；如果没有选中金手指，点击后便会删除金手指列表内的所有金手指。
2.选中要删除的金手指，点击金手指列表下方的“开启/关闭”按钮，或者去掉金手指代码前面的勾勾，即可停止金手指的作用，起到删除金手指的目的。
之后点击金手指列表的“确定”按钮，即可完成金手指的输入，回到游戏。
另外有些朋友会问，为何在使用遇敌金手指，并且删掉金手指后，在游戏中仍能遇到之前修改的PM，这是怎么回事呢？其实遇敌金手指并没有完全删除，只要重新打开模拟器载入游戏，就可以恢复了。
接下来我们来看看VBA金手指的其他功能。
点击“修改”，在弹出的下拉菜单中，我们会看到有“搜索金手指”的这么一个选项。
点击它，会弹出一个窗口。这个功能是专门搜索金手指用的，对于新人来说比较复杂，在这里就不再多作说明，有兴趣的朋友可以自己研究一下。
①将格式应用于选定内容
下列示例使用Selection属性将字符和段落格式应用于选定文本。使用Font属性获得字体格式的属性和方法，使用ParagraphFormat属性获得段落格式的属性和方法。
Sub
FormatSelection()
With
Selection.Font
.Name
=
"Times
New
Roman"
.Size
=
14
.AllCaps
=
True
End
With
With
Selection.ParagraphFormat
.LeftIndent
=
InchesToPoints(0.5)
.Space1
End
With
End
Sub
②将格式应用于某一区域
下列示例定义了一个Range对象，它引用了活动文档的前三个段落。通过应用Font
和ParagraphFormat对象的属性来设置
Range对象的格式。
Sub
FormatRange()
Dim
rngFormat
As
Range
Set
rngFormat
=
ActiveDocument.Range(
_
Start:=ActiveDocument.Paragraphs(1).Range.Start,
_
End:=ActiveDocument.Paragraphs(3).Range.End)
With
rngFormat
.Font.Name
=
"Arial"
.ParagraphFormat.Alignment
=
wdAlignParagraphJustify
End
With
End
Sub
③插入文字并应用字符和段落格式
下列示例在当前文档的上部添加单词
Title。第一段居中对齐，并在该段落之后添加半英寸的间距。将单词
Title
的格式设为
24
磅
Arial
字体。
Sub
InsertFormatText()
Dim
rngFormat
As
Range
Set
rngFormat
=
ActiveDocument.Range(Start:=0,
End:=0)
With
rngFormat
.InsertAfter
Text:="Title"
.InsertParagraphAfter
With
.Font
.Name
=
"Tahoma"
.Size
=
24
.Bold
=
True
End
With
End
With
With
ActiveDocument.Paragraphs(1)
.Alignment
=
wdAlignParagraphCenter
.SpaceAfter
=
InchesToPoints(0.5)
End
With
End
Sub
④在
12
磅和无之间切换段前间距
下列示例切换选定内容中第一段的段前间距。宏将获取当前段前间距的值，如果该值为
12
磅，则删除段前间距格式(将SpaceBefore属性设为零)。如果段前间距的值为除
12
外的其它数值，则将
SpaceBefore属性设为
12
磅。
Sub
ToggleParagraphSpace()
With
Selection.Paragraphs(1)
If
.SpaceBefore
<>
0
Then
.SpaceBefore
=
0
Else
.SpaceBefore
=
6
End
If
End
With
End
Sub
⑤切换加粗格式
下列示例切换选定文本的加粗格式。
Sub
ToggleBold()
Selection.Font.Bold
=
wdToggle
End
Sub
⑥将左边距增加
0.5
英寸
下列示例将左边距和右边距增加
0.5
英寸。PageSetup对象包含文档的所有的页面设置属性(左边距、下边距、纸张大小等)。LeftMargin属性用于返回和设置左边距设置。RightMargin属性用于返回和设置右边距设置。
Sub
FormatMargins()
With
ActiveDocument.PageSetup
.LeftMargin
=
.LeftMargin
+
InchesToPoints(0.5)
.RightMargin
=
.RightMargin
+
InchesToPoints(0.5)
End
With
End
Sub
掌机GBA的模拟器，VisualBoyAdvance，简称VBA。vba格式就是指游戏ROM是这个格式的，模拟器不是所有格式都能识别的，VBA模拟器和vba格式，顾名思义就是符合这个模拟器的格式
Sub 宏1()
Dim str As String, i As Integer, j As Integer
j = 0
str = Application.ActiveDocument.Paragraphs(1).Range.Text
For i = 1 To Len(str)
If Mid(str, i, 1) = " " Then
Else
Exit For
End If
j = j + 1
Next
str = Right(str, Len(str) - j)
Application.ActiveDocument.Paragraphs(1).Range.Text = str
Application.ActiveDocument.Paragraphs(1).Range.Select
Selection.Font.Name = "黑体"
Selection.Font.Size = 18
Selection.Font.Bold = wdToggle
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub
