高分相赠！！ 怎么控制WORD发传真！！(100分)

高分相赠！！ 怎么控制WORD发传真！！
我在WORD里录了宏，可是看不到代码。谁有解决方法，
有源代码更好，不胜感谢！！

宏定义在word的basic编译器下能找到。
看看vba for application帮助里是否有.

www.chainall.net 产品 AutoFax 有Word插件可以直接发送传真。

>>我在WORD里录了宏，可是看不到代码。

如果你写了,就一定能看到!

工具-->宏--> visual basic 编缉器

//建议使用Word的传真向导
//DocPath：文档位置，WizPath：传真向导所在位置（可以拷贝Word '传真向导.wiz' 到你指定的位置）
uses ComObj;
procedure FaxDoc(const DocPath, WizPath: string);
const
wdAlertsNone = $00000000;
var
WordApp: OleVariant;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.DisplayAlerts := wdAlertsNone;
WordApp.Documents.Open(DocPath);
WordApp.ActiveWindow.View.TableGridlines := not WordApp.ActiveWindow.View.TableGridlines;
WordApp.Documents.Add(WizPath, False, 0);
//WordApp.Visible := True; //是否显示文档
WordApp := Unassigned;
end;

谢谢大家，我上个月辞职了，所以问题解不解决不是很重要了（决不是因为这个问题辞职），但还是要谢谢大家！