Aug 16, 2012 · I've done macros in excel, but this is my first encounter with ms-word macros. Problem: I've had a hard time finding effective, intelligent navigation through ms-word. I did find this article about moving in different directions which is really the same as the arrow keys. Was hoping to get some insight into the best way to navigate the word ...

This must be a VBScript-specific problem, because I can access the elements if I run the same code in Word's VBA editor. I ended up iterating the lines of the TOC, because it works even from VBScript: For Each Paragraph In Doc.TablesOfContents(1).Range.Paragraphs WScript.Echo Paragraph.Range.Text Next

Jul 11, 2014 · Private Sub Document_Open() Set App = Word.Application End Sub This is the event that fires on save command Ctrl+s or save icon. I added my own save format and print as I saw It most useful in the case of people filling out forms …

Oct 30, 2014 · How to set cursor after a table in word document using VBA. 1. Find and Replace from document beginning ...

Nov 16, 2015 · I had an issue where MS Word fields were not updating in Textbox (Shapes). I was working on a 70 page word document (Word 2013) that contained a lot of figures/images/captions and cross-references. A common practice is for an image to be captioned e.g. Figure 7, so it can be easily cross-referenced.

Mar 20, 2018 · I'm trying to use Word VBA to loop through a document and what I'm trying to do is, if I find .Text = "A" & vbTab, then I want to replace it with "A: ", then go to the end of the line, press the DEL key once and type <br>. But I couldn't manage it, somehow word keeps crashing when I run this code..

Aug 16, 2012 · This will move the cursor at end of selected word Selection.MoveRight Unit:=wdCharacter, Count:=1 '~~> Select the inserted word Selection.MoveRight Unit:=wdCharacter, Count:=Len(wrd), Extend:=wdExtend '~~> Change Style Selection.Style = ActiveDocument.Styles("List Paragraph") End Sub Sub InsertBefore() Dim wrd As String Dim rng As Range wrd ...

Sep 20, 2013 · Thanks guys, you are very nice. This is the code I have now and still does not work.Sub ClientName() OldWord = "Name>" NewWord = strLastname With ActiveDocument.Content.Find .Forward = True .Wrap = wdFindStop .Execute FindText:=OldWord, ReplaceWith:=NewWord, Replace:=wdReplaceAll End With End Sub >>>>I still cannot understand why the variable StrLastname can not be "re-use" to do a Find/Replace.

Feb 8, 2012 · You're probably trying to search in the wrong section/headertype. You could try this code: Dim rng As Range Dim intSecCount As Integer Dim intHFType As Integer intSecCount = ActiveDocument.Sections.Count For intSection = 1 To intSecCount With ActiveDocument.Sections(intSection) For intHFType = 1 To 3 Set rng = ActiveDocument.Sections(intSection).Headers(intHFType).Range rng.Find.Execute ...

Dec 12, 2016 · I'm trying, at the beginning of my macro, to close all open Word application instances, although I don't know which documents are open, and I can't set them as an object.