WORD VBA 语法相关定位问题 求高手帮我看一下少了甚么步骤
本帖最后由 kk_lee69 于 2017-7-21 13:24 编辑WORD VBA 语法相关问题求高手帮我看一下少了甚么步骤Sub 電子章核示單用()
'
' 電子章核示單用
'
PLeft = Selection.Information(wdHorizontalPositionRelativeToPage)
PTop = Selection.Information(wdVerticalPositionRelativeToPage)
'MsgBox (PLeft & "" & PTop)
Dim arr(0 To 1) As Variant
Set myDocument = ActiveDocument
With myDocument.Shapes
With .AddPicture(FileName:="C:\Users\WORKA\Pictures\911.png", LinkToFile:=False, SaveWithDocument:=True, Left:=PLeft, Top:=PTop)
.Name = "shp1"
arr(0) = .Name
End With
' PLeft + 28 跟 PTop + 32這樣子 定位才會是對的
With .AddTextbox(msoTextOrientationHorizontal, PLeft , PTop , 41.5, 17.5)
.Name = "shp2"
.TextFrame.TextRange = Format(Date, "YYYY.MM.DD")
.TextFrame.TextRange.Font.Size = 7.5
.TextFrame.TextRange.Font.Name = "標楷體"
'.TextFrame.TextRange.Font.Bold = True
.TextFrame.MarginLeft = 0#
.TextFrame.MarginRight = 0#
.TextFrame.MarginTop = 0#
.TextFrame.MarginBottom = 0#
.TextFrame.TextRange.Font.Color = RGB(0, 0, 200)
.TextFrame.AutoSize = 1
.Line.Visible = 0
.Fill.Visible = msoFalse
End With
With .Range(Array("shp1", "shp2")).Group
'.Fill.PresetTextured msoTextureBlueTissuePaper
'.Rotation = 45
.ZOrder msoSendToBack
End With
End With
End Sub這樣出來的 定位會變成 如下圖
搞不懂 定位點 不是都一樣的嗎
就是需要微調 才可以 把日期放在 中間
可是 會因為 DOC 格式 或者 DOCX 格式 跑掉
所以我在想 我一定缺了某個步驟 回复 1# kk_lee69
是生成在Excel 表格中？
回复 2# chzj589
WORD 中生成 回复 3# kk_lee69
是在 WORD 中生成？
还是生成PNG图片再插入WORD？
我想还是生成PNG图片再插入WORD比较好
第台电脑的分辨率设置会不一样，
现在搞好了，到另一台还会产生跑偏 回复 4# chzj589
其實就是個圖片 複製後 日期用變數 增加 放在那個日期欄位
但是我 遇到的問題是 兩個
我可以細部調整譬如+13 -15之類的 可以調整好但是我覺得這個應該是 我少掉判斷某些定位點
的問題.......
所以想寫成 可以完全 自動判斷這些差異的
另外 有表格跟沒表格蓋在表格上跟 不是表個好像也會有差
文字是 置中 顯示 還是 靠左靠右好像都會有差別 回复 4# chzj589
先做一個章的 PNG 然後 丟在電腦的某個位置用VBA 插入再加上 日期 調整 日期在中間的框 回复 4# chzj589
圖片在這你可以試看看 回复 7# kk_lee69
我试试看{:face (303):} 本帖最后由 chzj589 于 2017-7-28 10:41 编辑
回复 7# kk_lee69
先生成日期电子章后再插入WORD中，这样行不？
回复 9# chzj589
怎麼生成圖片 回复 9# chzj589
怎麼生成圖片
我的圖片是PS 產生的
可以直接產生圖片 我也可以接受沒問題 回复 10# kk_lee69
我整理后发给你{:face (361):} 回复 11# kk_lee69
你看看这样子可以吗？
回复 13# chzj589
感謝幫忙不過你誤解了~~~我這個問題 跟 AU3無關
我要寫在 WORD 裡面的VBA
我需要的是 WORD 巨集的解決方案......
因為 要掛在WORD 上面 所以 是跟AU3 無關的 不懂vba。。没怎么玩过。不过稍微查了下。。vba也有自己的画图方法的，你不用png。直接用他的shape？方法画图就好了。