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

• Zalanius tag

  #3039

  #3038 gebic

  2018-06-22 22:28:32

  Új Válasz

  Ú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

  

  Zalanius

  tag

  #3038 gebic

  #3038 gebic

  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

  Az első tipp látatlanban is, hogy ugyanannak a range objectnek a szövegét íratod át a második alkalommal is. Ha a beírandó részek különállóak, akkor például meg lehetne ismételni a Paragrahps.Add() hívást.

  wp = wd.Content.Paragraphs.Add
wp.Range.Text = "This text will be d"
...
wp = wd.Content.Paragraphs.Add
wp.Range.Text = "Foo" & Chr(10) & Chr(11)

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