Dynamo to word file?

11

try this method

multireplace more255
multireplace more2551798×973 3.9 MB 

import sys
import clr
import System
import time
clr.AddReference("Microsoft.Office.Interop.Word")
import Microsoft.Office.Interop.Word as Word

clr.AddReference("System.Runtime.InteropServices")
import System.Runtime.InteropServices

def find_replace(objRng, search_txt, replce_txt):
	missing = System.Type.Missing
	replaceAll = Word.WdReplace.wdReplaceAll
	if len(replce_txt) < 250:
		objRng.Find.Execute(
		search_txt, # search text
		True, # match case
		missing, # match whole word
		missing, # match wildcards
		missing, # match sounds like
		missing, # match all word forms
		True, # forward?
		Word.WdFindWrap.wdFindContinue, # wrap enum
		missing, # format?
		replce_txt, # replace with
		replaceAll, # replace enum
		missing, # match Kashida (arabic letters)
		missing, # diatrics?
		missing, # match other Arabic letters
		missing # support right to left
		)
	else:
		i =0
		flag = True
		while flag and i < 20: # prevent infiniteloop
			copyRange = objRng.Duplicate 
			flag = copyRange.Find.Execute(
			search_txt, # search text
			missing, # match case
			missing, # match whole word
			missing, # match wildcards
			missing, # match sounds like
			missing, # match all word forms
			missing, # forward?
			missing, # wrap enum
			missing, # format?
			missing, # replace with
			missing, # replace enum
			missing, # match Kashida (arabic letters)
			missing, # diatrics?
			missing, # match other Arabic letters
			missing # support right to left
			)
			if not flag:
				break
			else:
				copyRange.Text = replce_txt
			i += 1
	  
def doc_replace_text(source_filename, tokens, values):
	global errors
	word_application = Word.ApplicationClass()
	word_application.visible = True
	document = word_application.Documents.Open(source_filename)
	#time.sleep(2)
	#Find and Replace Process
	for _find, _replace in zip(tokens,values):
		for myStoryRange  in document.StoryRanges:
			find_replace(myStoryRange , _find, _replace)
			try:
				while myStoryRange.NextStoryRange is not  None:
					q = myStoryRange.NextStoryRange 
					find_replace(q, _find, _replace)
			except:
				import traceback
				errors.append(traceback.format_exc())
			#Find and replace in TextBox(shapes)
			try:	
				for shape in document.Shapes:
					initialText = shape.TextFrame
					if initialText.HasText:
						rangeobj = initialText.TextRange 
						find_replace(rangeobj, _find, _replace)

			except:
				import traceback
				errors.append(traceback.format_exc())
								

filename = IN[0]
tokens = IN[1]
values = IN[2]
errors = []    
word_application = Word.ApplicationClass()
word_application.Quit()
word_application = None
doc_replace_text(filename, tokens, values) 

OUT = errors