|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Add text to beginning of new document opened from original Word document, with styles
Hi all, I have a program where I open one (original) document, copy text, paste that text into a new document (newDoc), manipulate that text, then paste the manipulated text at a cursor location in the original document. This works well, and retains styles, which is what I wanted.
Before I paste the manipulated text into the original document, I want to add a few paragraphs at the beginning of newDoc. Note: newDoc has both StyleA and StyleB. The following describes it. Beginning of newDoc: Original starting paragraph that is StyleA What I want: Para1 that is StyleA "Blank" paragraph that is Style B Para2 that is StyleA "Blank" paragraph that is Style B Para3 that is StyleA "Blank" paragraph that is Style B Original starting paragraph that is StyleA I have tried the following code (snippet): Code:
Set nRng = newDoc.Content ' nRng.Collapse Direction:=wdCollapseStart ' I think you could start the next line(s) with nRng or newDoc newDoc.paragraphs(1).Range.InsertBefore Text:="Test for para1" & vbCr ' newDoc.paragraphs.Add newDoc.paragraphs(2).Range.InsertBefore Text:="Test for para2" & vbCr newDoc.paragraphs(3).Range.InsertBefore Text:="Test for para3" & vbCr The "newDoc.paragraphs.Add" works, but it adds the new paragraph at the end of the newDoc. That's why it is commented out. The nRng was a test to set the range to the beginning of newDoc, then use this to add paragraphs, but I couldn't get it to work. I had to "brute force" the issue instead, by using actual paragraph numbers. Is there an easier way to do this? Or at least add "blank" paragraphs with StyleB? |
#2
|
|||
|
|||
You need to learn to use IntelliSense, the Object Browser, and online help. You’ll get the answers you need much more quickly.
For example see the following: Paragraphs.Add method (Word) | Microsoft Learn Range.InsertParagraph method (Word) | Microsoft Learn Range.InsertParagraphAfter method (Word) | Microsoft Learn Range.InsertParagraphBefore method (Word) | Microsoft Learn Range.Style property (Word) | Microsoft Learn |
#3
|
|||
|
|||
Thanks, but none of that was helpful. You do realize I searched for the answer for this, correct? Not only did I do that, but I asked Chat GPT multiple questions about how to do this, and it couldn't do it. It's been quite helpful on other questions, but it could not answer this one.
For the paragraphs.add method, I'm not using a selection object, so that doesn't work. The Range.InsertParagraph method doesn't tell my how to do this in an open document, again because it's using selection, which I'm not. Nothing is selected. The range.style link is completely worthless. None of those links were helpful for my particular question. |
#4
|
|||
|
|||
Quote:
"This example adds a paragraph mark before the second paragraph in the active document." Code:
ActiveDocument.Paragraphs.Add _ Range:=ActiveDocument.Paragraphs(2).Range Quote:
Code:
Set myRange = ActiveDocument.Range(0, 0) With myRange .InsertParagraph .InsertBefore "Dear Sirs," End With Code:
Set myRange = ActiveDocument.Range(0, 0) With myRange .InsertBefore "Title" .ParagraphFormat.Alignment = wdAlignParagraphCenter .InsertParagraphAfter End With Code:
nRng.Style = "styleName" |
#5
|
|||
|
|||
I figured it out, using a brute force method. I first re-ran the code by Chat GPT, but that was wrong. So, I looked at other code of mine and just went line by line through this, changing coding as necessary and running 10+ times, until I got what I wanted. Not pretty, but works.
Code:
newDoc.paragraphs(1).Range.InsertBefore Text:="Para1" & vbCr & vbCr newDoc.paragraphs(2).Style = "StyleB" newDoc.paragraphs(2).Range.InsertAfter Text:="Para2" & vbCr & vbCr newDoc.paragraphs(4).Style = "StyleB" newDoc.paragraphs(4).Range.InsertAfter Text:="Para3" & vbCr & vbCr newDoc.paragraphs(6).Style = "StyleB" |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Get path of newly opened word document | MANOHAR | Word | 2 | 04-12-2017 06:07 AM |
Hyperlinks that Do Not Exist in the Original Word Document Appearing in the PDF Document | diarrheaofthewprocessor | Word | 11 | 01-24-2017 01:52 PM |
Single step Word Styles from Source Document through entire Destination document? | xbliss | Word | 6 | 08-27-2016 09:36 PM |
Word 2013 - When deleting section breaks, cursor jumps to beginning of document | ranholmom66 | Word | 3 | 07-01-2016 06:01 AM |
Lost word document now opened in unknown | Danwordman | Word | 2 | 07-07-2015 05:03 AM |