Results 1 to 2 of 2

Thread: Bookmarks and Print

  1. #1

    Thread Starter
    Fanatic Member Jumpercables's Avatar
    Join Date
    Jul 2005
    Location
    Colorado
    Posts
    592

    Bookmarks and Print

    I just cant seem to figure this out and I am not sure why but is there any way to open a word document then cycle threw all the bookmarks. Change the bookmarks then print the document and close the document without saving the changes to the bookmarks?

    I am trying it with the follwing code but get errors.
    VB Code:
    1. Dim oWord As New Word.Application
    2.     Dim i As Integer
    3.    
    4.     oWord.Documents.Open App.Path & "\Name.doc"
    5.     With oWord.ActiveDocument
    6.         For i = 1 To .Bookmarks.Count
    7.             Select Case .Bookmarks(i)
    8.                 Case "Name"
    9.                     .Bookmarks(i).Select
    10.                     Selection.Text = "Hello"
    11.                case "..."
    12.                ect..
    13.             End Select
    14.         Next i
    15.     End With
    16.     oWord.Documents.Close

  2. #2
    Ex-Super Mod RobDog888's Avatar
    Join Date
    Apr 2001
    Location
    LA, Calif. Raiders #1 AKA:Gangsta Yoda™
    Posts
    60,709

    Re: Bookmarks and Print

    What is the error(s) your getting? Did you try using .Bookmarks(i).Range.Text = "Hello"?
    VB/Office Guru™ (AKA: Gangsta Yoda®)
    I dont answer coding questions via PM. Please post a thread in the appropriate forum.

    Microsoft MVP 2006-2011
    Office Development FAQ (C#, VB.NET, VB 6, VBA)
    Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
    If a post has helped you then Please Rate it!
    Reps & Rating PostsVS.NET on Vista Multiple .NET Framework Versions Office Primary Interop AssembliesVB/Office Guru™ Word SpellChecker™.NETVB/Office Guru™ Word SpellChecker™ VB6VB.NET Attributes Ex.Outlook Global Address ListAPI Viewer utility.NET API Viewer Utility
    System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width