Word VBA移植到Excel VBA问题

lf2250891 · 发表于 2024-2-25 00:20

本帖最后由 lf2250891 于 2024-2-25 12:56 编辑

请教一下，我在excel中有主程序和Function，程序主要目的是调整word中表格各单元格右缩进，而Function作用是判断word表格数字的正负，然后返回指定缩进长度，括号里的数字代表负数。我Debug.Print读取单元格每个值以及对应的缩进量，返回的值都很正常，但当主程序把缩进应用到word中后，看起来像给所有单元格指定了同一个缩进量。所以想知道问题到底在哪里。这个程序之前是写在Word VBA中，运行的很好，移植到Excel中就有这样的问题。还请各位能帮忙看一看。已上传附件供参考。

test.zip (59.21 KB, 下载次数: 12)

sj15627581616 · 发表于 2024-2-25 08:15

你描述的是看起来，两者之间明显的差别是什么？不太懂Word,没有明显差别不好找原因

lf2250891 · 发表于 2024-2-25 10:29

sj15627581616 发表于 2024-2-25 08:15
你描述的是看起来，两者之间明显的差别是什么？不太懂Word,没有明显差别不好找原因

就是程序会根据表格文字大小给他们设置又缩进，目的其实为了小数点对齐，所以循环遍历每个单元格调整缩进不同的数字其实在表格中不会都是最后一个字符对齐。但现在程序运行完每个依然是最后一个对齐。如果我把这个vba放入word中最后结果就很完美

sj15627581616 · 发表于 2024-2-25 11:29

我尝试在word里面运行相关功能代码，我没看错哪里不一样，你说有差异的话，最好把对比图拿出来，才能看出具体哪里不一样，从而去找具体问题

lf2250891 · 发表于 2024-2-25 11:55

sj15627581616 发表于 2024-2-25 11:29
我尝试在word里面运行相关功能代码，我没看错哪里不一样，你说有差异的话，最好把对比图拿出来，才能看出具 ...

对不起！只是我觉得我不该提这么蠢的帖子，我自己放到word中确实运行结果也有问题，但是我找到问题原因了。

For Each Cell In .Columns(i).Cells
Cell.Range.ParagraphFormat.RightIndent = CentimetersToPoints(Indent(Cell))
Next

复制代码

原来我一直会在for each下使用with cell，但是改了一下代码去掉了with没有在执行缩进的程序前面指定cell 写成Cell.Range.ParagraphFormat.RightIndent 而是还是使用了with下直接.Range.ParagraphFormat.RightIndent这个语句。所以最后的操作会作用于整个表。但还是很感谢耐心解答

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

[已解决] Word VBA移植到Excel VBA问题