Solved

VB6 and MsWord

Posted on 2014-03-22
1
193 Views
Last Modified: 2014-03-26
HI Guys,

looking for a snippet of code which demonstrates:

1. locating a bookmark in a word document
2. replacing that bookmark with a table (any table for the purposes of an example) with a font of 9pts.

MTIA

DWE
0
Comment
Question by:dwe0608
1 Comment
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 500 total points
ID: 39948452
This snippet assumes the document object variable (doc) has already been set
Dim tbl As Word.Table

With doc
    Set tbl = .Tables.Add(.Bookmarks("bmkTable").Range, 5, 3)
    tbl.Range.Font.Size = 9
End With

Open in new window

0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question