word-vba

I am trying make a progress bar inside a userform, instead of having a seperate progressbar, because this seems to be unreliable in the respect if it will be on top or in the background. So the progressbar is working fine, however it makes the whole userform repaint for every update the progressbar does. Is it possible to just refresh the progressbar instead of the whole userform? My current code do look like this: Public Sub progress(pctCompl As Single) Me.Text.caption = Format(pctCompl, "##") & "% Completed" Me.Bar.width = Round(pctCompl * 10, 5) If Me.Bar.width Mod 20 = 0# Then Me.Repaint

I'm new to VBA. I have several long documents where a citation or a document number appears at the end of a paragraph. Luckily, these citations and document are enclosed in parentheses, which should make it easy to isolate. I need to move the content of those parentheses (including the parentheses themselves) to the front of each paragraph and then add two spaces after the closing parenthesis. For example: This is my text in Paragraph 1. ( http://nytimes.com ) This is my text in Paragraph 2. (1.b.3B) Should look like: ( http://nytimes.com ) This is my text in Paragraph 1. (1.b.3B) This is my

I'm developping a project in Word 2003 with VBA. I have a multiselect ListBox with some entries (dates). On rightclick I'd like to have an InputBox popping up where the user can change the selected date. This works well, as long a specific item is already focused (not only selected, but focused). But, if you rightclick on an item without focus, the box shows up and changes the date of the focused entry, not always the one you rightclicked. I found this answer ( http://www.vbarchiv.net/tipps/tipp_920-rechtsklick-in-der-standard-listbox-erkennen.html ) but it's not possible in VBA. Has anyone a

following code is to read a word file in vba. But its showing an error Error 462 in VBA : remote server machine not found. Sub abc() Dim fileReader As String Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim singleLine As Paragraph Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Open("C:\Documents and Settings\Administrator\My Documents\Downloads\fwfiles\webs.doc") With wrdDoc Dim p As Paragraph For Each p In wrdDoc.Paragraphs fileReader = p.Range.Text Next p End With End Sub Thanks in advance Does it break when you launch it twice ? Cause Visual Basic

I created a text bo in the Word and I would like to insert text into it: Sub k() Dim Box As Shape Set Box = ActiveDocument.Shapes.AddTextbox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=50, Top:=50, Width:=100, Height:=100) //HOW TO INSERT HERE TEXT INTO TEXT BOX End Sub Here is the solution: Sub k() Dim Box As Shape Set Box = ActiveDocument.Shapes.AddTextbox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=50, Top:=50, Width:=100, Height:=100) 'The solution for you: Box.TextFrame.TextRange.Text = "My text comes this way" End Sub 来源： https://stackoverflow.com/questions/17126517

I want to fetch all the bookmarks in my Word document, and then push them to an array. The bookmarks must be sorted by their location in document not by name. ex. here's a list of bookmarks in a document, [bm_s] (header) [bm_h] (title) [bm_a] (footer) I want the bookmarks to keep their order so that the array will look like as following, array {bm_s, bm_h, bm_a, } ex. how it should not look like below, array {bm_a, bm_h, bm_s, } I got the fetching of all the bookmarks from document working. I get all the bookmarks in random order when fetching and pushing to the array. Oki, so i figured it out

Office 2007 brings a new goodie called as 'content controls'. I need to evaluate this to see if this serves as a solution for a problem under research. Due to paucity of time and my general disdain for Office-interop-pains, can someone summarize the benefits? Is it possible to define custom content controls? where do all the word programmers (if there are any) hang out :) ? RTFMsdn links also welcome. So far I see (from some screencasts) that its now possible to define - template word docs whose content can be stubbed in from a data-behind-XML. You could create this XML as you wish.. e.g.

Is it possible to copy a shape in Word 2010 without resorting to .Select ? According to Dev Center the Anchor property returns the shape's anchoring range. Could that be a way forward? However, the code below returns an error. Sub createShape() Set myShape = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 1, 1, 1, 1) myShape.Anchor.Copy End Sub While it does not seem to be possible to copy a shape without selecting it, it is possible to duplicate a shape without selecting it (which was my reason for wanting to copy it in the first place). The code below gives me what I was looking for: Sub