[求助]向各位大师求助

tudi6709

各位朋友好：

我还是第一次进入WORD应用与开发。还要向各位前辈学习。我在工作中有一个小问题向你们请教。编辑照片。做个编辑照片模板？？？？请看附件

jY7O3Qqj.rar (152.12 KB, 下载次数: 21)

2004-10-26 01:13 上传

点击文件名下载附件
[求助]向各位大师求助

守柔

此问题如果用VBA解决，则可大大地轻松了。

我需要进一步了解：

一照片是否仅在文档中插入，还是觉得置于表格中更好，还是无所谓。

二照片的编号有无明确规定必须在照片的下方或者是上方有没有具体要求。

三是照片的大小，你所说的三种规格也好四种规格也罢必须罗列出具体尺寸，我好进行设置；

四是以何种方式插入的图片比如是插入/图片/来自文件还是以粘贴的方式进行的如果是前者则更好。

五是每页中的照片数量是否有规定如十张一页还是二张一页请予说明；

六其它你认为必须说明的事宜请一并予以说明。

tudi6709

请问大师：

照片编辑在文档中插入，格式和尺寸详见附件。以插入/图片/来自文件方式更好

谢谢

MYeNPz9K.rar (5.69 KB, 下载次数: 21)

2004-10-26 12:17 上传

点击文件名下载附件
[求助]向各位大师求助

守柔

目前我较忙,如果你愿意等一下,明天早上之前,我送到论坛上.

守柔

关于照片编辑的操作方法与说明：

功能与用途：对插入的照片进行按需设置，并统一编号。

必须：将工具/宏/安全性级别设置为低，假如不为低，请设置为低后退出并重启WORD。

必须：将工具/选项/编辑选项卡中的插入/粘贴图片的方式调整为四周型，否则将不能调整图片大小；

注意：每次开启该文档时，先运行“指定高宽”命令，如果没有设置，当点击“插入照片”时，会自动出现设置高宽对话框（相当于调用该“指定高宽”命令）

提示：当每次需要相同尺寸的照片时，无须再进行“指定高宽”的设置，程序会自动记忆；只有需要设置不同尺寸时，再行设置高宽。

提示：插入/图片/来自文件命令同新菜单（帮助菜单）右侧新菜单（照片编辑）命令等同。

注意：高度和宽度的度量单位为厘米，先高度再宽度，输入对话框中的输入数据形式如：“4*5”，或者“5.26*3.17”等，必须用“*”（星号）作为分隔符，小数点应该使用英文状态下的标点符号，代码程序不支持无效数据的输入。（有提示）

代码中未设置图片在文档中的位置，用户可根据图片编号（直接拖动编号大的）进行调整。正规的操作方法还可以初步调整照片在文档中的位置后，全选或者部分选定照片（SHIFT+鼠标单击），绘图/对齐或分布命令中的各个适宜命令。

编号与照片已进行了组合，除非特殊需要，可以取消组合。在组合的情况下，编号栏文本框中可直接进行编辑。

编号复零命令是将照片的编号从新设置为从0（1）开始，注意此数据即使文档退出（保存）后，下次仍然有效。假如用户上次编辑到“照片10”，则重新开启文档后将自动从11开始编号。

由于时间仓促，难免有疏漏以及使用OFFICE版本的差异，请及时进行交流沟通。

守柔

作品及代码如下： fqoKZHl8.rar (66.99 KB, 下载次数: 23)

2004-10-27 05:30 上传

点击文件名下载附件
[求助]向各位大师求助

Dim Ph As Single, Pw As Single

Sub InsertPicture()

Dim MyDialog As Dialog, MyPicture As Shape, MyText As Shape, n As Integer

Dim Pl As Single, Pt As Single, Dt As Single, Dl As Single, Pcount As Integer

On Error Resume Next

Application.ScreenUpdating = False

If Ph * Pw = 0 Then Call SetHW

Set MyDialog = Application.Dialogs(wdDialogInsertPicture)

With MyDialog

If .Show = -1 Then

With Me

Pcount = .Variables("Pcount").Value

Dt = .PageSetup.TopMargin

Dl = .PageSetup.LeftMargin

n = .Shapes.Count

Set MyPicture = .Shapes(n)

With MyPicture

.Name = "Pone"

.LockAspectRatio = msoFalse

.LockAnchor = False

.WrapFormat.Side = wdWrapBoth

.Height = Ph

.Width = Pw

Pt = .Top + Dt

Pl = .Left + Dl

End With

Set MyText = .Shapes.AddTextbox(msoTextOrientationHorizontal, Pl, Pt + MyPicture.Height, MyPicture.Width, 25)

With MyText

.Name = "Ptwo"

.Line.Visible = msoFalse

.TextFrame.TextRange.Text = "照片" & Pcount + 1

Me.Variables("Pcount").Value = Pcount + 1

.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphCenter

End With

.Shapes.Range(Array("Pone", "Ptwo")).Group.Name = "Pthree" & Pcount

.Shapes("Pthree" & Pcount).WrapFormat.AllowOverlap = False

End With

End If

End With

Application.ScreenUpdating = True

End Sub

Sub SetHW()

Dim MyValue As String, L As Byte

