Új hozzászólás Aktív témák

• #3040 gebic csendes tag Zalanius #3039

  Új Válasz 2018-06-25 12:01:55 #3040

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  gebic

  csendes tag

  válasz Zalanius #3039 üzenetére

  Szia Zalán!

  Igen ez lesz nekem a megoldás. Valóban be kell szúrni egy következő Pararaph-t.

  Most már csak annyi maradt a problémámból, hogy a feladat:
  1. sor szöveg
  2. sor beillesztett kép
  3. sor szöveg.

  Jelenleg ha beszúrom a képet, akkor a margók 1,1 poziciójába teszi be és felülírja az első sort.

  Hogyan tudok úgy beszúrni egy képet, hogy megadom, hogy melyik X,Y koordinátára helyezze el a képet,
  vagyis, a RANGE-en belül hova teyge.

  Köszi: Gábor

• #3038 gebic csendes tag

  Új Válasz 2018-06-21 17:51:53 #3038

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  gebic

  csendes tag

  Sziasztok!

  Segítségeteket szeretném kérni.

  Visual Studio 2017 Visual Basic - Microsoft.Office.Interop.Word extension

  Feladat: VB-ből létrehozott Word dokumentumba beírni:

  1 sor tetszőleges szöveg
  2 sor vágólapról bemásolt vonalkód
  3. sor tetszőleges szöveg.

  Eddig a Range.Text értéket írtam, de azt vettem észre, hogy ha az első sor után beillesztem a vágólap tartalmát, akkor felülírja a Range.Text előző értékét.

  Lehet több Range.Text-et kezelni?

  Tudtok esetleg olyan oldalt, ahol ehhez hasonló példákat lehetne találni:

  Private Function wordbeir()
Dim wa As Microsoft.Office.Interop.Word.Application
Dim wd As Microsoft.Office.Interop.Word.Document
Dim wp As Microsoft.Office.Interop.Word.Paragraph


wa = CreateObject("Word.Application")
wa.Visible = False

wd = wa.Documents.Add
wp = wd.Content.Paragraphs.Add
wd.PageSetup.LeftMargin = 1
wd.PageSetup.RightMargin = 1
wd.PageSetup.TopMargin = 1
wd.PageSetup.BottomMargin = 1


wd.PageSetup.PageHeight = 141
wd.PageSetup.PageWidth = 224
wp.Range.Text = "This text will be d"


AxStrokeScribe1.CopyToClipboard(80, 50)
wp.Range.Text = "Foo" & Chr(10) & Chr(11)

wd.Range.Next()

wd.Range.Paste()

'wd.Range.InlineShapes.AddPicture("c:\cimkezo\vkod.jpg")

' itt próbálkoznék azzal, hogy beíllesztek egy külső képfájlt,



wd.SaveAs("c:\cimkezo\cimke.docx")
wa.Quit()
End Function

Új hozzászólás Aktív témák