使用VBA批量对齐Word中表格小数点数据

lf2250891

求助各位，目前想使用VBA对齐Word中表格里带有小数点的数字和横杠（" - "）。但搜索了很久没有见到案例，想问问有没有大神有经验。


最终目的是想对齐word文件中所有在表格里的数字(最好不调整列宽)，均以小数点对齐，如果单元格内容是横杠则横杠与小数点对齐，如果带有括号 也是以括号中的小数点对齐。如果是像下面有九(6)这种就直接忽略这一列，一般对齐的数字都是位于表格的第2列后，少数在第3列后所以基本可以跳过每个表格的前两列。附件里有一版VBA 在单一表格的时候可以实现对齐，多表格时就不起作用，并且这版VBA还会在有合并单元格的时候报错，因为一般合并单元格很少出现数字，所以如果涉及合并单元格可以直接跳过这一行的数据 从下一行开始对齐，同样如果这个表格只有一行，也可以直接跳过不做操作。已上传附件供参考，谢谢各位！  

小花鹿

直接小数点后三个字符，不够的用空格补齐                                                                             

lf2250891

小花鹿 发表于 2024-2-16 09:34
直接小数点后三个字符，不够的用空格补齐                                                               ...

好像不太行 我在表格里末尾用空格不会影响小数点位置，而且空格好像略微有点短 还是对不齐

小花鹿

lf2250891 发表于 2024-2-16 15:41
好像不太行 我在表格里末尾用空格不会影响小数点位置，而且空格好像略微有点短 还是对不齐

真正对齐是不可能的，因为每个字符的宽度是不一样的，如1和2宽度不一样。