On Error GoTo Errhandle

ST: MyValue = InputBox("请在此输入照片的高度(厘米)和宽度(厘米),以*号分隔", "Microsoft Word")

If MyValue = "" Then Exit Sub

L = InStr(MyValue, "*")

If L = 0 Then

GoTo Errhandle

Else

Ph = CentimetersToPoints(CSng(Mid(MyValue, 1, L - 1)))

Pw = CentimetersToPoints(CSng(Mid(MyValue, L + 1, Len(MyValue) - L)))

End If

Exit Sub

Errhandle:

MsgBox "无效数据,请重新正确输入!", vbOKOnly + vbInformation

GoTo ST

End Sub

Sub SetZero()

Me.Variables("Pcount").Value = 0

End Sub

tudi6709

楼上的朋友谢谢了，问题基本解决。但还是有点小问题：

1、在插入图片的同时可以编写照片的名称更好。

2、可以批量更名，例：插入了100张照片，编号为照片1至照片100，照片1至照片9名称为：L-成都-001(按顺序排列)；照片10至照片20为：S-绵阳-001(按顺序排列)；照片21至照片50名称为：D-内江-001(按顺序排列)；照片51-100名称为：S-达州-001(按顺序排列。S-达州-001、S-达州-002、S-达州-003。。。。。S-达州-100)

3、我在试用你发的程序，在连续插入时照片的编号不按顺序排列？？？？？

还有能否可以，光标在那里，照片就可以插入在那里？？？？？？

tudi6709

向版主再次求助：

谢谢你的帮助，但还是有点美中不足，不能根据需要更改名称。

请问版主能不能，1、在填好照片尺寸时，同量可以填好照片名称，(例：当第1步填好后，不改变名称时，照片按顺序编排。S-达州-001。。。。。。S-达州-00N；当更改名称、尺寸后，还是按顺序编排，D-成都-001。。。。。D-成都-00N；以此类推。。。。。)

我又要接受批评了，工作还有很多没有做完。照片太多效率慢。版主再次向你求助1!!!!!!!!!!急用

守柔

受楼主三次短信之催，不敢怠慢，却屡试不顺。总算完工，也可算沥血之作。

此次修改摒弃原先思路另起炉灶，以当前光标处插入指定尺寸和名称的照片。

请楼主务必认真阅读操作方法，时间较紧可能有考虑不周之处，请及时与我联系代码等稍候一段时间再公开。

以下说明供参考：

关于照片编辑的操作方法与说明：

功能与用途：指定光标处插入指定的图片，并能统一和分批编号。

必须：将工具/宏/安全性级别设置为低，假如不为低，请设置为低后退出并重启WORD。

必须：将工具/选项/编辑选项卡中的插入/粘贴图片的方式调整为四周型，否则将不能调整图片大小；

注意：每次开启该文档时，先运行“指定高宽”命令，如果没有设置，当点击“插入照片”时，会自动出现设置高宽对话框（相当于调用该“指定高宽”命令）

提示：当每次需要相同尺寸的照片时，无须再进行“指定高宽”和"名称"的设置，程序会自动记忆；只有需要设置不同尺寸时，再行设置高宽或名称.

提示：插入/图片/来自文件命令同新菜单（帮助菜单）右侧新菜单（照片编辑/光标处插入照片）命令和右键菜单/光标处插入照片命令等同，但应先定位，再点击任一命令。

注意：高度和宽度的度量单位为厘米，先高度再宽度，输入对话框中的输入数据形式如：“4*5”，或者“5.26*3.17”等，必须用“*”（星号）作为分隔符，小数点应该使用英文状态下的标点符号，代码程序不支持无效数据的输入。（有提示）。

操作方法：先定位，即在需要插入照片的页面位置，双击鼠标，使光标处于即点即输入位置，然后右击，在右键快捷菜单中出现：“光标处插入照片”，点击该命令，即可在此处进行指定照片的插入。

编号与照片已进行了组合，除非特殊需要，可以取消组合。在组合的情况下，编号栏文本框中可直接进行编辑。

设置高宽和名称:每次需要改变原来的照片尺寸和名称,可通过此命令进行操作.可将照片的编号重新设置为指定的开始编号，注意此数据即使文档退出（保存）后，下次仍然有效。假如用户上次编辑到“照片10”，则重新开启文档后将自动从11开始编号。

错误重启:受不可预知因素影响,可能使插入照片的位置处于非正常状态(位于页面左上角时,您需要使用该命令.

由于时间仓促，难免有疏漏以及使用OFFICE版本的差异，请及时进行交流沟通。

wTC6G9YZ.rar (58.81 KB, 下载次数: 22)

2004-10-29 20:43 上传

点击文件名下载附件

[此贴子已经被作者于2004-10-29 20:44:53编辑过]

tudi6709

谢谢版主：

辛苦了，多谢你的帮助。

我试用了，但还是些修改的地方。

1、尺寸、名称设置能在一个版面上，有多好？？？

2、当不设置尺寸，只改名称时。尺寸为前期设置值。(现在必需设置尺寸后，才能设置名称)

3、假设旧文档现在编辑，要插入新照片，旧文档照片尺寸？？？？能显示旧照片尺寸有多好!!!!