VFP 愛用者社區

[Patrick Wu]

想請教 各先進
VFP 匯出至 WORD InlineShapes.AddPicture 後
如 圖1
　　
如何使 文字在前
如圖 2 版面美觀

[ckp6250]

用表格試試,
公司名稱一欄。其右發票章也一欄

[Patrick Wu]

謝謝 Ckp6250 先進的指導
一直執著於尋找 文字在前的語法
山不轉人要轉
是的 用儲存格欄位的方式
雖沒想像中的美觀
但
應該是可以接受的

sorry 試過了 還是不行

[a2336456]

建議您，個資相關要馬賽克 ...

[syntech]

出賣老闆個資,應該不會天怒人怨. XD


---
老闆個資一筆不到10元

[Patrick Wu]

謝謝 Syntech 大師
旅行社 屬特許行業 歸觀觀局管理
各家旅行社的資料都查得到

所以 這些資料 不值錢

[garfield]

有查到以下VBA指定, 沒試過怎麼用
Selection.ShapeRange.WrapFormat.Type_:= wdWrapTight; // 將圖片的文繞圖方式改為'緊密'
參考: https://msdn.microsoft.com/en-us/library/bb214041(v=office.12).aspx
type 有下列幾種設定值.
wdWrapInline 7 Places shapes in line with text.
wdWrapNone 3 Places shape in front of text. See also dWrapFront.
wdWrapSquare 0 Wraps text around the shape. Line continuation is on the oposite side of the shape.
wdWrapThrough 2 Wraps text around the shape.
wdWrapTight 1 Wraps text close to the shape.
wdWrapTopBottom 4 Places text above and below the shape.
wdWrapBehind 5 Places shape behind text.
wdWrapFront 6 Places shape in front of text.

[Patrick Wu]

感謝 Garfield 先進
後學 試試

[Patrick Wu]

對不起各先進
後學功力太差了

後學 有找過這篇文章
https://www.experts-exchange.com/questions/24369997/Macro-Doesn't-Work-in-Word-2007.html

[garfield]

oWord = Createobject("Word.Application")
oWord.Visible = .F. && Toggle this to True to see if there's
&& any difference
oWord.Documents.Add()
WITH oWord.Selection
.TypeText("line 1")
.TypeParagraph
.TypeText("line 2")
.Movedown(5, 1)
.TypeParagraph
.TypeText("line 3** 圖會浮在文字上, 你手動移動圖片試看看.")
.TypeParagraph
.TypeText("line 4.oWord.Visible=.t.")
.TypeParagraph
ENDWITH

mfile = [d:\mydocuments\pictures\八段錦-1.雙手托天理三焦.gif]
oPic = oWord.Selection.InlineShapes.AddPicture(mfile)
with oPic
*可調整圖片大小.位置.的一些程式碼.
endwith
*浮在在字的上面.
oWord.Selection.ShapeRange.WrapFormat.Type= 5 && wdWrapBehind

[Patrick Wu]

謝謝 Garfield 先進
後學知道問題出在 沒 FOCUS AddPicture 上
所以 oWord.Selection.ShapeRange.WrapFormat.Type= 1
所以 OLE ID..... 異常....

感恩