Can I set 2 Conditions for If fields in Word?

Hi,
i can also write in english if its better for you.
Im using Word'21.

Hello

Thanks for the answers. But that's not what I'm looking for.

I search for a solution to "unlink" the fields in header and footer. For example a date field, which updates when I print or open the file.

In word I can do this with a macro, but in excel and powerpoint that solution didn't worked.

Hi Robin,

The simplest way is to toggle the display of field codes and then search for ^d DATE. If you are on a Windows computer you would toggle the display of the field code using the keyboard shortcut Alt+F9 (or, on some computers Fn+Alt+F9). Are you planning on doing
this with a macro? Your title would appear to request this.

Are your fields DATE fields or CREATEDATE or SAVEDATE or PRINTDATE? See my page on the different date fields in Word.

http://addbalance.com/word/datefields1.htm

What is it you want to replace them with?

This forum is a user-to-user support forum. I am a fellow user.

I hope this information helps.

Please let me know if you have any more questions or require further help.

You can ask for more help by replying to this post (Reply button below).

Stay well

Hi Charles

Thank you for your answer!

Yes I want to do this with a macro. I want to replace all datefields with (for example) "hello". I have a macro that replaces all fields with "hello". But I want that only date fields get replaced.

Can you help me with this?

Vielen Dank für eure Vorschläge!

Mittlerweile habe ich eine andere Lösung, die auch im Hinblick auf die Pflege der Textbausteine besser ist.

Ich sammle die Textbausteine ohne Nummerierung in einem separaten Dokument (Textbausteine.docx) und versehe sie mit Textmarken ("TBTextmarke").

Diese füge ich mit { IF { DOCPROPERTY "Abteilung" } = "A1" { INCLUDETEXT Pfad zu Textbausteine.docx
TBTextmarke } "Alternativtext" } in das Ziel-Dokument ein.

Da nun die Nummerierung über alle Überschriften/Listeneinträge nicht stimmt, korrigiere ich sie mit Hilfe eines Makros:

Sub Nummerieren()

Dim oToc As TableOfContents

Dim oDoc As Document

Dim oPar As Paragraph

Dim lfTemp As ListFormat

Dim ltTemp As ListTemplate

Dim flTemp As Field



Set oDoc = ActiveDocument

Set oToc = oDoc.TablesOfContents(1)



' Feld-Ergebnisse in normalen Text umwandeln <-- wichtig, damit die ListTemplate-Zuweisung ausschließlich

' den Überschrift-Absatz betrifft!

For Each flTemp In oDoc.Fields

If flTemp.Type <> wdFieldTOC And flTemp.Type <> wdFieldTOCEntry Then

flTemp.Unlink

End If

Next flTemp



' Nicht nummerierte Überschriften suchen und nummerieren

For Each oPar In oDoc.Paragraphs

If oPar.OutlineLevel <> wdOutlineLevelBodyText Then

Set lfTemp = oPar.Range.ListFormat

If lfTemp.ListTemplate Is Nothing Then

'Selection.StartOf Unit:=wdParagraph, Extend:=wdMove

lfTemp.ApplyListTemplateWithLevel ListTemplate:=ltTemp, ContinuePreviousList:=True, ApplyTo:=wdListApplyToSelection, DefaultListBehavior:=wdWord10ListBehavior

ElseIf ltTemp Is Nothing Then

Set ltTemp = lfTemp.ListTemplate

End If

End If

Next oPar



'Update TOC

oToc.Update



Set oDoc = Nothing

Set oToc = Nothing

End Sub

Das Objektmodell von Word ist schon echt schräg! Entsprechend schräg verhält sich Word auch manchmal ;-)

Schönen Gruß,

Alvar

Good afternoon,

here is the english version:

I would like to insert a BuiltInDocumentPropertie (to be precise the field itself) into a text box. The text box should contain the content of the quick function block "Status" (internally referred to as "Content status").

The following code only inserts the name of the field, but not the field itself.

Dim proDoc As DocumentProperty

Add a text box

Set shpCanvas = ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=1, Top:=1, Width:=100, Height:=100)

For Each proDoc In ActiveDocument.BuiltInDocumentProperties

If proDoc.Name = "Content status" Then

Set proDoc = ActiveDocument.BuiltInDocumentProperties("Content status")

shpCanvas.TextFrame.TextRange = ActiveDocument.BuiltInDocumentProperties("Content status")

End If

Next

Thank you for your help in advance!