请问下面这段代码怎么转换成x3的东西？

zhangliangxi

{Function   ReplaceMemo(strfind,   strRplc:   String;   vDocApp:   Variant):   Boolean;
Var
    i:   integer;
Begin
    Try
        Result   :=   false;
        vDocApp.Options.ReplaceSelection   :=   True;
        vDocApp.Selection.Find.ClearFormatting;
        vDocApp.Selection.Find.Text   :=   strfind;
        vDocApp.Selection.Find.Replacement.Text   :=   ' ';
        vDocApp.Selection.Find.Forward   :=   True;
        vDocApp.Selection.Find.Wrap   :=   wdFindContinue;
        vDocApp.Selection.Find.Format   :=   false;
        vDocApp.Selection.Find.MatchCase   :=   false;
        vDocApp.Selection.Find.MatchWholeWord   :=   false;
        vDocApp.Selection.Find.MatchByte   :=   True;
        vDocApp.Selection.Find.MatchWildcards   :=   false;
        vDocApp.Selection.Find.MatchSoundsLike   :=   false;
        vDocApp.Selection.Find.MatchAllWordForms   :=   false;
        If   vDocApp.Selection.Find.Execute   Then
            If   strRplc   <>   ' '   Then
                vDocApp.Selection.TypeText(strRplc)
            Else
                vDocApp.Selection.TypeText( '   ');
        vDocApp.Selection.homekey(Unit   :=   wdStory);
        Result   :=   True;
    Except
        Result   :=   false;
    End;
End; }

xtascf

自己想去

shangxy

vDocApp是什么？word么？如果是那就想办法把代码用vba翻译一下；

zhangliangxi

怎么翻议呀？

shangxy

你1楼的代码是干什么用的？

shangxy

用word录制宏，然后在平台中调用VBA代码，论坛中有很多关于vba相关帖子可以看一下。

zhangliangxi

Selection.GoTo What:=wdGoToBookmark, Name:="bk_jj"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
那这个怎么来调用呢？

shangxy

http://bbs.justep.com/forum.php?mod=viewthread&tid=27065
参考链接中提供的调用vba的方法