View Full Version : [SOLVED:] deleting empty lines in a word document after inserting text
wolle271
08-26-2014, 05:44 AM
cheers guys,
once again im in need of your help.
the problem im encountering is, that im adding dynamic texts (that are based on values in an excel table) into a word document, but the whole document is being pushed down, because of the inserted text. what id like to know is, how im supposed to erase these "extra added lines".
the document is accessed from an excel macro via:
Dim objDocTgt
Set objDocTgt = objWord.Documents.Add("xxxx.dotx")
ive added some screenshots to provide additionial information, as it is pretty difficult for me to describe this problem...
before adding text:
12186
after adding text (you can see, that "heading2" moved a bit downwards because of the added lines above)
12185
how i want it to look like:
12187
so i need somekind of a function thats checking how many lines of text im adding, and then removes this amount of lines from the end of the text. it should be like moving the cursor to the end of the text and pressing "del" x times.
thx in advance.
You'd better use documentvariables in Word.
If you post VBA code please post the complete code.
wolle271
08-26-2014, 06:05 AM
Private Sub CommandButton1_Click()
Dim objWord
Dim objDocTgt
Dim objDocSrc
Dim val1 As String 'Einlesen der Werte aus TextBox1-14
val1 = UserForm1.TextBox1.Text
If val1 = vbNullString Then 'Falls kein Wert eingetragen ist, Fehlermeldung + Beenden der Methode
MsgBox ("Kein Wert: Leistungsmotivation")
Exit Sub
End If
Dim val2 As String
val2 = UserForm1.TextBox2.Text
If val2 = vbNullString Then
MsgBox ("Kein Wert: Gestaltungsmotivation")
Exit Sub
End If
Dim val3 As String
val3 = UserForm1.TextBox3.Text
If val3 = vbNullString Then
MsgBox ("Kein Wert: Führungsmotivation")
End If
Dim val4 As String
val4 = UserForm1.TextBox4.Text
If val4 = vbNullString Then
MsgBox ("Kein Wert: Gewissenhaftigkeit")
End If
Dim val5 As String
val5 = UserForm1.TextBox5.Text
If val5 = vbNullString Then
MsgBox ("Kein Wert: Flexibilität")
End If
Dim val6 As String
val6 = UserForm1.TextBox6.Text
If val6 = vbNullString Then
MsgBox ("Kein Wert: Handlungsorientierung")
End If
Dim val7 As String
val7 = UserForm1.TextBox7.Text
If val7 = vbNullString Then
MsgBox ("Kein Wert: Sensitivität")
End If
Dim val8 As String
val8 = UserForm1.TextBox8.Text
If val8 = vbNullString Then
MsgBox ("Kein Wert: Kontakfähigkeit")
End If
Dim val9 As String
val9 = UserForm1.TextBox9.Text
If val9 = vbNullString Then
MsgBox ("Kein Wert: Soziabilität")
Exit Sub
End If
Dim val10 As String
val10 = UserForm1.TextBox10.Text
If val10 = vbNullString Then
MsgBox ("Kein Wert: Teamorientierung")
Exit Sub
End If
Dim val11 As String
val11 = UserForm1.TextBox11.Text
If val11 = vbNullString Then
MsgBox ("Kein Wert: Durchsetzungsstärke")
Exit Sub
End If
Dim val12 As String
val12 = UserForm1.TextBox12.Text
If val12 = vbNullString Then
MsgBox ("Kein Wert: Emotionale Stabilität")
Exit Sub
End If
Dim val13 As String
val13 = UserForm1.TextBox13.Text
If val13 = vbNullString Then
MsgBox ("Kein Wert: Belastbarkeit")
Exit Sub
End If
Dim val14 As String
val14 = UserForm1.TextBox14.Text
If val14 = vbNullString Then
MsgBox ("Kein Wert: Selbstbewusstsein")
Exit Sub
End If
'<-----> <------>
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.ScreenUpdating = False
'Ziel, das Word Template, in das die Texte eingefügt werden sollen, muss später unter anderem Namen als normales .docx abgespeichert werden.
Set objDocTgt = objWord.Documents.Add("C:\Users\julian\Documents\Arbeit\Walter_Barwenczik" _
& "\berichtTemplate5.dotx")
'Quelle für den zu extrahierenden Text aka die einzelnen Rating Texte.
Set objDocSrc = objWord.Documents.Open("C:\Users\julian\Documents\Arbeit\Walter_Barwenczik\release\src\rating.doc", AddTorecentFiles:=False, Visible:=False)
'<-----> <------->
'Einfügen der dynamischen Texte je nach Wert des Bereichs:
Select Case val1 'Bereich Leistungsmotivation
Case Is = 1
objDocTgt.Bookmarks("leistungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_1_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("leistungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_1_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("leistungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_1_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("leistungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_1_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("leistungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_1_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("leistungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_1_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("leistungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_1_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("leistungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_1_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("leistungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_1_9").Range.FormattedText
End Select
Select Case val2 'Bereich Gestaltungsmotivation
Case Is = 1
objDocTgt.Bookmarks("gestaltungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_2_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("gestaltungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_2_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("gestaltungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_2_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("gestaltungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_2_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("gestaltungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_2_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("gestaltungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_2_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("gestaltungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_2_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("gestaltungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_2_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("gestaltungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_2_9").Range.FormattedText
End Select
Select Case val3 'Bereich Führungsmotivation
Case Is = 1
objDocTgt.Bookmarks("fuehrungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_3_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("fuehrungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_3_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("fuehrungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_3_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("fuehrungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_3_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("fuehrungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_3_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("fuehrungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_3_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("fuehrungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_3_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("fuehrungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_3_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("fuehrungsmotivation").Range.FormattedText = objDocSrc.Bookmarks("first_3_9").Range.FormattedText
End Select
Select Case val4 'Bereich Gewissenhaftigkeit
Case Is = 1
objDocTgt.Bookmarks("gewissenhaftigkeit").Range.FormattedText = objDocSrc.Bookmarks("sec_1_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("gewissenhaftigkeit").Range.FormattedText = objDocSrc.Bookmarks("sec_1_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("gewissenhaftigkeit").Range.FormattedText = objDocSrc.Bookmarks("sec_1_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("gewissenhaftigkeit").Range.FormattedText = objDocSrc.Bookmarks("sec_1_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("gewissenhaftigkeit").Range.FormattedText = objDocSrc.Bookmarks("sec_1_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("gewissenhaftigkeit").Range.FormattedText = objDocSrc.Bookmarks("sec_1_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("gewissenhaftigkeit").Range.FormattedText = objDocSrc.Bookmarks("sec_1_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("gewissenhaftigkeit").Range.FormattedText = objDocSrc.Bookmarks("sec_1_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("gewissenhaftigkeit").Range.FormattedText = objDocSrc.Bookmarks("sec_1_9").Range.FormattedText
End Select
Select Case val5 'Bereich Flexibilität
Case Is = 1
objDocTgt.Bookmarks("flexibilitaet").Range.FormattedText = objDocSrc.Bookmarks("sec_2_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("flexibilitaet").Range.FormattedText = objDocSrc.Bookmarks("sec_2_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("flexibilitaet").Range.FormattedText = objDocSrc.Bookmarks("sec_2_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("flexibilitaet").Range.FormattedText = objDocSrc.Bookmarks("sec_2_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("flexibilitaet").Range.FormattedText = objDocSrc.Bookmarks("sec_2_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("flexibilitaet").Range.FormattedText = objDocSrc.Bookmarks("sec_2_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("flexibilitaet").Range.FormattedText = objDocSrc.Bookmarks("sec_2_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("flexibilitaet").Range.FormattedText = objDocSrc.Bookmarks("sec_2_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("flexibilitaet").Range.FormattedText = objDocSrc.Bookmarks("sec_2_9").Range.FormattedText
End Select
Select Case val6 'Bereich Handlungsorientierung
Case Is = 1
objDocTgt.Bookmarks("handlungsorientierung").Range.FormattedText = objDocSrc.Bookmarks("sec_3_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("handlungsorientierung").Range.FormattedText = objDocSrc.Bookmarks("sec_3_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("handlungsorientierung").Range.FormattedText = objDocSrc.Bookmarks("sec_3_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("handlungsorientierung").Range.FormattedText = objDocSrc.Bookmarks("sec_3_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("handlungsorientierung").Range.FormattedText = objDocSrc.Bookmarks("sec_3_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("handlungsorientierung").Range.FormattedText = objDocSrc.Bookmarks("sec_3_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("handlungsorientierung").Range.FormattedText = objDocSrc.Bookmarks("sec_3_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("handlungsorientierung").Range.FormattedText = objDocSrc.Bookmarks("sec_3_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("handlungsorientierung").Range.FormattedText = objDocSrc.Bookmarks("sec_3_9").Range.FormattedText
End Select
Select Case val7 'Bereich Sensitivität
Case Is = 1
objDocTgt.Bookmarks("sensitivitaet").Range.FormattedText = objDocSrc.Bookmarks("third_1_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("sensitivitaet").Range.FormattedText = objDocSrc.Bookmarks("third_1_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("sensitivitaet").Range.FormattedText = objDocSrc.Bookmarks("third_1_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("sensitivitaet").Range.FormattedText = objDocSrc.Bookmarks("third_1_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("sensitivitaet").Range.FormattedText = objDocSrc.Bookmarks("third_1_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("sensitivitaet").Range.FormattedText = objDocSrc.Bookmarks("third_1_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("sensitivitaet").Range.FormattedText = objDocSrc.Bookmarks("third_1_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("sensitivitaet").Range.FormattedText = objDocSrc.Bookmarks("third_1_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("sensitivitaet").Range.FormattedText = objDocSrc.Bookmarks("third_1_9").Range.FormattedText
End Select
Select Case val8 'Bereich Kontaktfähigkeit
Case Is = 1
objDocTgt.Bookmarks("kontaktfaehigkeit").Range.FormattedText = objDocSrc.Bookmarks("third_2_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("kontaktfaehigkeit").Range.FormattedText = objDocSrc.Bookmarks("third_2_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("kontaktfaehigkeit").Range.FormattedText = objDocSrc.Bookmarks("third_2_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("kontaktfaehigkeit").Range.FormattedText = objDocSrc.Bookmarks("third_2_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("kontaktfaehigkeit").Range.FormattedText = objDocSrc.Bookmarks("third_2_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("kontaktfaehigkeit").Range.FormattedText = objDocSrc.Bookmarks("third_2_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("kontaktfaehigkeit").Range.FormattedText = objDocSrc.Bookmarks("third_2_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("kontaktfaehigkeit").Range.FormattedText = objDocSrc.Bookmarks("third_2_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("kontaktfaehigkeit").Range.FormattedText = objDocSrc.Bookmarks("third_2_9").Range.FormattedText
End Select
Select Case val9 'Bereich Soziabilität
Case Is = 1
objDocTgt.Bookmarks("soziabilitaet").Range.FormattedText = objDocSrc.Bookmarks("third_3_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("soziabilitaet").Range.FormattedText = objDocSrc.Bookmarks("third_3_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("soziabilitaet").Range.FormattedText = objDocSrc.Bookmarks("third_3_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("soziabilitaet").Range.FormattedText = objDocSrc.Bookmarks("third_3_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("soziabilitaet").Range.FormattedText = objDocSrc.Bookmarks("third_3_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("soziabilitaet").Range.FormattedText = objDocSrc.Bookmarks("third_3_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("soziabilitaet").Range.FormattedText = objDocSrc.Bookmarks("third_3_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("soziabilitaet").Range.FormattedText = objDocSrc.Bookmarks("third_3_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("soziabilitaet").Range.FormattedText = objDocSrc.Bookmarks("third_3_9").Range.FormattedText
End Select
Select Case val10 'Bereich Teamorientierung
Case Is = 1
objDocTgt.Bookmarks("teamorientierung").Range.FormattedText = objDocSrc.Bookmarks("third_4_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("teamorientierung").Range.FormattedText = objDocSrc.Bookmarks("third_4_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("teamorientierung").Range.FormattedText = objDocSrc.Bookmarks("third_4_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("teamorientierung").Range.FormattedText = objDocSrc.Bookmarks("third_4_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("teamorientierung").Range.FormattedText = objDocSrc.Bookmarks("third_4_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("teamorientierung").Range.FormattedText = objDocSrc.Bookmarks("third_4_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("teamorientierung").Range.FormattedText = objDocSrc.Bookmarks("third_4_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("teamorientierung").Range.FormattedText = objDocSrc.Bookmarks("third_4_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("teamorientierung").Range.FormattedText = objDocSrc.Bookmarks("third_4_9").Range.FormattedText
End Select
Select Case val11 'Bereich Durchsetzungstärke
Case Is = 1
objDocTgt.Bookmarks("duchsetzungsstaerke").Range.FormattedText = objDocSrc.Bookmarks("third_5_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("durchsetzungsstaerke").Range.FormattedText = objDocSrc.Bookmarks("third_5_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("durchsetzungsstaerke").Range.FormattedText = objDocSrc.Bookmarks("third_5_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("durchsetzungsstaerke").Range.FormattedText = objDocSrc.Bookmarks("third_5_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("durchsetzungsstaerke").Range.FormattedText = objDocSrc.Bookmarks("third_5_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("durchsetzungsstaerke").Range.FormattedText = objDocSrc.Bookmarks("third_5_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("durchsetzungsstaerke").Range.FormattedText = objDocSrc.Bookmarks("third_5_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("durchsetzungsstaerke").Range.FormattedText = objDocSrc.Bookmarks("third_5_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("durchsetzungsstaerke").Range.FormattedText = objDocSrc.Bookmarks("third_5_9").Range.FormattedText
End Select
Select Case val12 'Bereich Emotionale Stabilität
Case Is = 1
objDocTgt.Bookmarks("emotionalestabilitaet").Range.FormattedText = objDocSrc.Bookmarks("fourth_1_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("emotionalestabilitaet").Range.FormattedText = objDocSrc.Bookmarks("fourth_1_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("emotionalestabilitaet").Range.FormattedText = objDocSrc.Bookmarks("fourth_1_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("emotionalestabilitaet").Range.FormattedText = objDocSrc.Bookmarks("fourth_1_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("emotionalestabilitaet").Range.FormattedText = objDocSrc.Bookmarks("fourth_1_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("emotionalestabilitaet").Range.FormattedText = objDocSrc.Bookmarks("fourth_1_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("emotionalestabilitaet").Range.FormattedText = objDocSrc.Bookmarks("fourth_1_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("emotionalestabilitaet").Range.FormattedText = objDocSrc.Bookmarks("fourth_1_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("emotionalestabilitaet").Range.FormattedText = objDocSrc.Bookmarks("fourth_1_9").Range.FormattedText
End Select
Select Case val13 'Bereich Belastbarkeit
Case Is = 1
objDocTgt.Bookmarks("belastbarkeit").Range.FormattedText = objDocSrc.Bookmarks("fourth_2_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("belastbarkeit").Range.FormattedText = objDocSrc.Bookmarks("fourth_2_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("belastbarkeit").Range.FormattedText = objDocSrc.Bookmarks("fourth_2_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("belastbarkeit").Range.FormattedText = objDocSrc.Bookmarks("fourth_2_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("belastbarkeit").Range.FormattedText = objDocSrc.Bookmarks("fourth_2_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("belastbarkeit").Range.FormattedText = objDocSrc.Bookmarks("fourth_2_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("belastbarkeit").Range.FormattedText = objDocSrc.Bookmarks("fourth_2_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("belastbarkeit").Range.FormattedText = objDocSrc.Bookmarks("fourth_2_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("belastbarkeit").Range.FormattedText = objDocSrc.Bookmarks("fourth_2_9").Range.FormattedText
End Select
Select Case val14 'Bereich Selbstbewusstein
Case Is = 1
objDocTgt.Bookmarks("selbstbewusstsein").Range.FormattedText = objDocSrc.Bookmarks("fourth_3_1").Range.FormattedText
Case Is = 2
objDocTgt.Bookmarks("selbstbewusstsein").Range.FormattedText = objDocSrc.Bookmarks("fourth_3_2").Range.FormattedText
Case Is = 3
objDocTgt.Bookmarks("selbstbewusstsein").Range.FormattedText = objDocSrc.Bookmarks("fourth_3_3").Range.FormattedText
Case Is = 4
objDocTgt.Bookmarks("selbstbewusstsein").Range.FormattedText = objDocSrc.Bookmarks("fourth_3_4").Range.FormattedText
Case Is = 5
objDocTgt.Bookmarks("selbstbewusstsein").Range.FormattedText = objDocSrc.Bookmarks("fourth_3_5").Range.FormattedText
Case Is = 6
objDocTgt.Bookmarks("selbstbewusstsein").Range.FormattedText = objDocSrc.Bookmarks("fourth_3_6").Range.FormattedText
Case Is = 7
objDocTgt.Bookmarks("selbstbewusstsein").Range.FormattedText = objDocSrc.Bookmarks("fourth_3_7").Range.FormattedText
Case Is = 8
objDocTgt.Bookmarks("selbstbewusstsein").Range.FormattedText = objDocSrc.Bookmarks("fourth_3_8").Range.FormattedText
Case Is = 9
objDocTgt.Bookmarks("selbstbewusstsein").Range.FormattedText = objDocSrc.Bookmarks("fourth_3_9").Range.FormattedText
End Select
Application.EnableEvents = False
objWord.Quit
End Sub
this is the whole thing... i dont think its going to help you. i know my description is pretty poor as i dont have much experience in vba and this project is way beyond the boundings of my knowledge.
but thx for your attempts to help me with this!
Fill the textboxes.
Click the button 'Weiter'.
Notice that the distance between text and headings hasn't changed.
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.