求助：同样的代码，为何不起作用？

bylandi · 发表于 2025-1-5 21:52

本帖最后由 bylandi 于 2025-1-6 08:34 编辑

个人把“首行缩进”及“取消首行缩进”代码拼合在一起，是可以轮流执行的。
可是，为何图片、表格宽度设置代码却不能轮流执行？

录制_2025_01_05_21_39_48_912.gif

Sub 段落—首行缩进()
' 首行缩进/取消缩进（Alt+S）
Dim para As Paragraph
For Each para In Selection.Paragraphs
If para.Format.CharacterUnitFirstLineIndent = 0 Then
para.Format.CharacterUnitFirstLineIndent = 2
Else
para.Format.CharacterUnitFirstLineIndent = 0
para.Format.FirstLineIndent = CentimetersToPoints(0)
End If
Next para
End Sub

复制代码

以上代码可以执行，可是，以下2个，却不行。

Sub 图片—设置宽度()
'设置图片宽度/高度（Alt+Q）
Dim iShape As InlineShape
For Each iShape In Selection.InlineShapes
If iShape.Width <> CentimetersToPoints(15.5) Then
iShape.Width = CentimetersToPoints(15.5) '宽度（CM）
Else
iShape.Height = CentimetersToPoints(15.5) '高度（CM）
End If
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 设置水平居中
Next iShape
End Sub

复制代码

Sub 表格—设置表格宽度()
'
' 表格宽度15CM/100%（Alt+T）
'
Dim WinTable As Table, i As Long
If Selection.Information(wdWithInTable) = True Then i = 1
For Each WinTable In ActiveDocument.Tables
If i = 1 Then Set WinTable = Selection.Tables(1)
With WinTable
if .PreferredWidth <> CentimetersToPoints(15) then
.PreferredWidth = CentimetersToPoints(15)
Else
.AutoFitBehavior (wdAutoFitWindow)
End if
End With
If i = 1 Then Exit For
Next
Application.ScreenUpdating = True
End Sub

复制代码

bylandi · 发表于 2025-1-6 08:40

还有个问题。
我想在表格批处理前，弹出一个MsgBox，提示全文执行会比较慢，是否要执行。
该怎么写呢？

bylandi · 发表于 2025-1-9 18:52

目前，图片大小、MsgBox提示，已经弄得了。
但是，表格宽度还是没有完成，还是只能用2段代码。

有没有大侠能帮看看，表格这个，如何解决呢？

batmanbbs · 发表于 2025-1-10 11:04

本帖最后由 batmanbbs 于 2025-1-10 11:08 编辑

需要判断并设置PreferredWidthType属性，然后再设置宽度。另外，判断上面有点小问题，如果页面宽度小于等于15厘米，运行没有效果。

bylandi · 发表于 2025-1-10 14:51

感谢您的回复。
我现在就是想要实现2个宽度的轮流设置，第1个次运行，是一个宽度值，第2次运行，是另一个宽度值。
这样的话，我就可以只用1个快捷键，而不用设置2个。

bylandi · 发表于 2025-1-10 15:01

本帖最后由 bylandi 于 2025-1-10 19:43 编辑

这是目前设置的代码，使用了Rotation判断角度，如果是横向的图片，则设置宽度，如果非横向的，则设置高度。

有个问题就是，不懂这个Rotation为何不能获取嵌入属性的图片，只能获取环绕型图片的。
所以，就先把图片设置成了环绕，然后再设置回来，所以执行效率不够快。

您帮看看，有否可以有优化的地方？

Sub 图片—大小()
'快捷键：Alt+Q
On Error Resume Next '忽略错误
Selection.ShapeRange.WrapFormat.Type = wdWrapTight '设置为环绕型属性
If Selection.ShapeRange.Rotation = 0 Then
Selection.ShapeRange.Width = CentimetersToPoints(15.2) '宽度（CM）
Else
Selection.ShapeRange.Height = CentimetersToPoints(15.2) '高度（CM）
End If
Selection.ShapeRange.WrapFormat.Type = wdWrapInline '恢复嵌入型属性
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 设置居中对齐

复制代码

batmanbbs · 发表于 2025-1-10 19:54

bylandi 发表于 2025-1-10 14:51
感谢您的回复。
我现在就是想要实现2个宽度的轮流设置，第1个次运行，是一个宽度值，第2次运行，是另一个 ...

咳，说啥好呢，没认真看回复

bylandi · 发表于 2025-1-10 20:06

我不是专业的，不熟代码，上面那些都是自己查阅资料拼凑出来的。

batmanbbs · 发表于 2025-1-11 12:35

bylandi 发表于 2025-1-10 15:01
这是目前设置的代码，使用了Rotation判断角度，如果是横向的图片，则设置宽度，如果非横向的，则设置高度 ...

没有办法，微软就这样定的，Rotation只支持浮动图片。
不过也没有必要一个一个设置，可以将嵌入型图片转成浮动图片，判断是否旋转后，恢复为嵌入型图片，再设置高或者宽，这样可以直接批量处理嵌入型图片。

PS：我估计论坛上99%都不是程序员，Word板块更是如此。

bylandi · 发表于 2025-1-11 12:58

图片设置我每次只要设置一张，所以，目前图片设置的代码没有优化的条件，就不理了。
现在就是表格的问题，您能帮我一下嘛？

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