求完善代码：解析调序，有瑕疵

weiyingde · 发表于 2024-8-29 18:06

lss001 发表于 2024-8-29 13:51
看了下链接，
链接中文本并未有带控件或者表之类。

代码很好，很巧妙，很精炼，谢谢你。
只是第一题出了点问题，不知为何。
请测试。

weiyingde · 发表于 2024-8-29 18:09

lss001 发表于 2024-8-29 13:51
看了下链接，
链接中文本并未有带控件或者表之类。

是的，你的wod及VBA功力很强，研究下，看看能不能仿照其思路，写出代码。

lss001 · 发表于 2024-8-29 21:24

本帖最后由 lss001 于 2024-8-30 23:45 编辑

参考下下楼更新附件！

weiyingde · 发表于 2024-8-30 06:43

lss001 发表于 2024-8-29 21:24
参考附件，两个文件使用的是相同代码？

我只是讲的代码移植到同版的另一个文档上，就出了这问题。
到底是什么原因。

weiyingde · 发表于 2024-8-30 07:32

本帖最后由 weiyingde 于 2024-8-30 07:34 编辑

发现代码有两处改动：
1、For Each wt In Ydoc.Words
      If wt.Text = "解析" Then t = wt.End: Exit For
Next
'******************************
2、由原来的 r = wt.End - Len(ph.Range.Text) + (Len(osr) - Len(str))
   改为    r = t - mt.firstIndex - 2 '解析占位2*****
发现这个思路是可行的：
因为：这样锚定“解析”段落的位置，避免了从全文定位而遭受控件的影响，既高效又精准，是个不错的策略，解决了眼前的问题，大侠高明！！

只是有个问题：
为什么其他的段落没问题，而问题出现在第一段上，而且，你第一次提供代码的文档第一段也没问题？
是不是我提供的有问题的那个文档的第一段的哪处文本影响了精准定位？希望继续得到指教……
再次谢谢你。

lss001 · 发表于 2024-8-30 09:12

本帖最后由 lss001 于 2024-8-30 12:07 编辑

见上楼附件

weiyingde · 发表于 2024-8-30 11:12

已知晓，谢谢你的竭力帮助。

lss001 · 发表于 2024-8-30 23:59

weiyingde 发表于 2024-8-30 11:12
已知晓，谢谢你的竭力帮助。

不采用替换方法.rar (35.48 KB, 下载次数: 5)

不采用替换方法
正则使用的文本从"解析"位置开始提取
定位也从"解析"位置开始
实现正则定位与文本定位同步
最重要的是完全避免了控件与表格对定位的影响
也就是在"解析"前面可以任意添加删除表格控件

weiyingde · 发表于 2024-9-2 17:24

lss001 发表于 2024-8-30 23:59
不采用替换方法
正则使用的文本从"解析"位置开始提取
定位也从"解析"位置开始

晚来的发现，费心了，吃苦了。

weiyingde · 发表于 2024-9-2 17:27

我最终采用倒序法成功地避免了锚定不准的坑。

		自动登录	找回密码
密码			免费注册

[已解决] 求完善代码：解析调序，有瑕疵

评分

评分