WORD如何转换为foxtable代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → WORD如何转换为foxtable代码

共有1903人关注过本帖树形打印复制链接主题：WORD如何转换为foxtable代码

benwong2013

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00

WORD如何转换为foxtable代码 发帖心情

Post By：2017/3/19 11:12:00 [只看该作者]

请问以下的VBA代码如何修改成为Foxtable的代码

Sub 宏2()

' 宏2 宏

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "CTTREPORT"

.Replacement.Text = "1234566"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/3/20 8:54:00 [只看该作者]

Dim app As New MSWord.Application
Dim doc = app.Documents.Open("f:\1-a.docx")

app.Selection.Find.ClearFormatting
app.Selection.Find.Replacement.ClearFormatting
With app.Selection.Find
    .Text = "CTTREPORT"
    .Replacement.Text = "1234566"
    .Forward = True
    .Wrap = MSWord.WdFindWrap.wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
app.Selection.Find.Execute( MSWord.WdReplace.wdReplaceAll)
app.Visible = True

benwong2013

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：485 积分：4075 威望：0 精华：0 注册：2015/12/16 8:22:00

Post By：2017/3/20 13:01:00 [只看该作者]

.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter '设置位置在页脚
        Str1 = "数据007"
        Str2 = Sheets("数据2").Cells(2, 1)
        .Selection.HomeKey Unit:=wdStory '光标置于文件首
        If .Selection.Find.Execute(Str1) Then '查找到指定字符串
           .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
           .Selection.Text = Str2 '替换字符串
        End If